Matematické funkce - SinH, CosH, TanH, CotH
Funkce:
' hyperbolický
sinus
Function SinH(value
As Double) As Double
Dim temp As Double
temp
= Exp(value)
SinH = (temp - 1 / temp) / 2
End Function
'
hyperbolický kosinus
Function CosH(value As Double) As Double
Dim temp As Double
temp
= Exp(value)
CosH = (temp + 1 / temp) / 2
End Function
'
hyperbolický tangent
Function TanH(value
As Double) As Double
Dim temp As Double
temp
= Exp(value)
TanH = (temp - 1 / temp) / (temp + 1 / temp)
End Function
'
hyperbolický kotangent
Function CotH(value
As Double) As Double
Dim temp As Double
temp
= Exp(value)
CotH = (temp + 1 / temp) / (temp - 1 / temp)
End Function