三角形问题求助

janekou

" ]/ Z* j6 ^- K. E7 Y" e' T

1. (defun c:an ()
   
2. (setq aa (getpoint "选取左下角点:"))
   " w3 a; z# M' C& s
3. (setq la (getreal "输入底边A的长度:"))
   ! Y2 O! [/ t% M4 Q6 r
4. (setq lb (getreal "\n 输入B的长度:"))
   6 q. R1 Q# |+ q6 S6 s7 s
5. (setq lc (getreal "输入C的长度:"))
   - M* g1 ]% ?, f$ O. O: Z, Z) \
6. 
   # P: C; k6 |& G% w5 x
7. (setq sz (/ (+ la lb lc) 2))
   
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   - [& J  Y- \3 Q# v6 R, O, k! g
9. (setq lh (/ (* 2 area) a)
   + u# y+ I& q( }
10. 
    . i$ I/ e. c: o; ]
11. (setq bb (polar aa 0 la))
      e; E9 ]8 r3 q3 |
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    % R2 \& `! z' `5 I
13. (setq ang1 (atan (/ lh ah)))
    
14. (setq cc (polar aa ang1 lc))
    
15. (command "pline" aa bb cc "c")
    5 ]. i3 a$ x& _, g: K! ~! j4 u
16. )
    " \) D0 W% a; h# n1 @# Z
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
/ [& B' \9 p8 x& A4 v2 j  b(setq lh (/ (* 2 area) a)
4 P7 i' p& c6 L$ R+ I===>
& L! E* }& E6 b, @   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
   (setq lh (/ (* 2 area) la))

janekou

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