三角形问题求助

janekou

% C1 k9 h+ j3 l- p

1. (defun c:an ()
   1 K; L# K0 [+ B4 b& v
2. (setq aa (getpoint "选取左下角点:"))
   
3. (setq la (getreal "输入底边A的长度:"))
   
4. (setq lb (getreal "\n 输入B的长度:"))
   + H0 x/ h# e. j/ k- B. ?
5. (setq lc (getreal "输入C的长度:"))
   
6. 
   
7. (setq sz (/ (+ la lb lc) 2))
   ( l0 u. Q1 _4 x
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   " d4 c! o- l. e: V! S, i! U, x* O
9. (setq lh (/ (* 2 area) a)
   
10. 
    
11. (setq bb (polar aa 0 la))
    & y$ w8 G; ~2 g: ^: y8 }$ u. o
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
      H7 G: i3 ~; J9 Q  j/ C
13. (setq ang1 (atan (/ lh ah)))
    4 [" [' t+ |, w0 ?
14. (setq cc (polar aa ang1 lc))
    
15. (command "pline" aa bb cc "c")
    - c& U8 ]# C5 c# B0 `( {
16. )
    ( U; {: X  Z* h( G# w
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
(setq lh (/ (* 2 area) a)
8 N) d% E# ~  G$ C* ^$ O! O7 ^===>
- v: i7 h1 F' ?+ r4 g; e/ G& {   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
   (setq lh (/ (* 2 area) la))

janekou

2# SunVei
: l" Z- U6 h7 N2 x感谢高人多次指点，哈哈，我真粗心啊~~