Binaryworld - ASinH, ACosH, ATanH, ACotH, ASecH, ACscH - Hyperbolic inverse trig fun ... [ VB -> Math ]

' hyperbolic arc sine

Function ASinH(value As Double) As Double
  ASinH = Log(value + Sqr(value * value + 1))
End Function

' hyperbolic arc cosine
' error if NUMBER is inside the range [-1,1]

Function ACosH(value As Double) As Double
  ACosH = Log(value + Sqr(value * value - 1))
End Function

' hyperbolic arc tangent
' error if value is zero

Function ATanH(value As Double) As Double
  ATanH = Log((1 / value + 1) / (1 / value - 1)) / 2
End Function

' hyperbolic arc cotangent

Function ACotH(value As Double) As Double
  ACotH = Log((value + 1) / (value - 1)) / 2
End Function

' hyperbolic arc secant
' error if value is outside the range [-1,1]

Function ASecH(value As Double) As Double
  ASecH = Log((Sqr(1 - value * value) + 1) / value)
End Function

' hyperbolic arc cosecant

Function ACscH(value As Double) As Double
  ACscH = Log((Sgn(value) * Sqr(1 + value * value) + 1) / value)
End Function