sxy1119 发表于 2016-5-11 14:22:54

反三角函数

本帖最后由 sxy1119 于 2016-5-11 14:33 编辑

编写一个反余弦函数程序如下所示，但是当num=cos (/pi 3)时与num=（/ 1 2）时结果不一样。求大神指教
(defun qiu_acos (num)
(if (= num 0) (atan 1 0)
                (atan (/ (sqrt (- 1 (* num num))) num)))
);反余弦

调用如下：
(setq aaa (cos (/pi 3)))
(setq cc (qiu_acos aaa))
(princ "cc=")
(princ cc);;结果为1.0472

(setq aaa (/ 1 2))
(setq cc (qiu_acos aaa))
(princ "cc=")
(princ cc)
;;运算结果为1.5708


sxy1119 发表于 2016-5-12 15:57:50

成功解决，应该是(setq aaa (/ 1 2.0))

vladimir 发表于 2016-6-5 21:03:37

很好用的函数
页: [1]
查看完整版本: 反三角函数