連続する円 - DyGeom.m on Mathematica+KETpic

ver 0.40以降でどうぞ

---

SetDirectory[NotebookDirectory[]];
<< DyGeom.m
p1 = FreePoint[{-3, 0}]
p2 = FreePoint[{-1, 0.1}]
l = ConnectPoints[p1, p2]
c1 = CircleByCenter[p2, p1]
p3 = GeomIntersection[c1, l, not -> p1]
c2 = CircleByCenter[p3, p2]
p4 = GeomIntersection[c2, l, not -> p2]
c3 = CircleByCenter[p4, p3]
p5 = GeomIntersection[c3, l, not -> p3, pointname -> "Z", pointposition -> "ne2"]
q1 = GeomIntersection[c1, c2, direction -> "n", pointname -> "X", pointposition -> "n2"]
q2 = GeomIntersection[c1, c2, not -> q1, pointname -> "Y", pointposition -> "s2"]
DrawConstruction[p1, p2, p3, p4, p5, l, c1, c2, c3, q1, q2]

---