Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Dec 25, 1999

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
 
Comment and Contribute

 

 

 

 

 


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

 

 

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