;;; Convert Angles from DEGREES to RADIANS
(defun kdub:dtr
(ang
) (* (/ ang
180.0) pi
))
;;; Convert Angles from RADIANS to DEGREES
(defun kdub:rtd
(ang
) (/ (* ang
180.0) pi
))
;;;
;;; arccosine (inverse cosine)
;;; argument in the range -1.0 to 1.0 inclusive
;;; returns an angle in radians in the range pi to 0 inclusive
;;;
(* pi 0.5)
)
)
;;;
;;; arccosine (inverse cosine)
;;; argument in the range -1.0 to 1.0 inclusive
;;; arcsine (inverse sine) accepts an argument in the range
;;; -1.0 to 1.0 inclusive, and returns an angle in radians in
;;; the range -pi/2 to pi/2 inclusive.
(alert (strcat " Arc-sine error in (KDUB:asin ." "\n Spitting the dummy")) )
((= num 1.0) *:rad90)
((= num -1.0) (- *:rad90))
(t
(atan num
(sqrt (- 1.0 (* num num
))))) )
)