[LISP] 请问lisp中有没有反函数？？？

MRHDF

(sin h)  等0.23565464

h=???

xazhji

可以通过atan 得到

yshf

LISP中没有，可以自定义一个。

(defun asin(x)
   (cond ((= x  1.0) (* 0.5 pi))
  ((= x -1.0) (* 1.5 pi))
  (t (atan x (sqrt (- 1 (* x x)))))
   )
)

 

kematy

难到只能用

(defun sinh(x)
  (/ (- expt(x) expt(-x))  2)

)

来定义吗?

xyp1964

2. ;;;反正弦
3. (defun asin (num)
4.   (if (= num 1)
5.     (atan 1 0)
6.     (atan (/ num (sqrt (- 1 (* num num)))))
7.   )
8. )
9. ;;;反余弦
10. (defun acos (num)
11.   (if (= num 0)
12.     (atan 1 0)
13.     (atan (/ (sqrt (- 1 (* num num))) num))
14.   )
15. )

;;;反正弦 (defun asin (num)   (if (= num 1)     (atan 1 0)     (atan (/ num (sqrt (- 1 (* num num)))))   ) ) ;;;反余弦 (defun acos (num)   (if (= num 0)     (atan 1 0)     (atan (/ (sqrt (- 1 (* num num))) num))   ) )

quark

顶

北方的狼

ap-api.fas中有ap-asin函数