用VB弄计算器中反函数公式
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、双曲函数
双曲正弦：
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