个人资料
   

博客年龄：18年0个月
访问：?次
文章：470篇
日志正文

三角函数

分类：lisp函数 | 标签： lisp   函数   三角函数  
2008-01-16 14:15 阅读(?)评论(0)
;;;============================================================
;;;自定义补充　三角函数　　　　　　　　　　　　　　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;　说　明：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
;;;============================================================
   阅读(?)评论(0)
 
表　　情:
加载中...
 

请各位遵纪守法并注意语言文明