  Advertiser Disclosure
 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    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

# SinH, CosH, TanH, CotH, SecH, CscH - Hyperbolic trig functions

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

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