三角形问题求助

janekou

+ s' {7 d. o' l4 a/ t7 e

1. (defun c:an ()
   6 _+ O/ p6 i' C5 k
2. (setq aa (getpoint "选取左下角点:"))
   7 k& Y1 k3 [. p1 Q6 w+ f3 v
3. (setq la (getreal "输入底边A的长度:"))
   - O9 c4 o5 K" a( o3 ~
4. (setq lb (getreal "\n 输入B的长度:"))
   ) R' x. }6 e- @2 G4 p. W; P* {
5. (setq lc (getreal "输入C的长度:"))
   
6. 
   1 M2 Q+ c2 w3 B8 _+ q9 y% K
7. (setq sz (/ (+ la lb lc) 2))
   ( [2 ]7 Y# ~/ v; W% t
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   5 \- ^1 d9 W' n/ m) |4 o
9. (setq lh (/ (* 2 area) a)
   $ Q- Q) R$ s/ G% V8 G! @
10. 
    1 C  c# F( o( p& P& p
11. (setq bb (polar aa 0 la))
    
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    " Q+ m1 b1 }* a
13. (setq ang1 (atan (/ lh ah)))
    ) x: r% h" s8 z# [
14. (setq cc (polar aa ang1 lc))
    7 g6 {1 G( B( @6 _4 E
15. (command "pline" aa bb cc "c")
    " A6 s  T; D; c3 G  S
16. )
    
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
5 @2 ~1 O& n+ i, P& i7 j- s5 g(setq lh (/ (* 2 area) a)
===>
   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
3 [: F! o8 E" @' ?   (setq lh (/ (* 2 area) la))

janekou

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