TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
 Specialized Dev Zones Research Center eBook Library .NET Java C++ Web Dev Architecture Database Security Open Source Enterprise Mobile Special Reports 10-Minute Solutions DevXtra Blogs Slideshow
 Sign up for e-mail newsletters from DevX

 Home » Tip Bank » .NET » VB.NET » Math Processing
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Dec 25, 1999

### WEBINAR:On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning

# ASinH, ACosH, ATanH, ACotH, ASecH, ACscH - Hyperbolic inverse trig functions

``````' 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

``````
Francesco Balena

 Submit a Tip Browse ".NET" Tips Browse All Tips
Comment and Contribute

(Maximum characters: 1200). You have 1200 characters left.

Thanks for your registration, follow us on our social networks to keep up-to-date