Diagonalen in einem regelmäßigen n-Eck

Animation ein

d = 0 (slider from 0 to dn, step 1)
anzahl = 7 (slider from 3 to 15, step 1)
A = (0.08, -1.02)
r = 5.01 (slider from 1 to 10, step 0.01)
neck = Sequence(A + ((r * cos(((2 * π / anzahl) * k))), (r * sin(((2 * π / anzahl) * k)))), k, 0, anzahl)
dn: (anzahl * (anzahl - 1) / 2)
k = 1 (slider from -5 to 5, step 0.01)
dL = Join(Sequence[Sequence[Segment[Element[neck, k], Element[neck, j]], j, k + 1, anzahl], k, 1, anzahl - 1])
Diagonalen = Sequence(Element[dL, k], k, 1, d)
anim = false
Text2: "Wie viele Diagonalen hat das " + anzahl + "-Eck?
Die Animation soll dir beim Überlegen helfen."