如何定义反余弦函数

chamous

LISP中没有反余弦函数,但计算中常知道三角形的三个边,这时需要求出该三角形的一个角则没有相应的反余弦函数拿来用.相关计算公式:arccos(A)=arccos[(b*b+c*c -a*a)/2*b*c].如何定义这样一个函数呢?

恳请哪位大侠指教!

谢谢!

hxh2901

(defun acos(val)

(atan (/ (sqrt (- 1.0 (* val val))) val))

)

niuer

这样可以避免出现差错，也可加快运行 ！

(defun acos (x / ls )
 (cond
    ((= x 0)  (setq ls (* 0.5 pi)))
    ((= x 1)  (setq ls 0))
    ((= x -1) (setq ls pi))
    ((> (abs x) 1)      
      (alert "     ** ERROR **  \n arccos(x)的最大值是 1")     
      (setq pbcos "ERROR" ls 0)
    )
    ((< (abs x) 1)
      (setq ls (atan (/ (sqrt (- 1 (* x x))) x)) )
    )
 );cond
);defun acos