b

D

c

d

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
b = 9 (slider from a + 0.1 to x(B) + 5, step 0.01)
c_1 = Circle(B, b)
C = Point(c_1)
d_1 = Circle(A, b)
a = Segment(A, B)
e = Circle(C, a)
D = Intersect(d_1, e, 2)
b_2 = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)
E = Intersect(b_2, d)
D' = Intersect(d_1, e, 1)
c' = Segment(C, D')
d' = Segment(D', A)
G = Intersect(b_2, d')
Ortslinie1 = Locus(E, C)
k = Ellipse(D, C, E)
p = Ellipse(C, D', G)
Vieleck1, a_1, b_1, c_2, d_2 = Polygon(A, B, C, D)
Vieleck2, a_2, b_3, c_3, d'_1 = Polygon(A, B, C, D')
Ortslinie3 = Locus(G, C)