[LISP程序]：如何用LISP实现反余弦函数???

linhui12

已知直角三角形的直角边A和斜边C,用LISP求两线夹角.请大家帮忙写写LISP

zml84

http://zml84.blog.sohu.com/76711952.html
[php]
;;;============================================================
;;;自定义补充　三角函数　　　　　　　　　　　　　　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;　说　明：Alisp只提供了: sin cos atan　三个三角函数;　
;;;　　　　　本文件扩展函数: asin acos tan　 　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;============================================================
;;;=======第２个.反余弦函数====================================
;;; 参　数：a---余弦值，类型为数值。　　　　　　　　　　　　　
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　
(defun acos (a)
(if (and (= (numberp a) T)
(<= (abs a) 1.0)
)
(if (= a 0.0)
(* pi 0.5)
(atan (/ (sqrt (- 1 (* a a)))
a
)
)
)
nil
)
) ;结束defun
;;;============================================================
[/php]

linhui12

谢谢楼上兄弟