已知三角形三边，求高

leimc · 发表于 2007-12-13 22:11

这是lisp教程里的道练习题
利用海伦公式编制这种三角形的编码
这是我的作业
(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输入第二条边长度"))
(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))
(setq d (sqrt (- (* c c) (* h h))))
(setq p2 (polar p1 0 a))
(setq an1 (atan h d))
(setq p3 (polar p1 an1 c))
(command "pline" p1 p2 p3 "c")
(prin1))
完全OK，很高兴。

[ 本帖最后由 leimc 于 2007-12-14 00:31 编辑 ]

jackie127cn · 发表于 2007-12-13 23:32

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

jackie127cn · 发表于 2007-12-13 23:33

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

jackie127cn · 发表于 2007-12-14 00:27

查了一下，原来你问的是这个！！哈哈哈…………
海伦公式
边长分别为a、b、c，三角形的面积S可由以下公式求得：
S=√[p(p-a)(p-b)(p-c)]
而公式里的p为半周长：
p=(a+b+c)/2
求：h
h=s/2c

前三楼给我占了！！！

leimc · 发表于 2007-12-14 00:33

谢谢！

xchzl · 发表于 2007-12-14 08:03

都是初中几何的知识！

wenjie2008 · 发表于 2012-11-3 18:38

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

lichengxian1979 · 发表于 2012-11-15 09:16

先学习学习！

richard1087 · 发表于 2012-11-16 11:52

先学习学习！

小甩因齐 · 发表于 2012-11-27 19:24

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

360035118 · 发表于 2012-11-28 13:17

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

		自动登录	找回密码
密码			立即注册

[练习] 已知三角形三边，求高

本帖子中包含更多资源

回复 #4 jackie127cn 的帖子