Atn函数返回一个double类型,指定一个数的反正切值。
用法就是:Atn(number)。number参数是一个double或者任何有效的数值表达式。
Atn函数的参数值(number)为直角三角形的两条直角边的比值(对边比邻边)。返回以弧度为单位的角。值的范围是-π/2和π/2之间。
Atn是Tan函数的反三角函数,Tan的参数值为角度,返回直角三角形的两边的比值。
下面介绍个例子:
我要判断两个点的位置并求出两个点组成的线段与水平面之间的夹角,用了一个Function函数,它的声明如下:
www.2cto.com
Public Function getAngel(ByVal x1 As Long, _
ByVal y1 As Long, _
ByVal x2 As Long, _
ByVal y2 As Long) As Long
Const PI As Double = 3.1415926
Dim judge As Boolean
'VB中默认boolean值为False,这里如果是默认(即judge=False),结果永远等于0
judge = True
Dim Ang As Long
Select Case judge
Case x1 < x2 And y1 < y2
Ang = Atn((y2 - y1) / (x2 - x1)) * 180 / PI
Case x1 < x2 And y1 = y2
Ang = 0
Case x1 < x2 And y2 > y2
Ang = Atn((y2 - y1) / (x2 - x1)) * 180 / PI + 360
Case x1 = x2 And y1 < y2
Ang = 90
Case x1 = x2 And y1 = y2
MsgBox "两个点重复,请从新输入!"
Case x1 = x2 And y1 > y2
Ang = 270
Case x1 > x2 And y1 < y2
Ang = Atn((y2 - y1) / (x2 - x1)) * 180 / PI + 180
Case x1 > x2 And y1 = y2
Ang = 180
Case x1 > x2 And y1 > y2
Ang = Atn((y2 - y1) / (x2 - x1)) * 180 / PI + 180
End Select
getAngel = Ang
'angel = getAngel(x1, y1, x2, y2)
End Function
下面是调用这个函数的代码:
Private Sub Form_click()
Text1(4).Text = Format(getAngel(CDbl(Text1(0).Text), CDbl(Text1(1).Text), CDbl(Text1(2).Text), CDbl(Text1(3).Text)), "0.000 ")
End Sub
调用过程代码过于简单,调用的时候只有按照代码的格式调用才能够正常运行。有兴趣的同学自己再改吧。
原先,我总感觉数学问题用Matlab解决很合适,了解原理之后编写也非常简单;但是用VB就很复杂,并且算出来也不精确。
但是我偶然间发现VB中也提供了比较全面的数学函数,很有意思。