‘ convert from degrees to radiansFunction DegreesToRadians(ByVal degrees As Single) As Single DegreesToRadians = degrees / 57.29578End Function’ convert from radians to degreesFunction RadiansToDegrees(ByVal radians As Single) As Single RadiansToDegrees = radians * 57.29578End Function
‘ 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)
‘ 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
‘ 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
‘ 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
‘ 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