锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net三角函数 vb三角函数计算程序界面( 二 )

IT技术引导


Exp(-X))
End
Function
Function
HArcsin(X)
As
Double
'反双曲正弦
HArcsin
=
Log(X
+
Sqr(X
*
X
+
1))
End
Function
Function
HArccos(X)
As
Double
'反双曲余弦
HArccos
=
Log(X
+
Sqr(X
*
X
-
1))
End
Function
Function
HArctan(X)
As
Double
'反双曲正切
HArctan
=
Log((1
+
X)
/
(1
-
X))
/
2
End
Function
Function
HArcsec(X)
As
Double
'反双曲正割
HArcsec
=
Log((Sqr(-X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccsc(X)
As
Double
'反双曲余割
HArccsc
=
Log((Sgn(X)
*
Sqr(X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccot(X)
As
Double
'反双曲余切
HArccot
=
Log((X
+
1)
/
(X
-
1))
/
2
End
Function
有谁知道VB编程中运算sin、cos、tan、cot的程序怎么写？sin(角度值）同理cos,tan
Atn()是VB反正切函数vb.net三角函数，VB不提供其他反三角函数vb.net三角函数，不过可以用下列公式导出vb.net三角函数：
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))
以上这些公式 ， 其实就是应用了数学中vb.net三角函数的各类三角函数和正切函数之间vb.net三角函数的关系导出的 。其中需要注意的是其中的 X 不能等于正负1 。（引用-_-）
x都是弧度制
有关VB写三角函数程序的代码没有错vb.net三角函数，VBvb.net三角函数的三角函数计算的都是弧度vb.net三角函数，如果要计算角度需要转换一下 。
比如vb.net三角函数：
Const PI=3.14159265
y=Sin(x*PI/180)
另外vb.net三角函数 ， 这里无需再用val函数了，因为sin函数返回的本来就是一个double类型的数值 。
大佬们~VisualStudio中vb.net如何画三角函数图像？VB系统的坐标原点在左上角，X轴的正方向是水平向右，而Y轴的正方向是垂直向下 。所以 ， 要绘制三角函数的曲线 ， 自己可以通过改变点坐标的方法来实现，当然，VB.NET提供了相应的方法可以来实现坐标变换 ， 也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现 。
下面是我通过自己变换实现的示例，提供参考；我的环境是VB.NET 2010
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'1 ， 获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black, 1)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'1，获得一个Graphics对象
Dim MyGraphics As Graphics

推荐阅读


上一篇：电视盒子能看什么直播，电视盒子能看什么直播软件

下一篇：oracle查询快照，oracle查询快照sql