三角形问题求助

janekou

+ a0 D7 n. g* |$ f& E, M/ a

1. (defun c:an ()
   5 C$ i  Y1 U& l+ ~8 c
2. (setq aa (getpoint "选取左下角点:"))
   
3. (setq la (getreal "输入底边A的长度:"))
   , J) F! w# i& Z% `5 i" z
4. (setq lb (getreal "\n 输入B的长度:"))
   ) A) S% i1 X9 ]- S
5. (setq lc (getreal "输入C的长度:"))
   : H" z7 k6 `  e( E8 |: z. ?
6. 
   ! z, V4 a) y9 u. O/ t
7. (setq sz (/ (+ la lb lc) 2))
   
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   - G% m5 v" J' E& C
9. (setq lh (/ (* 2 area) a)
   7 _( R9 x7 p2 g3 D
10. 
    0 W* B3 n. `% s5 v( ~+ N# f
11. (setq bb (polar aa 0 la))
    
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    . W6 g$ m# t" n5 i0 p( I. K: p9 z
13. (setq ang1 (atan (/ lh ah)))
    
14. (setq cc (polar aa ang1 lc))
    
15. (command "pline" aa bb cc "c")
    
16. )
    3 v, \( F" o8 {' ?+ x' H
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
(setq lh (/ (* 2 area) a)
===>
* A  U0 Z- T3 o3 u9 O1 ^$ Z( X" \   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
) c! [, j& M, Z3 h   (setq lh (/ (* 2 area) la))

janekou

2# SunVei
1 z! f" n% v) N5 C7 _. Z感谢高人多次指点，哈哈，我真粗心啊~~