A = (-0.36, 0.32)
c = Circle(A, 1.0)
z = Point(c)
C = Intersect(xAxis, yAxis)
u = Vector(C, z)
D = Point(xAxis)
α = Angle(D, C, z)
D' = Rotate(D, α, C)
D'' = Rotate(D', α, C)
D''' = Rotate(D'', α, C)
a = Ray(C, D''')
距離CB = Distance(C, z)
テキストCB: "\overline{" + (Name[C]) + (Name[z]) + "} \, = \, " + 距離CB
d = Circle(C, 距離CB^(3.0))
w = Intersect(d, a)
軌跡1 = Locus(w, z)
v = Vector(C, w)