# December 25, 1999

#### Cot, Sec, Csc – Missing trig functions

‘ Cotangent of an angleFunction Cot(radians As Double) As Double Cot = 1 / Tan(radians)End Function’ Secant of an angleFunction Sec(radians As Double) As Double Sec = 1 / Cos(radians)End

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

‘ hyperbolic arc sineFunction 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

#### ASin, ACos, ACot, ASec, ACsc – Missing inverse trig functions

‘ arc sine’ error if value is outside the range [-1,1]Function ASin(value As Double) As Double If Abs(value) 1 Then ASin = Atn(value / Sqr(1 – value * value)) Else

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

‘ hyperbolic sineFunction SinH(value As Double) As Double Dim temp As Double temp = Exp(value) SinH = (temp – 1 / temp) / 2End Function’ hyperbolic cosineFunction CosH(value As Double)

#### Atn2 – Arc tangent of Y/X

‘ arc tangent of Y/X – returns values in all four quadrantsFunction Atn2(x As Double, y As Double) As Double If x = 0 Then Atn2 = Sgn(y) * 1.5707963267949