Start

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(A, B)
a = 577 (slider from 1 to 730, step 1)
E = Point(c)
zufall = Random(360, 720)
v = Vector(A, E)
Geschwindigkeit = 3 (slider from 0 to 3, step 1)
V = Sequence(Vector[A, ((x(B) * sin((a * 3.14159 / 180))), (x(B) * cos((a * 3.14159 / 180))))], a, 0, 1080)
u = Element(V, a)
G2 = If(a > zufall, 0, Geschwindigkeit)
n = 5 (slider from 1 to 20, step 1)
U = Sequence(Segment[A, ((x(B) * cos((k * 6.283185308 / n))), (x(B) * sin((k * 6.283185308 / n))))], k, 1, n)
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)
A2 = (9, 0)
B2 = (13, 0)
c2 = Circle(A2, B2)
r = Vector(A, A2)
U' = Translate(U, r)
P' = Sequence((x(A2) + ((x(B) * 2 / 3) * cos(((n - k + 0.5) * 6.28319 / n))), y(A2) + ((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)
zufall2 = Random(720, 1075)
b = 814 (slider from 1 to 1100, step 1)
G3 = If(b > zufall2, 0, Geschwindigkeit)
V2: V + r
u2 = Vector(A2, Element[V2, b])