[讨论]三角形的程序代码错了大家帮个忙啊谢谢

cainiao

 (defun c:sjx()
(setq a (getreal "三角形一条边:"));可以用输入4(用3,4,5的直角三角形验证是否正确)
(setq b (getreal "\n三角形二条边:"));输入5
(setq c (getreal "\n三角形三条边:"));输入3
(setq p1 (getpoint "\n三角形初始位置:"))(terpri);指定第一点
(setq p2 (polar p1 0 b))
(setq aaa (/ (* (+ (* b b) (* c c)) (* a a)) (* 2 b c)));用余弦公式求角度a变对应的角余弦值；
(setq aa (atan (/ (- 1 (* aaa aaa)) aaa)));用反正切求的角度
(setq p3 (polar p1 aa c));求出第三点
(command "line" "non" p1 "non" p2 "non" p3 "c");连接三点就是不是我要的实际3,4,5的三角形，哪里错了啊感觉是公事用错了
)

cainiao

来两个大侠啊伴我看看啊

xyp1964

(defun c:sjx ()
  (setq a   (getreal "\n三角形一条边: ") ;可以用输入4(用3,4,5的直角三角形验证是否正确)
 b   (getreal "\n三角形二条边: ") ;输入5
 c   (getreal "\n三角形三条边: ") ;输入3
 p1  (getpoint "\n三角形初始位置:")
 p2  (polar p1 0 a)
 aaa (/ (+ (* a a) (* b b) (* c c -1.)) (* 2. a b)) ;用余弦公式求角度a变对应的角余弦值；
 aa  (XYP-TF-ACOS aaa)  ;用反正切求的角度
 p3  (polar p1 aa b)
  )     ;求出第三点
  (command "pline" "non" p1 "non" p2 "non" p3 "c") ;连接三点就是不是我要的实际3,4,5的三角形，哪里错了啊感觉是公事用错了
  (princ)
)

lsjj

版主您要幫忙也幫到底,就一個aa也要xyp

xyp1964

(defun xyp-TF-Acos(num)(if (= num 0) (atan 1 0) (atan (/ (sqrt (- 1 (* num num))) num))))