一、双曲函数
双曲正弦：
If hiy = True And inv1 = False Then '双曲且非反函数
Text1 = (自然数对数 ^ Text1 - 自然数对数 ^ (-Text1)) / 2
End If
双曲余弦：
If hiy = True And inv1 = False Then
Text1 = (自然数对数 ^ Text1 + 自然数对数 ^ (-Text1)) / 2
Hyp.Value = False
End If
双曲正切：
If hiy = True And inv1 = False Then
Text1 = (自然数对数 ^ Text1 - 自然数对数 ^ (-Text1)) / (自然数对数 ^ Text1 + 自然数对数 ^ (-Text1))
End If
二、双曲函数的反函数
Public Function 双曲正切反函数(Text1) As Double
h = Log(Sqr(1 - Text1 ^ 2) / (1 - Text1))
双曲正切反函数 = h
End Function
Public Function 双曲正弦反函数(Text1) As Double
双曲正弦反函数 = Log(Text1 + Sqr(Text1 ^ 2 + 1))
End Function
Public Function 双曲余弦反函数(Text1) As Double
双曲余弦反函数 = Log(Text1 + Sqr(Text1 ^ 2 - 1))
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 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
因篇幅问题不能全部显示，请点此查看更多更全内容