näytä lokus

näytä apusuorat

A = Point(xAxis)
B = Intersect(xAxis, yAxis)
c = Circle(A, B)
C = Point(yAxis)
S = OrthogonalLine(C, yAxis)
p = Point(S)
a = Line(B, p)
q = Intersect(c, a, 2)
b = OrthogonalLine(p, xAxis)
D = Intersect(b, xAxis)
d = OrthogonalLine(q, b)
z = Intersect(b, d)
loc1 = Locus(z, p)
e = true
f = false