三角形问题求助

janekou

1. (defun c:an ()
   ' B! d7 S$ M( Z2 {# ?& w! _/ g
2. (setq aa (getpoint "选取左下角点:"))
   
3. (setq la (getreal "输入底边A的长度:"))
   
4. (setq lb (getreal "\n 输入B的长度:"))
   + V1 g+ ]8 j( W, G
5. (setq lc (getreal "输入C的长度:"))
   ) \! |& N: ]1 p; Y/ [3 z0 M3 w
6. 
   + R- w- t6 C3 R9 X" j6 h1 \/ V' ~
7. (setq sz (/ (+ la lb lc) 2))
   
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   2 S  |3 c  }. m! I: f/ u
9. (setq lh (/ (* 2 area) a)
   
10. 
    * B6 ^: D! q% M! E7 N
11. (setq bb (polar aa 0 la))
    5 ?3 ^6 X! o' m- {4 h' c
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    ( I+ U& T, s- |
13. (setq ang1 (atan (/ lh ah)))
    
14. (setq cc (polar aa ang1 lc))
    
15. (command "pline" aa bb cc "c")
    
16. )
    0 P# {8 |( G) m
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
(setq lh (/ (* 2 area) a)
6 h: {' G) }- ~$ _. Y3 R( b===>
   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
   (setq lh (/ (* 2 area) la))

janekou

2# SunVei
+ K" z7 V: b7 f* \: g感谢高人多次指点，哈哈，我真粗心啊~~