circulos

Uma rotina para calcular o centro da circunferência que passa por três pontos conhecidos: expandir… (defun get-center-3p ( p1 p2 p3 / a1 a2 m1 m2) (setq a1 (angle p1 p2) a2 (angle p2 p3) m1 (polar p1 a1 (/ (distance p1 p2) 2)) m2 (polar p2 a2 (/ (distance p2 p3) 2))) (inters m1 […]