ArcTan:
VB自带：Atn
ArcSin:
Function ArcSin(X As Doule) As Double
Dim Temp As Double
If X = 0 Then
Temp=0
Else
Temp = Atn(X/Sqr(1-X*X))
End If
ArcSin=Temp
End Function
ArcCos:
Function ArcCos(X As Doule) As Double
Dim Temp As Double
If X = 0 Then
Temp=pi/2
Else
Temp = Atn(Sqr(1-X*X)/X)
End If
ArcCos=Temp
End Function
'Secant
Public Function Sec(ByVal Number As Double) As Double
Sec = 1 / Cos(Number)
End Function
在vb中。如何进行三角函数的程序代码编写
有几个地方要注意：
1、VB中的三角函数的角度全部是用弧度制表示的，如果是度数的话，应先乘以π再除以180转成弧度，再用函数计算结果。
2、VB中直接支持的三角函数有：Sin()、Cos()、Tan()，如果涉及到其它三角函数，可以从下面列出的代码中自己选择相应的函数：
Function Sec(X) As Double '正割
Sec = 1 / Cos(Angle)
End Function
Function Csc(X) As Double '余割
Csc = 1 / Sin(Angle)
End Function
Function Cot(X) As Double '余切
Cot = 1 / Tan(Angle)
End Function
Function ArcSin(X) As Double '反正弦
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Function ArcCos(X) As Double '反余弦
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
Function ArcSec(X) As Double '反正割
ArcSec = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
End Function
Function ArcCsc(X) As Double '反余割
ArcCsc = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
End Function
Function ArcCot(X) As Double '反余切
ArcCot = Atn(X) + 2 * Atn(1)
End Function
Function HSin(X) As Double '双曲正弦
HSin = (Exp(X) - Exp(-X)) / 2
End Function
Function HCos(X) As Double '双曲余弦
HCos = (Exp(X) + Exp(-X)) / 2
End Function
Function HTan(X) As Double '双曲正切
HTan = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
End Function
Function HSec(X) As Double '双曲正割
HSec = 2 / (Exp(X) + Exp(-X))
End Function
Function HCsc(X) As Double '双曲余割
HCsc = 2 / (Exp(X) - Exp(-X))
End Function
Function HCot(X) As Double '双曲余切
HCot = (Exp(X) + Exp(-X)) / (Exp(X) - 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
IP卡
狗仔卡
楼主
显身卡