三角形问题求助

janekou

, h$ r9 F* S: G! V

1. (defun c:an ()
   # V& _5 k1 p: s& J5 D
2. (setq aa (getpoint "选取左下角点:"))
   6 x, K  i: }  [) `# J
3. (setq la (getreal "输入底边A的长度:"))
   6 x1 A8 @% u' o6 }8 m/ Q9 }' ^% H
4. (setq lb (getreal "\n 输入B的长度:"))
   
5. (setq lc (getreal "输入C的长度:"))
   
6. 
   
7. (setq sz (/ (+ la lb lc) 2))
   : a$ m1 T5 Z  E: u
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   / t- S! J% {, k1 X
9. (setq lh (/ (* 2 area) a)
   
10. 
    
11. (setq bb (polar aa 0 la))
    
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    
13. (setq ang1 (atan (/ lh ah)))
    + q/ W& I0 D+ V1 ~
14. (setq cc (polar aa ang1 lc))
    2 J2 m2 t1 o; p2 B
15. (command "pline" aa bb cc "c")
    
16. )
    
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
1 H1 ]0 N+ m( G; e(setq lh (/ (* 2 area) a)
; @5 h1 D; P- `( z$ J$ |' Q: U===>
  v) Y5 Y. U" O5 p# f, o   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
   (setq lh (/ (* 2 area) la))

janekou

2# SunVei
$ x* o2 s: A- ~& J" m( F感谢高人多次指点，哈哈，我真粗心啊~~