Here are some I have collected, source unknown.
;;=====================================================================
;; compute the absolute delta angle between 2 angles a1 & a2
(defun @delta (a1 a2)
(abs ; added to return a positave angle only
(cond
((> a1 (+ a2 pi)) (- (+ a2 pi pi) a1))
((> a2 (+ a1 pi)) (- a2 a1 pi pi))
((- a2 a1))
)
)
)
;;=====================================================================
;; same results as above, except no (abs added
;; compute the delta angle between 2 angles a1 & a2
(defun @delta (a1 a2)
(cond
((> a1 (+ a2 pi)) (setq a2 (+ a2 pi pi)))
((> a2 (+ a1 pi)) (setq a1 (+ a1 pi pi)))
)
(- a2 a1)
)
;;=====================================================================