怎样将cos值转换成角度值?

lht

如:已知cosA=-0.57823，求角度值。

lht

已知COSA=-0.57823，求角度A。

ZZXXQQ

(/ (* (atan (/ (sqrt (- 1 (* cosa cosa))) cosa)) 180) pi)

lht

谢谢ZZXXQQ的帮助,问题已解决,我也做点贡献.
已知任意三角形的三边长a、b、c，求夹角。
(setq cosA (/ (- (+ (* b b) (* c c)) (* a a)) (* 2 b c)))
(if (< cosA 0) (setq ang (+ 180 (/ (* (atan (/ (sqrt (- 1 (* cosA cosA))) cosA)) 180) pi))))
(if (> cosA 0) (setq ang (/ (* (atan (/ (sqrt (- 1 (* cosA cosA))) cosA)) 180) pi)))
(if (= cosA 0) (setq ang 90)))
求出余弦值后，用下边的三个判断式来判断是锐角还是钝角并求出夹角ang(角度)。cosA为负则为钝角，cosA为正则为锐角，cosA=0则为直角。

啵浪鼓

命令: (/ (* 0.57823 180) pi)
33.1301

Andyhon

;;; acos
;;; -1<=y<=1
;;; returns inverse cos in radians
(defun acos (y)
   (atan (sqrt (- 1 (* y y))) y)
)         
  
Command: (acos -0.57823)
2.18735

xiewawa

很不错  学习了  感谢楼主的分享