vb.net余弦函数应用 vb反余弦函数( 二 )


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
VB怎么写反正弦和反余弦函数?没有直接的函数可以求出反正弦和反余弦,可以用牛顿迭代法求出,原理很简单
Secant(正割)
Sec(X)= 1/Cos(X)
Cosecant(余割)
Cosec(X)= 1/Sin(X)
Cotangent(余切)
Cotan(X)= 1/Tan(X)
InverseSine(反正弦)
Arcsin(X)= Atn(X / Sqr(-X * X + 1))
InverseCosine(反余弦)
Arccos(X) =Atn(-X /Sqr(-X * X + 1))+ 2 * Atn(1)
InverseSecant(反正割)
Arcsec(X) = Atn(X / Sqr(X * X - 1))+ Sgn((X) - 1) * (2 * Atn(1))
InverseCosecant(反余割)
Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
InverseCotangent(反余切)
Arccotan(X) = Atn(X) + 2 * Atn(1)
HyperbolicSine(双曲正弦)
HSin(X) = (Exp(X) - Exp(-X)) / 2
HyperbolicCosine(双曲余弦)
HCos(X) = (Exp(X) + Exp(-X)) / 2
HyperbolicTangent(双曲正切)
HTan(X) = (Exp(X) - Exp(-X)) /(Exp(X)+Exp(-X))
HyperbolicSecant(双曲正割)
HSec(X) = 2 / (Exp(X) + Exp(-X))
HyperbolicCosecant(双曲余割)
HCosec(X)=2/(Exp(X)-Exp(-X))
HyperbolicCotangent(双曲余切)
HCotan(X)=(Exp(X)+Exp(-X))/(Exp(X)-Exp(-X))
InverseHyperbolicSine(反双曲正弦)
HArcsin(X)=Log(X+Sqr(X*X+1))
InverseHyperbolicCosine(反双曲余弦)
HArccos(X)=Log(X+Sqr(X*X-1))
InverseHyperbolicTangent(反双曲正切)

推荐阅读