Modulo-Potenz-Polygone
Author: Prof. Dr. Dörte Haftendorn

Aufeinanderfolgende Potenzen von a werden verbunden.

Ursprüngliche Anregung 2008 von Reimund Albers, Uni Bremen.

Ha 2010

O = (0, 0)
Null = (0, -1)
c = Circle(O, Null)
n = 10 (slider from 0 to 50, step 1)
pkt = Sequence((cos(i * 2.0 * 3.141592653589793 / n - 3.141592653589793 / 2.0), sin(i * 2.0 * 3.141592653589793 / n - 3.141592653589793 / 2.0)), i, 0.0, n)
a = 3 (slider from 0 to 50, step 1)
k = 6 (slider from 0 to 50, step 1)
LiZn = Sequence(Mod[a^(i), n], i, 0.0, k)
LiZ = Sequence(a^(i), i, 0.0, k)
Text1: "In Z " + LiZ
Text2: "In Z(" + n + ") " + LiZn
Eins = Element(pkt, 2.0)
Text3: "Modul Z(" + n + ")"
Liste1 = Sequence(Segment[Element[pkt, Mod[a^(i), n] + 1.0], Element[pkt, Mod[a^(i + 1.0), n] + 1.0]], i, 0.0, k - 1.0)
Text4: "Potenzen von " + a
Text6: "Bis zur " + k + "-ten Potenz von " + a