'ArcSin(x) 函数
'功能:返回一个指定数的反正弦值,以弧度表示,返回类型为Double。
'语法:ArcSin(x)。
'说明:其中,x的取值范围为[-1,1],x的数据类型为Double。
'程序代码:
Function ArcSin(x As Double) As Double
If x >= -1 And x < -0.5 Then ArcSin = -Atn(Sqr(1 - x * x) / x) - 2 * Atn(1)
If x >= -0.5 And x <= 0.5 Then ArcSin = Atn(x / Sqr(1 - x * x))
If x > 0.5 And x <= 1 Then ArcSin = -Atn(Sqr(1 - x * x) / x) + 2 * Atn(1)
End Function
'ArcCos(x) 函数
'功能:返回一个指定数的反余弦值,以弧度表示,返回类型为Double。
'语法:ArcCos(x)。
'说明:其中,x的取值范围为[-1,1],x的数据类型为Double。
'程序代码:
Function ArcCos(x As Double) As Double
If x >= -1 And x < -0.5 Then ArcCos = Atn(Sqr(1 - x * x) / x) + 4 * Atn(1)
If x >= -0.5 And x <= 0.5 Then ArcCos = -Atn(x / Sqr(1 - x * x)) + 2 * Atn(1)
If x > 0.5 And x <= 1 Then ArcCos = Atn(Sqr(1 - x * x) / x)
End Function