三角形问题求助

janekou

1. (defun c:an ()
   
2. (setq aa (getpoint "选取左下角点:"))
   2 p* _5 Z' o4 y$ S/ x) ?
3. (setq la (getreal "输入底边A的长度:"))
   ) x7 a: V% [8 N: |/ c
4. (setq lb (getreal "\n 输入B的长度:"))
   % y9 x4 B: v% w) v+ E- d2 X( v1 A
5. (setq lc (getreal "输入C的长度:"))
   
6. 
   " \* U0 S' ~' I# E; r
7. (setq sz (/ (+ la lb lc) 2))
   ( R% s0 `; g/ I& J# }( b& Y. O; T
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   
9. (setq lh (/ (* 2 area) a)
   
10. 
    4 t: z4 |5 c6 |: M
11. (setq bb (polar aa 0 la))
    . V1 q& D; N4 a- W. R/ M
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    3 y2 H5 w! p( O% K9 Y0 Q' ]- ]( I
13. (setq ang1 (atan (/ lh ah)))
    
14. (setq cc (polar aa ang1 lc))
    8 U9 F0 `% W8 `& K& A3 H5 F
15. (command "pline" aa bb cc "c")
    
16. )
    8 D5 r+ h; h7 h8 }. _, f. Y
17. (prin1)

复制代码

请问这个什么地方出问题了呢？谢谢高人指点一下。

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
(setq lh (/ (* 2 area) a)
( D$ g; ~% H% R* G, M  C$ E===>
8 f! ?- o% T5 ?$ b: q% ^$ H( G9 |# g   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
' d# |! K! d/ U   (setq lh (/ (* 2 area) la))

janekou

2# SunVei
, n0 R& ^; v6 t8 O" D+ \& S感谢高人多次指点，哈哈，我真粗心啊~~