lisp算三角[三點]形面積

BDYCAD

2. ;;;2007-01-22
3. ;;;(setq p1(getpoint) p2(getpoint) p3(getpoint))
4. ;;;(setq 3a(get3PointList-Area p1 p2 p3))
5. (defun get3PointList-Area(p1 p2 p3)
6.   (setq p1-x(car p1)p1-y(cadr p1)
7. p2-x(car p2)p2-y(cadr p2)
8. p3-x(car p3)p3-y(cadr p3))
9.   (*(abs(-(+(* p1-x p2-y)(* p2-x p3-y)(* p3-x p1-y))
10.   (+(* p1-x p3-y)(* p2-x p1-y)(* p3-x p2-y))))0.5)
11.   )

;;;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)   )

skg123

　我国宋代的数学家秦九韶也提出了“三斜求积术”，它与海伦公式基本一样。 　　假设在平面内，有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得： 　
　S=√[p(p-a)(p-b)(p-c)] 　　
而公式里的p为半周长：p=(a+b+c)/2