MATHEMATICS
Compute ARCSIN
It's been a long time since my last trigonometry class, but I had this
function laying around:
LOCAL FN ARCSIN#(value#)
END FN = ATN(value# / SQR(1-value# * value#))
Hope that does the trick.
You can use this for ARCSIN:
LOCAL FN ArcSin#(x#)
SELECT CASE x#
CASE 1
a# = 1.5707963268 '=pi/2
CASE -1
a# = -1.5707963268
CASE ELSE
a# = ATN(x# / SQR(1 - x#*x#))
END SELECT
END FN = a#
|