三角形问题求助

janekou

( F) B  W) u  [+ L2 U

1. (defun c:an ()
     o. V( e8 ^$ Q: {
2. (setq aa (getpoint "选取左下角点:"))
   
3. (setq la (getreal "输入底边A的长度:"))
   
4. (setq lb (getreal "\n 输入B的长度:"))
   1 w# I0 f) n3 K+ J7 c3 ?1 }# Y  ?+ R* K
5. (setq lc (getreal "输入C的长度:"))
   5 a4 \7 f, Z/ _5 b4 u+ m5 V
6. 
   # p: U" u; h, u1 y  F9 `- m5 d
7. (setq sz (/ (+ la lb lc) 2))
   
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   , Z" |. T1 }1 G1 ]
9. (setq lh (/ (* 2 area) a)
   8 K5 R5 O3 O9 x
10. 
    : i  W( f7 m6 C3 e4 z, p+ V7 g
11. (setq bb (polar aa 0 la))
    
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    / e/ Z! `+ p# l+ G
13. (setq ang1 (atan (/ lh ah)))
    2 [/ U6 E% I4 ?; f7 S3 A
14. (setq cc (polar aa ang1 lc))
    
15. (command "pline" aa bb cc "c")
    
16. )
    
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
# W+ \7 g. |% p( J8 ?(setq lh (/ (* 2 area) a)
===>
   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
3 T5 K; }: s7 ~& v) G4 o  q$ j8 ?   (setq lh (/ (* 2 area) la))

janekou

2# SunVei
感谢高人多次指点，哈哈，我真粗心啊~~