Private Sub Form_Load()
成都创新互联公司专注于长沙县企业网站建设,响应式网站开发,成都商城网站开发。长沙县网站建设公司,为长沙县等地区提供建站服务。全流程按需制作,专业设计,全程项目跟踪,成都创新互联公司专业和态度为您提供的服务
Picture1.Cls
Picture1.ScaleMode = 3
Picture1.Scale (-150, 150)-(150, -150) '坐标范围-150x150 , -150y150
Picture1.DrawWidth = 1
Picture1.Line (-150, 0)-(150, 0), RGB(0, 0, 255) '画坐标轴
Picture1.Line (0, 150)-(0, -150), RGB(0, 0, 255)
Picture1.CurrentX = 1
Picture1.CurrentY = -1
Picture1.DrawWidth = 2
For x = -140 To 140 Step 0.1
Picture1.PSet (x, sin(x)), RGB(255, 0, 0) '在这里可以改成任一函数 同样的改为cos(x)
Next x
End Sub
这是以前我写的 在百度空间里的文章代码
sin(角度值)同理cos,tan
Atn()是VB反正切函数,VB不提供其他反三角函数,不过可以用下列公式导出:
Inverse Sine (反正弦):
Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine (反余弦):
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant (反正割):
Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
Inverse Cosecant (反余割):
Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
以上这些公式,其实就是应用了数学中的各类三角函数和正切函数之间的关系导出的。其中需要注意的是其中的 X 不能等于正负1。(引用-_-)
x都是弧度制
sin正弦函数,cos余弦函数,tan正切函数,cot余切函数 在直角三角形中,当平面上的三点A、B、C的连线,AB、AC、BC,构成一个直角三角形,其中∠ACB为直角。对∠BAC而言,对边(opposite)a=BC、斜边(hypotenuse)c=AB、邻边(adjacent)b=AC,
关于三角函数的运算vb支持以下四种:
Sin()……正弦
Cos()……余弦
Tan()……正切
Atn()……正切的逆运算,即反正切
需要注意的是,以上这四个函数vb都是以弧度制计算的。