lisp算三角[三點]形面積
本帖最后由 作者 于 2007-1-24 9:26:48 编辑;;;2007-01-22
;;;(setq p1(getpoint) p2(getpoint) p3(getpoint))
;;;(setq 3a(get3PointList-Area p1 p2 p3))
(defun get3PointList-Area(p1 p2 p3)
(setq p1-x(car p1)p1-y(cadr p1)
p2-x(car p2)p2-y(cadr p2)
p3-x(car p3)p3-y(cadr p3))
(*(abs(-(+(* p1-x p2-y)(* p2-x p3-y)(* p3-x p1-y))
(+(* p1-x p3-y)(* p2-x p1-y)(* p3-x p2-y))))0.5)
) 我国宋代的数学家秦九韶也提出了“三斜求积术”，它与海伦公式基本一样。 假设在平面内，有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：
S=√
而公式里的p为半周长：p=(a+b+c)/2
页:
[1]