n = 25 (slider from 3 to 1500, step 1)
r = 4 (slider from 1 to 10, step 1)
L1 = Sequence((r * cos(k * 2 * π / n), r * sin(k * 2 * π / n)), k, 0, n - 1)
b = PolyLine(Append[L1, (r, 0)])
A = Intersect(xAxis, yAxis)
c_1 = Circle(A, r)
nEck = Polygon(L1)
c: b / (2 * r)
Text1 = LaTeX(c, true, true)
Vieleck2, f, a_1, g = Polygon(A, Element[L1, 1], Element[L1, 2])
a = Segment((-r, 0), (r, 0))
Text2 = Text("Umfang des " + n + "-Ecks = " + c + "*Durchmesser")