3 Q6 z- [0 [' N: ~* a! X" w% c
这是lisp教程里的道练习题2 e" k# U! y: T' V
利用海伦公式编制这种三角形的编码
, P `& a! K% s" s; f6 m$ {这是我的作业2 s- t) q' N2 U I1 R* A
(defun c:hl(/ p1 p2 p3 a b c d h s p an1)
, I7 f" J& x1 p: s# I% q' P% E(setvar "cmdecho" 0)* d- k$ i. ?# }7 J) z. y8 ?
(setq p1 (getpoint "\n插入点："))( \$ R% l. Y% {7 |8 \/ ?
(setq a (getreal "\n输入第一条边长度"))
: D7 M# q+ y9 t6 l/ {" T7 j# }(setq b (getreal "\n输入第二条边长度"))7 l3 M# s$ e: P3 n* S
(setq c (getreal "\n输入第三条边长度"))7 [( K) e- n( K( Z$ b
(setq p (/ (+ a b c) 2))' F: ^! E! o; L# w3 b' U
(setq s (sqrt (* p (- p a) (- p b) (- p c))))
; d: R6 ^9 I* E$ h(setq h (/ (+ s s) a)) T9 f% i) Y% W( x1 o# O7 h" j
(setq d (sqrt (- (* c c) (* h h)))). b, g+ i! M2 A4 \4 d
(setq p2 (polar p1 0 a))' t1 O( B2 h8 F* N. }# C
(setq an1 (atan h d)); u& u& N1 M, d3 [) X
(setq p3 (polar p1 an1 c))
2 }8 d/ q1 | r8 E7 z f(command "pline" p1 p2 p3 "c")
0 o% b x" W0 O3 P# k(prin1)); ]( T( p( }. M6 U' Z; I" }) H
完全OK，很高兴。 / e& i7 N6 q4 \7 Y/ ^
0 g1 u9 Y+ l9 A! w! N[ 本帖最后由 leimc 于 2007-12-14 00:31 编辑 ] |
发表于 2007-12-13 22:11
楼主