Gesamtanzahl der Kugeln

Ziehungen:

Anzahl derZiehungen

Ziehung: {1, 2, 3, 4, 5}
anzahlKugeln = 6 (slider from 1 to 9, step 1)
Z1 = Sequence(i, i, 1, anzahlKugeln)
Z2 = Remove(Z1, {Ziehung(1)})
Z3 = Remove(Z2, {Ziehung(2)})
Z4 = Remove(Z3, {Ziehung(3)})
Z5 = Remove(Z4, {Ziehung(4)})
k: (-0.1, -0.1)
MittenKugeln2 = Sequence((i + (10 - Length[Z2]) / 2 | 7), i, 0, Length[Z2] - 1)
T2_{1} = Zip(Text[LaTeX[i], P + k], i, Z2, P, MittenKugeln2)
r = 0.5 (slider from -5 to 5, step 0.1)
MittenKugeln1 = Sequence((i + (10 - Length[Z1]) / 2 | 9), i, 0, Length[Z1] - 1)
K1 = Zip(Circle[M, r], M, MittenKugeln1)
K2 = Zip(Circle[M, r], M, MittenKugeln2)
MittenKugeln3 = Sequence((i + (10 - Length[Z3]) / 2 | 5), i, 0, Length[Z3] - 1)
K3 = Zip(Circle[M, r], M, MittenKugeln3)
T1 = Zip(Text[LaTeX[i], P + k], i, Z1, P, MittenKugeln1)
T2 = Zip(Text[LaTeX[i], P + k], i, Z2, P, MittenKugeln2)
T3 = Zip(Text[LaTeX[i], P + k], i, Z3, P, MittenKugeln3)
i3 = IndexOf(Ziehung(3), Z3)
i2 = IndexOf(Ziehung(2), Z2)
i1 = IndexOf(Ziehung(1), Z1)
TG3 = Text(LaTeX[Ziehung(3)], MittenKugeln3(i3) + k)
TG1 = Text(LaTeX[Ziehung(1)], MittenKugeln1(i1) + k)
TG2 = Text(LaTeX[Ziehung(2)], MittenKugeln2(i2) + k)
Eingabefeld1 = Textfield(Ziehung)
anzahlZiehungen = 5 (slider from 1 to 6, step 1)
Kugeln = Sequence(i, i, 1, anzahlKugeln)
M4 = Sequence((7 | i), i, 0, anzahlKugeln - 4)
MittenKugeln4 = Sequence((i + (10 - Length[Z4]) / 2 | 3), i, 0, Length[Z4] - 1)
K4 = Zip(Circle[M, r], M, MittenKugeln4)
MittenKugeln5 = Sequence((i + (10 - Length[Z5]) / 2 | 1), i, 0, Length[Z5] - 1)
K5 = Zip(Circle[M, r], M, MittenKugeln5)
T4 = Zip(Text[LaTeX[i], P + k], i, Z4, P, MittenKugeln4)
T5 = Zip(Text[LaTeX[i], P + k], i, Z5, P, MittenKugeln5)
i4 = IndexOf(Ziehung(4), Z4)
i5 = IndexOf(Ziehung(5), Z5)
TG4 = Text(LaTeX[Ziehung(4)], MittenKugeln4(i4) + k)
TG5 = Text(LaTeX[Ziehung(5)], MittenKugeln5(i5) + k)
AbfolgeKugelnInUrne: {Kugeln}
Z6 = Remove(Z5, {Ziehung(5)})
i6 = IndexOf(Ziehung(6), Z6)
MittenKugeln6 = Sequence((i + (10 - Length[Z6]) / 2 | -1), i, 0, Length[Z6] - 1)
K6 = Zip(Circle[M, r], M, MittenKugeln6)
T6 = Zip(Text[LaTeX[i], P + k], i, Z6, P, MittenKugeln6)
TG6 = Text(LaTeX[Ziehung(6)], MittenKugeln6(i6) + k)
Urne1: {Segment[MittenKugeln1(1) + (-0.5 | 1), MittenKugeln1(1) + (-0.5 | -0.5)], Segment[MittenKugeln1(1) + (-0.5 | -0.5), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5)], Segment[MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | 1)]}
Urne2: {Segment[MittenKugeln1(1) + (-0.5 | 1) + (0 | -2), MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -2)], Segment[MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -2), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -2)], Segment[MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -2), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | 1) + (0 | -2)]}
Urne3: {Segment[MittenKugeln1(1) + (-0.5 | 1) + (0 | -4), MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -4)], Segment[MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -4), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -4)], Segment[MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -4), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | 1) + (0 | -4)]}
Urne4: {Segment[MittenKugeln1(1) + (-0.5 | 1) + (0 | -6), MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -6)], Segment[MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -6), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -6)], Segment[MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -6), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | 1) + (0 | -6)]}
Urne5: {Segment[MittenKugeln1(1) + (-0.5 | 1) + (0 | -8), MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -8)], Segment[MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -8), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -8)], Segment[MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -8), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | 1) + (0 | -8)]}
Urne6: {Segment[MittenKugeln1(1) + (-0.5 | 1) + (0 | -10), MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -10)], Segment[MittenKugeln1(1) + (-0.5 | -0.5) + (0 | -10), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -10)], Segment[MittenKugeln1(Length[MittenKugeln1]) + (0.5 | -0.5) + (0 | -10), MittenKugeln1(Length[MittenKugeln1]) + (0.5 | 1) + (0 | -10)]}