已知三角形三边，求高

leimc

% ^; v4 W( k2 r: l& O! n这是lisp教程里的道练习题
( D4 v9 t5 ]0 d: I8 k% p利用海伦公式编制这种三角形的编码
9 D3 g  S5 X9 v. d: L这是我的作业
" Y- q5 o- }- @(defun c:hl(/ p1 p2 p3 a b c d h s p an1)
(setvar "cmdecho" 0)
(setq p1 (getpoint "\n插入点："))
(setq a (getreal "\n输入第一条边长度"))
(setq b (getreal "\n输入第二条边长度"))
: w* b. V1 G- c$ C+ S(setq c (getreal "\n输入第三条边长度"))
/ C% s1 T; ^9 m! A) x( S# p(setq p (/ (+ a b c) 2))
0 I" K- L5 p; N4 P4 w- t8 M5 a! e9 y(setq s (sqrt (* p (- p a) (- p b) (- p c))))
/ P3 w$ }" y2 i' U$ U3 d(setq h (/ (+ s s) a))
" r1 [6 U4 @! N(setq d (sqrt (- (* c c) (* h h))))
0 W: ?/ {4 e- Y! |; [+ A(setq p2 (polar p1 0 a))
(setq an1 (atan h d))
(setq p3 (polar p1 an1 c))
- K1 s5 y# f* I(command "pline" p1 p2 p3 "c")
. Q( T/ K' j& h9 g" J7 z4 ?: v0 [# i3 ^(prin1))
$ K4 J0 K* j7 l  B2 ^0 o完全OK，很高兴。
% p' [1 c/ P4 ^+ \$ E$ H, \: V( A* n" }
1 G+ z" ?5 Y  x[ 本帖最后由 leimc 于 2007-12-14 00:31 编辑 ]

jackie127cn

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

jackie127cn

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

jackie127cn

查了一下，原来你问的是这个！！哈哈哈…………
海伦公式
) q! \# D" n/ d$ e4 i边长分别为a、b、c，三角形的面积S可由以下公式求得：
; M4 H- x, Z$ f" }; N! T$ P    S=√[p(p-a)(p-b)(p-c)]
    而公式里的p为半周长：
    p=(a+b+c)/2
  求：h
3 u! P& U. V( g0 {9 r% N( O8 F& }            h=s/2c
前三楼给我占了！！！

leimc

谢谢！

xchzl

都是初中几何的知识！

wenjie2008

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

lichengxian1979

先学习学习！

richard1087

先学习学习！

小甩因齐

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

360035118

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