, G+ c/ A" {+ ?4 t( S6 {. _这是lisp教程里的道练习题4 R% |6 A1 k! \! i
利用海伦公式编制这种三角形的编码
3 n& B2 F5 ?; g. S: x这是我的作业5 U0 Q6 F% }8 J+ A9 A
(defun c:hl(/ p1 p2 p3 a b c d h s p an1)
, K, h! P# L9 o" ]/ Z7 G(setvar "cmdecho" 0)0 {9 ^& L2 W7 t4 R+ h% w5 Q* ?
(setq p1 (getpoint "\n插入点："))
, n" m: W- ]( Z4 o! t7 P(setq a (getreal "\n输入第一条边长度"))7 f9 ^: K& t2 [% I$ \& s
(setq b (getreal "\n输入第二条边长度"))
& w% ]7 r+ c7 Q5 Z(setq c (getreal "\n输入第三条边长度"))
, W! Q9 z6 v) j, v7 X1 G(setq p (/ (+ a b c) 2))9 C v; S. X/ L$ i$ d8 \
(setq s (sqrt (* p (- p a) (- p b) (- p c))))% }: Y" N7 X1 H. K6 q/ T1 h
(setq h (/ (+ s s) a))( {8 j2 D# I& i, z
(setq d (sqrt (- (* c c) (* h h))))
/ S+ `, t# h- _* r2 e( ^, R3 v(setq p2 (polar p1 0 a))
+ o/ J: |) k/ G Z(setq an1 (atan h d))- ]$ U4 y3 M3 S* U* H
(setq p3 (polar p1 an1 c))
' m$ Z( y/ M1 z5 P+ c3 k2 W( C$ _(command "pline" p1 p2 p3 "c")
7 d. d) j" L2 r; Z, v3 R) u" ?+ j- e(prin1)). ^" O5 r( c- |5 S% _' D/ T
完全OK，很高兴。
* W& L% H' B: J1 ^0 ]! `! _
8 [7 M( e* s( P9 i[ 本帖最后由 leimc 于 2007-12-14 00:31 编辑 ] |
发表于 2007-12-13 22:11
楼主