三维网

标题: 三角形问题求助 [打印本页]
作者: janekou    时间: 2011-5-26 17:33
标题: 三角形问题求助
本帖最后由 janekou 于 2011-5-26 18:35 编辑 6 u; l8 B& ?3 g2 I/ k) T
  1. (defun c:an ()
    * I4 _6 n6 ?# i( w& P% Q1 O7 [! V) `
  2. (setq aa (getpoint "选取左下角点:"))
    ' Q# H  V) q7 s1 w. }5 V; X
  3. (setq la (getreal "输入底边A的长度:"))& B; Y9 F+ q$ W5 p* A& e
  4. (setq lb (getreal "\n 输入B的长度:"))
    ! A' |  m) ]1 `! n
  5. (setq lc (getreal "输入C的长度:"))$ K2 z3 O3 z6 M; ^

  6.   b4 s; B2 l7 s4 r' v9 f
  7. (setq sz (/ (+ la lb lc) 2))
    9 p8 a- _3 }7 J, B' J- Z
  8. (setq area (* (- sz la) (- sz lb) (- sz lc))), ?1 e. P# X) Z& o9 L
  9. (setq lh (/ (* 2 area) a)$ k' e5 K+ b  B3 N' R- S
  10. ' c% N5 j0 Y, z. h2 t6 L
  11. (setq bb (polar aa 0 la))
    ( \6 x) A4 E! u8 ?! ?
  12. (setq ah  (sqrt (- (* lc lc) (* lh lh)))) ( f8 c9 U, q! q- g4 A
  13. (setq ang1 (atan (/ lh ah)))0 }( x* u! V+ l* R
  14. (setq cc (polar aa ang1 lc))
    1 \2 h0 C  p- K$ l# _" _
  15. (command "pline" aa bb cc "c")6 r7 w+ L7 t# f2 U6 N. }" ]
  16. )) J# ~+ M7 u' Q  P. }: v
  17. (prin1)
复制代码
[attach]1895490[/attach]请问这个什么地方出问题了呢？谢谢高人指点一下。
作者: SunVei    时间: 2011-5-26 18:10
(setq area (* (- sz la) (- sz lb) (- sz lc)))4 I! L( X0 @+ n% h
(setq lh (/ (* 2 area) a)
2 l% U" g/ H8 t. M6 T===>% H2 T/ t6 b4 g4 R( v
   (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc)))). R2 U  r( [" a/ Y6 \  w
   (setq lh (/ (* 2 area) la))
作者: janekou    时间: 2011-5-26 18:30
2# SunVei 4 N! H# H% Y) l# x2 D
感谢高人多次指点，哈哈，我真粗心啊~~



欢迎光临 三维网 (http://www.3dportal.cn/discuz/) Powered by Discuz! X3.4