Vari

A = Point(xAxis)
Q = Point(yAxis)
a = OrthogonalLine(Q, yAxis)
b = OrthogonalLine(A, xAxis)
B = Intersect(a, b)
O = Intersect(xAxis, yAxis)
diag = Line(O, B)
Lot = OrthogonalLine(Q, diag)
P = Intersect(Lot, diag)
Ortslinie1 = Locus(P, Q)
e = Circle(P, B)
f = false
d = Segment(O, A)
Vieleck1, o, a_1, b_1, q = Polygon(O, A, B, Q)
g = Segment(O, B)
C, D = Intersect(e, g)
Ortslinie2 = Locus(D, Q)