已知三角形三边，求高

leimc

这是lisp教程里的道练习题
" p3 u/ b( f1 I! W0 k利用海伦公式编制这种三角形的编码
- b' a8 U0 n1 U3 L这是我的作业
" a* d9 H% s8 n# O(defun c:hl(/ p1 p2 p3 a b c d h s p an1)
(setvar "cmdecho" 0)
/ M/ U/ T  N5 S3 o(setq p1 (getpoint "\n插入点："))
2 E. \. D( d. B- Z+ }( x. k5 e/ A(setq a (getreal "\n输入第一条边长度"))
(setq b (getreal "\n输入第二条边长度"))
  l" Y: q# W8 ?(setq c (getreal "\n输入第三条边长度"))
(setq p (/ (+ a b c) 2))
(setq s (sqrt (* p (- p a) (- p b) (- p c))))
(setq h (/ (+ s s) a))
8 a' m& t. L4 L7 q& A(setq d (sqrt (- (* c c) (* h h))))
5 J% d8 M, M" x& w(setq p2 (polar p1 0 a))
(setq an1 (atan h d))
0 P9 h% B" H6 n" Y7 g* {: X/ M(setq p3 (polar p1 an1 c))
(command "pline" p1 p2 p3 "c")
(prin1))
7 Q3 ?# ^$ o1 n' S完全OK，很高兴。
) ?& t" _4 H* V0 \& d3 V% A
1 [8 j' k$ e1 ^- P[ 本帖最后由 leimc 于 2007-12-14 00:31 编辑 ]

jackie127cn

看一都不明的你问的是什么！！

jackie127cn

晕！手快打错字了！！
看了都不明，你要问的是什么！！

jackie127cn

查了一下，原来你问的是这个！！哈哈哈…………
- B" `( Z- S8 Q+ }# k海伦公式
边长分别为a、b、c，三角形的面积S可由以下公式求得：
    S=√[p(p-a)(p-b)(p-c)]
* x& {, A* _, J% _3 D    而公式里的p为半周长：
5 R+ W& [" M4 Z( n# ?    p=(a+b+c)/2
  求：h
. }) ^- ?" P$ y- p2 Z/ I/ J% E9 J" p            h=s/2c
前三楼给我占了！！！

leimc

谢谢！

xchzl

都是初中几何的知识！

wenjie2008

学习了！！！！！！！！！！！

lichengxian1979

先学习学习！

richard1087

先学习学习！

小甩因齐

初中？额，玩了，初中没听

360035118

老师教的我都忘得差不多了