A = (-5.12, 1.74)
f = OrthogonalLine(A, xAxis)
B = Point(f)
g = OrthogonalLine(A, yAxis)
C = Point(g)
h = OrthogonalLine(C, g)
i = OrthogonalLine(B, h)
D = Intersect(h, i)
c = Circle(A, B)
d = Circle(C, D)
a = 0 (slider from 0 to 5, step 1)
n: (6 * 2^(a))
Liste1 = Sequence(Rotate[B, (i * (360°) / n), A], i, 0, n)
Vieleck1 = Polygon(Liste1)
D' = Rotate(D, (180°) / n, C)
α = Angle(D, C, D')
j = Line(C, D')
k = OrthogonalLine(D', j)
E = Intersect(h, k)
Liste2 = Sequence(Rotate[E, (i * (360°) / n), C], i, 0, n)
Vieleck2 = Polygon(Liste2)
Text1: "n =" + (LaTeX[n]) + ""