Binaryworld - SinH, CosH, TanH, CotH, SecH, CscH - Hyperbolic trig functions ... [ VB -> Math ]

' hyperbolic sine

Function SinH(value As Double) As Double
  Dim temp As Double
  temp = Exp(value)
  SinH = (temp - 1 / temp) / 2
End Function

' hyperbolic cosine

Function CosH(value As Double) As Double
  Dim temp As Double
  temp = Exp(value)
  CosH = (temp + 1 / temp) / 2
End Function

' hyperbolic tangent

Function TanH(value As Double) As Double
  Dim temp As Double
  temp = Exp(value)
  TanH = (temp - 1 / temp) / (temp + 1 / temp)
End Function

' hyperbolic cotangent

Function CotH(value As Double) As Double
  Dim temp As Double
  temp = Exp(value)
  CotH = (temp + 1 / temp) / (temp - 1 / temp)
End Function

' hyperbolic secant

Function SecH(value As Double) As Double
  Dim temp As Double
  temp = Exp(value)
  SecH = 2 / (temp + 1 / temp)
End Function

' hyperbolic cosecant

Function CscH(value As Double) As Double
  Dim temp As Double
  temp = Exp(value)
  CscH = 2 / (temp - 1 / temp)
End Function