反三角函数

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

很好用的函数

账号		自动登录	找回密码
密码			注册

反三角函数

相关帖子