三角形问题求助

janekou

6 Y* h- a7 U  Z

1. (defun c:an ()
   - B- d/ S1 v, ]) I: J) H
2. (setq aa (getpoint "选取左下角点:"))
   
3. (setq la (getreal "输入底边A的长度:"))
   
4. (setq lb (getreal "\n 输入B的长度:"))
   9 {4 a9 q& g; c! z% H* s6 P9 \/ S4 c9 T
5. (setq lc (getreal "输入C的长度:"))
   
6. 
   5 c' ]4 y/ |) Z2 h4 c, S" j
7. (setq sz (/ (+ la lb lc) 2))
   : y: P; c: T/ m0 ~- {
8. (setq area (* (- sz la) (- sz lb) (- sz lc)))
   
9. (setq lh (/ (* 2 area) a)
   
10. 
    . |0 [- Q" \" {1 x9 ?' N
11. (setq bb (polar aa 0 la))
    8 n# `. P: r( r  |8 K9 D
12. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    + U8 Z; x3 P9 b* e( c
13. (setq ang1 (atan (/ lh ah)))
    
14. (setq cc (polar aa ang1 lc))
    - `7 C  D! `0 @' b# y9 i
15. (command "pline" aa bb cc "c")
    ' d& y. B7 j6 p3 o; F3 J
16. )
    3 M( i4 s+ V" R  F# L4 C' {( N8 a8 w% J
17. (prin1)

复制代码

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

SunVei

(setq area (* (- sz la) (- sz lb) (- sz lc)))
; Y) q6 c$ N2 |1 ~9 l" E(setq lh (/ (* 2 area) a)
===>
1 g) `6 g7 x3 B# z! c, K2 b0 B, e   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
. p( S1 F. h; Z7 \  P   (setq lh (/ (* 2 area) la))

janekou

2# SunVei
1 {8 g$ }7 ?+ o4 }* B( Q; ^感谢高人多次指点，哈哈，我真粗心啊~~