get-center-3p

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 (polar m1 (+ a1 (/ pi 2)) 1)
          m2 (polar m2 (+ a2 (/ pi 2)) 1)
          nil))
útil em algumas rotinas que postarei mais adiante...

LinkWithin

Related Posts Plugin for WordPress, Blogger...