找不到反正，余弦函数！郁闷

whybuthow

正，余弦函数！分别是？？？？ 我查了很久的资料都查不到！
谢谢提供信息！

无痕

sorry，什么是“正，余弦函数”？

jans

你是说反正切和反余切函数!根据三角函数关系,自己算吧!

秋枫

2. (defun arcsin(r / result )
3.    (if (and (/= 1 (abs r))(/= 1.0 (abs r)))
4.            (setq result (atan (/ r (sqrt (- 1 (* r r))))))
5.            (cond ((< r 0) (setq result (/ pi -2.0)))
6.                        ((> r 0) (setq result (/ pi 2.0)))
7.            )
8.    )
9.    result
10. )
11. (defun arccos(r / result)
12.    (if (and (/= r 0)(/= r 0.0))
13.      (setq result (atan (/ (sqrt (- 1 (* r r))) r)))
14.      (setq result (/ pi 2))
15.    )
16.    (if (< result 0)
17.      (setq result (+ pi result))
18.    )
19.    (if (or (= r -1)(= r -1.0))(setq result pi))
20.    result
21. )

(defun arcsin(r / result )    (if (and (/= 1 (abs r))(/= 1.0 (abs r)))            (setq result (atan (/ r (sqrt (- 1 (* r r))))))            (cond ((< r 0) (setq result (/ pi -2.0)))                        ((> r 0) (setq result (/ pi 2.0)))            )    )    result ) (defun arccos(r / result)    (if (and (/= r 0)(/= r 0.0))      (setq result (atan (/ (sqrt (- 1 (* r r))) r)))      (setq result (/ pi 2))    )    (if (< result 0)      (setq result (+ pi result))    )    (if (or (= r -1)(= r -1.0))(setq result pi))    result )

afeng0712

好象正切函数也没有啊？？？是不是？老是要正、余弦函数相除挺占内容的！

秋枫

自己定义一个嘛。


上面我已经给出了例子了……这些函数是可以互相推导出来的。