Plocha trojúhelníku z bodů

Výpočet plochy trojúhelníku z bodů vrcholu využívá Heronova vzorce. Funkce je vhodná pro implementaci ve větších aplikacích, kde je výpočet nutné automatizovat. Pro běžného uživatele je k dispozici příkaz Plocha ve skupině příkazů Dotaz.

---

; Area of a triangle according to Heron's formula
(defun triarea ( p1 p2 p3 / side1 side2 side3 p area)

	(setq
	side1 (distance p1 p2)
	side2 (distance p2 p3)
	side3 (distance p3 p1)
	)
	
	; get half of triangle perimeter
	(setq p (/ (+ side1 side2 side3) 2))
	
	; calculate triangle area
	(setq a (sqrt (* p (- p side1) (- p side2) (- p side3))))
)

---

Soubor ke stažení