' Z3 Q7 e0 Z7 L6 n7 J9 X# p% E这是lisp教程里的道练习题
; a3 z( p3 r9 F! i+ \2 m利用海伦公式编制这种三角形的编码+ B7 ~' L; {6 \( S" I/ m" y
这是我的作业2 m) j. \+ W# p! }* i
(defun c:hl(/ p1 p2 p3 a b c d h s p an1)
' \9 p; ~3 s4 z8 ]5 h& C A8 K9 |(setvar "cmdecho" 0)
! k( a/ e( A/ W- ?& W; T. Y: ?4 a, A(setq p1 (getpoint "\n插入点："))
& J' E$ ?* H' d/ g. z/ o(setq a (getreal "\n输入第一条边长度"))
( V* q S5 l, m) u- j(setq b (getreal "\n输入第二条边长度"))
! p1 a: O+ p, H ^8 z) w(setq c (getreal "\n输入第三条边长度"))
) {! S, r# c. `, j( `# F$ k5 J(setq p (/ (+ a b c) 2))7 l& [ _3 g. \7 U7 I; y6 U7 A
(setq s (sqrt (* p (- p a) (- p b) (- p c))))' x7 u8 B' N4 f5 ?) r
(setq h (/ (+ s s) a))
% x5 c' ^4 K' A(setq d (sqrt (- (* c c) (* h h))))
& ^' t$ y; \$ i# _) T0 r+ k' {(setq p2 (polar p1 0 a))
: u' [& p( L& A4 f k! k! _# W2 o(setq an1 (atan h d))' d9 |# e6 P, ]% B" s
(setq p3 (polar p1 an1 c))
, |: b# k1 L4 B4 x0 B) S(command "pline" p1 p2 p3 "c")
' f0 S8 q" Q: V% G(prin1)); _" I5 V2 i+ f- y+ _: O
完全OK，很高兴。 9 ~2 F$ @" z: w5 {- q6 l N
; S7 }$ F& h7 ~[ 本帖最后由 leimc 于 2007-12-14 00:31 编辑 ] |
发表于 2007-12-13 22:11
楼主