START

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(A, B)
a = 214 (slider from 1 to 360, step 1)
b = false
E = Point(c)
v = Vector(A, E)
Geschwindigkeit = 36 (slider from 0 to 40, step 1)
V = Sequence(Vector[A, ((x(B) * sin((a * 3.14159 / 180))), (x(B) * cos((a * 3.14159 / 180))))], a, 0, 360)
u = Element(V, a)
n = 17 (slider from 1 to 20, step 1)
P = Sequence((((x(B) * 2 / 3) * cos(((n - k + 0.5) * 6.28319 / n))), ((x(B) * 2 / 3) * sin(((n - k + 0.5) * 6.28319 / n)))), k, 1, n)
T = Sequence(Text[k, Element[P, k]], k, 1, n)
U = Sequence(Segment[A, ((x(B) * cos((k * 6.28319 / n))), (x(B) * sin((k * 6.28319 / n))))], k, 1, n)