;;;The acos function returns the acos of the argument x, a real number between 0 and 1.
;;;Code:
(defun acos (x)
(atan (/ (sqrt (- 1 (* x x))) x))
)
;;;The asin function returns the arcsin of the argument sine, a real number between -1 and 1.
;;;Code:
(defun asin (sine / cosine)
(setq cosine (sqrt (- 1.0 (expt sine 2))))
(if (zerop cosine)
(setq cosine 0.000000000000000000000000000001)
)
(atan (/ sine cosine))
)