lisp怎么求 反余弦
www.dimcax.com
lisp怎么求 反余弦
大大帮我。。
check here:
谢谢大大。。。。
打不开。。。。
sorry!
another one
(defun acos (num)
(cond
((equal num 1 1e-12) 0.0)
((equal num -1 1e-12) pi)
((< -1 num 1)
(atan (sqrt (- 1 (expt num 2))) num)
)
)
)
ref link:
通过反正切来求
我编了一个小程序,是以度的形式显示结果.
(defun arcos (b)
(setq a (sqrt (- 1 (* b b))))
(setq jd (angtos (atan (/ a b)) 0 4))
)