t = 1.6336281798666925 (slider from 0 to 6.283185307179586, step 0.01°)
n = 13 (slider from 2 to 50, step 1)
m = 4 (slider from 2 to 50, step 1)
r = 1 (slider from 0 to 5, step 0.001)
nEck = Polygon((1, 0), (cos((2 * π / n)), sin((2 * π / n))), n)
P: ((r * cos(t)), (r * sin(t)))
Figurenfolge = Sequence(Polygon[((r * cos(t)), (r * sin(t))), (cos(((k * 2) * π / n)), sin(((k * 2) * π / n))), m], k, 1, n)
AlSijziKreis = Circle((0, 0), r)
Flaechensumme = Sum(Sequence[Polygon[((r * cos(t)), (r * sin(t))), (cos(((k * 2) * π / n)), sin(((k * 2) * π / n))), m], k, 1, n])
Text1 = LaTeX(Flaechensumme, true, true)