VB.Net Advanced Trignometry

Cosecant

Public Function Cosec(angle As Double) As Double
 Return Math.Sqrt(1 + (Cot(angle) ^ 2))
End Function

Hyperbolic_Cosine

Public Function Cosh(x As Double) As Double
 Return (Math.Pow(Math.E, x) + Math.Pow(Math.E, 0 - x)) / 2
End Function

Cotangent

Public Function Cot(angle As Double) As Double
 Return 1 / (Math.Tan(angle))
End Function

Hypotenuse

Public Function Hypot(x As Double, y As Double) As Double
 Return Math.Sqrt((x * x) + (y * y))
End Function

Sine_C

Public Function Sinc(num As Double) As Double
 If Math.Abs(num) < 0.000001 Then Return 1 ' prevents overflow error - sinc(0) = 1
 Return Math.Sin(num) / num
End Function

Tangent_C

Public Function Tanc(num As Double) As Double
 If Math.Abs(num) < 0.000001 Then Return 1
 Return Math.Tan(num) / num
End Function

Vercosine

Public Function VerCosine(num As Double) As Double
 Return 1 + Math.Cos(num)
End Function

Cosecant

Public Function CoVerSine(num As Double) As Double
 Return 1 - Math.Sin(num)
End Function

CoVercosine

Public Function CoVerCosine(num As Double) As Double
 Return 1 + Math.Sin(num)
End Function

Secant

Public Function Sec(angle As Double) As Double
 Return Math.Sqrt(1 + (Math.Tan(angle) ^ 2))
End Function

Hyperbolic_Sine

Public Function Sinh(x As Double) As Double
 Return (Math.Pow(Math.E, x) - Math.Pow(Math.E, 0 - x)) / 2
End Function

Hyperbolic_Tangent

Public Function Tanh(x As Double) As Double
 Return (Sinh(x) / Cosh(x))
End Function

VerSine

Public Function VerSine(num As Double) As Double
 Return 1 - Math.Cos(num)
End Function

The code functions on this site are only intended as a learning aid. Data validation is often ommited to assist users unfamiliar with Visual Basic. The information may be untested, unreliable or unsuitable for your requirements. It is presented in a non-commercial form as an ex-gratia attempt to be helpful. By making any use of information contained on these pages, you agree to fully absolve and indemnify DigitalDan in relation to any issue arising out of such use.