vb中的三角函数.docVIP

vb中的三角函数 arc tangent == atn Arcsin(X) = Atn(X / Sqr(-X * X + 1)) Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) -------------------------------------------------------------------------------- Secant Public Function Sec(ByVal Number As Double) As Double Sec = 1 / Cos(Number) End Function Cosecant Public Function Csc(ByVal Number As Double) As Double Csc = 1 / Sin(Number) End Function Cotangent Public Function Ctn(ByVal Number As Double) As Double Ctn = 1 / Tan(Number) End Function Inverse Sine Public Function ASin(ByVal Number As Double) As Double ASin = Atn(Number / Sqr(-Number * Number + 1)) End Function Inverse Cosine Public Function ACos(ByVal Number As Double) As Double ACos = Atn(-Number / Sqr(-Number * Number + 1)) + 2 * Atn(1) End Function Inverse Secant Public Function ASec(ByVal Number As Double) As Double ASec = Atn(Number / Sqr(Number * Number - 1)) Sgn((Number) - 1) * (2 * Atn(1)) End Function Inverse Cosecant Public Function ACsc(ByVal Number As Double) As Double ACsc = Atn(Number / Sqr(Number * Number - 1)) (Sgn(Number) - 1) * (2 * Atn(1)) End Function Inverse Cotangent Public Function ACtn(ByVal Number As Double) As Double ACtn = Atn(Number) 2 * Atn(1) End Function Hyperbolic Sine Public Function SinH(ByVal Number As Double) As Double SinH = (Exp(Number) - Exp(-Number)) / 2 End Function Hyperbolic Cosine Public Function CosH(ByVal Number As Double) As Double CosH = (Exp(Number) Exp(-Number)) / 2 End Function Hyperbolic Tangent Public Function TanH(ByVal Number As Double) As Double TanH = (Exp(Number) - Exp(-Number)) / (Exp(Number) Exp(-Number)) End Function Hyperbolic Secant Public Function SecH(ByVal Number As Double) As Double SecH = 2 / (Exp(Number) Exp(-Number)) End Function Hyperbolic Cosecant Public Function CscH(ByVal Number As Double) As Double CscH = 2 / (Exp(Number) - Exp(-Number)) End Function Hyperbolic Cotangent Public Function CtnH(ByVal Number As Double) As Double CtnH = (E