'具体定义如下:
Public Function ArcSin(ByVal X As Double) As Double '反正弦
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Public Function ArcCos(ByVal X As Double) As Double '反余弦
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
Public Function ArcCoTan(ByVal X As Double) As Double '反正割
ArcCoTan = Atn(X) + 2 * Atn(1)
End Function
Public Function Sec(ByVal X As Double) As Double '正割
Sec = 1 / Cos(X)
End Function
Public Function CoSec(ByVal X As Double) As Double '余割
CoSec = 1 / Sin(X)
End Function
Public Function CoTan(ByVal X As Double) As Double '余切
CoTan = 1 / Tan(X)
End Function
Public Function ArcCoSec(ByVal X As Double) As Double '反余割
ArcCoSec = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
End Function
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载