December 25, 1999

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 ElseIf x > 0 Then Atn2 = Atn(y / x) Else Atn2 = Atn(y / x) + 3.14159265358979 * Sgn(y)

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) As Double Dim temp As Double temp = Exp(value) CosH = (temp + 1 / temp) / 2End Function’ hyperbolic

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 ASin = 1.5707963267949 * Sgn(value) End IfEnd Function’ arc cosine’ error if NUMBER is outside the range [-1,1]Function ACos(ByVal number

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 ACosH(value As Double) As Double ACosH = Log(value + Sqr(value * value – 1))End Function’ hyperbolic arc tangent’ error if

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 Function’ cosecant of an angleFunction Csc(radians As Double) As Double Csc = 1 / Sin(radians)End Function