näytä lokus

näytä apusuorat

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