VB.net绘制tan函数图像

最新推荐文章于 2022-09-15 10:08:19 发布

四瓣纸鹤

最新推荐文章于 2022-09-15 10:08:19 发布

阅读量5.4k

点赞数 1

分类专栏：问题解决文章标签： vb.net tan 正切

本文链接：https://blog.csdn.net/u014360189/article/details/78679922

版权

问题解决专栏收录该内容

10 篇文章 0 订阅

订阅专栏

PictureBox的size为(356, 246),BorderStyle为Fixed3D，经测试border的宽度为3，为了使得绘制出来的图像有完整的周期，所以size长宽都多了6。

按tan函数算出的值是正数的话，在一般坐标系中此点在x轴上方，但是在计算机中y轴向下方向是正，向上是负，如果不经处理的话，此点会处于x轴下方，所以会出现绘制出来的图形是正确图像沿y轴的翻转。

如下图1：

图1：不经过处理的tan函数图像

所以要对tan函数计算出的值取负值，则可得到正确tan函数的图像。

如下图2：

图2：经过处理的tan函数图像

代码：

    Private Sub DrawTan()
        Dim x As Single
        Dim y As Single
        Dim z As Single

        P = New Pen(Color.Red)
        For z = -175 To 175 Step 0.01
            x = z + 175
            y = -Tan(z * 2 * PI / 175) * 10 + 120
            g.DrawLine(P, x, y, x + 1, y)
        Next z

    End Sub