VB如何表示反三角函数?

请问VB中如何计算反三角函数的值?
最好哪位高手能给一段代码……
我需要一段arcSin的
非常感谢

函数 由基本函数导出之公式
Secant(正割) Sec(X) = 1 / Cos(X)
Cosecant(余割) Cosec(X) = 1 / Sin(X)
Cotangent(余切) Cotan(X) = 1 / Tan(X)
Inverse Sine(反正弦) Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine (反余弦) Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant (反正割) Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
Inverse Cosecant (反余割) Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Inverse Cotangent (反余切) Arccotan(X) = Atn(X) + 2 * Atn(1)
Hyperbolic Sine (双曲正弦) HSin(X) = (Exp(X) - Exp(-X)) / 2
Hyperbolic Cosine (双曲余弦) HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent (双曲正切) HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant (双曲正割) HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant(双曲余割) HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent(双曲余切) HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sine(反双曲正弦) HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine(反双曲余弦) HArccos(X) = Log(X + Sqr(X * X - 1))
Inverse Hyperbolic Tangent(反双曲正切) HArctan(X) = Log((1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant(反双曲正割) HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
Inverse Hyperbolic Cotangent(反双曲余切) HArccotan(X) = Log((X + 1) / (X - 1)) / 2
以 N 为底的对数 LogN(X) = Log(X) / Log(N)
温馨提示:内容为网友见解,仅供参考
第1个回答  2006-08-10
Atn(x / Sqr(-x * x + 1))本回答被提问者采纳

VB中反三角函数怎么表示
反正弦 : Arcsin(X) = Atn(X \/ Sqr(-X * X + 1))反余弦: Arccos(X) = Atn(-X \/ Sqr(-X * X + 1)) + 2 * Atn(1)

VB程序中的反三角函数是什么
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 = ...

VB里怎么用反三角函数请详细点
Atn()是VB反正切函数,VB不提供其他反三角函数,不过可以用下列公式导出:ArcTan(X) = Atn(X)Arcsin(X) = Atn(X \/ Sqr(-X * X + 1))Arccos(X) = Atn(-X \/ Sqr(-X * X + 1)) + 2 * Atn(1)

vb怎样计算反三角函数???
y = Atn(-x \/ Sqr(-x * x + 1)) + 2 * Atn(1)反正切:y = Atn(x)反余切:y = Atn(x) + 2 * Atn(1)

vb中arcsin() 与 arccos() 分别是什么格式
没有,只有一个Atn()是VB反正切函数,VB不提供其他反三角函数,不过可以用下列公式导出:反正弦 Arcsin(X) = Atn(X \/ Sqr(-X * X + 1))反余弦 Arccos(X) = Atn(-X \/ Sqr(-X * X + 1)) + 2 * Atn(1)反正割 Arcsec(X) = Atn(X \/ Sqr(X * X - 1)) + Sgn((X) - ...

关于VB中反三角函数的定义
改成 Private Function Arccos(X As Double) As Double 用整数怎么算三角函数啊,要用double的

VB中计算反三角函数
设余切值为i 反余切则为atn(1\/i)VB中只反正切的反三角函数,其它反三角函数都需要转换到此函数来计算。当然也可以自己编,比较麻烦。

如何用vb写反三角函数的运行程序
Option ExplicitConst pi = 3.41592654Private Sub Command1_Click() Dim x As Double, y As Double Dim asin As Double, d As Double x = Val(Text1.Text) If 300 + x = 0 Then Label2.Caption = "分母为0!" Exit Sub End If d = 150# \/ (300 + x) ...

求VB高手指教反正切函数Atn的用法
VB 只有 Atn 这个反三角函数(即 ArcTan。三角函数有:Cos,Sin,Tan)。不过可以用公式求写出另外两个反三角函数。Cos(弧度)Sin(弧度)Tan(弧度)Atn(值)'结果为弧度 Private Sub Form_Click()Dim a As Single Dim x As Single x=1.0 a = Atn(x)Print a '输出是四分之一PI End Sub ...

在vb中ARCCOS函数怎么定义和调用
arccosx可以表示为Atn(Sqr(1 - x ^ 2) \/ x)下面是一个例子:Const pi = 3.1415926 Private Sub Command1_Click()Dim i As Single, j As Single i = 0.5 j = Arccos(i)Print i, j, j \/ pi * 180 i = -0.5 j = Arccos(i)Print i, j, j \/ pi * 180 i = 0 j = ...

相似回答