自定义补充　三角函数　

;;;============================================================
;;;自定义补充　三角函数　　　　　　　　　　　　　　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;　说　明：Alisp只提供了: sin cos atan　三个三角函数;　
;;;　　　　　本文件扩展函数: asin acos tan　 　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;============================================================
;;;=======第１个.反正弦函数====================================
;;; 参　数：a---正弦值，类型为数值。　　　　　　　　　　　　　
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　
(defun asin (a)
(if (and
(= (numberp a) T)
(<= (abs a) 1.0)
)
(if (= a 1.0)
(* pi 0.5)
(atan (/ a
(sqrt (- 1 (* a a)))
)
)
)
nil
)
) ;结束defun
;;;============================================================
;;;=======第２个.反余弦函数====================================
;;; 参　数：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
;;;============================================================
;;;=======第３个.正切函数======================================
;;; 参　数：a---角度值，单位为弧度。　　　　　　　　　　　　　
;;; 返回值：返回正切值。　　　　　　　　　　　　　　　　　　　
(defun tan (a)
(if (= (numberp a) T)
(/ (sin a) (cos a))
nil
));结束defun
;;;============================================================
完美显示见：http://acad.net.cn/viewthread.php?tid=238&extra=page%3D2