Gesamtanzahl der Kugeln

Ziehungen:

Anzahl derZiehungen

Ziehung: {7, 6, 4, 3, 9, 3}
anzahlKugeln = 10 (slider from 1 to 10, step 1)
Z1 = Sequence(i, i, 0, anzahlKugeln - 1)
Z2: Z1
Z3: Z2
Z4: Z3
Z5: Z4
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 = 2 (slider from 1 to 6, step 1)
Kugeln = Sequence(i, i, 0, anzahlKugeln - 1)
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: Z5
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[MittenKugeln2(1) + (-0.5 | 1), MittenKugeln2(1) + (-0.5 | -0.5)], Segment[MittenKugeln2(1) + (-0.5 | -0.5), MittenKugeln2(Length[MittenKugeln2]) + (0.5 | -0.5)], Segment[MittenKugeln2(Length[MittenKugeln2]) + (0.5 | -0.5), MittenKugeln2(Length[MittenKugeln2]) + (0.5 | 1)]}
Urne3: {Segment[MittenKugeln3(1) + (-0.5 | 1), MittenKugeln3(1) + (-0.5 | -0.5)], Segment[MittenKugeln3(1) + (-0.5 | -0.5), MittenKugeln3(Length[MittenKugeln3]) + (0.5 | -0.5)], Segment[MittenKugeln3(Length[MittenKugeln3]) + (0.5 | -0.5), MittenKugeln3(Length[MittenKugeln3]) + (0.5 | 1)]}
Urne5: {Segment[MittenKugeln5(1) + (-0.5 | 1), MittenKugeln5(1) + (-0.5 | -0.5)], Segment[MittenKugeln5(1) + (-0.5 | -0.5), MittenKugeln5(Length[MittenKugeln5]) + (0.5 | -0.5)], Segment[MittenKugeln5(Length[MittenKugeln5]) + (0.5 | -0.5), MittenKugeln5(Length[MittenKugeln5]) + (0.5 | 1)]}
Urne6: {Segment[MittenKugeln6(1) + (-0.5 | 1), MittenKugeln6(1) + (-0.5 | -0.5)], Segment[MittenKugeln6(1) + (-0.5 | -0.5), MittenKugeln6(Length[MittenKugeln6]) + (0.5 | -0.5)], Segment[MittenKugeln6(Length[MittenKugeln6]) + (0.5 | -0.5), MittenKugeln6(Length[MittenKugeln6]) + (0.5 | 1)]}
Urne4: {Segment[MittenKugeln4(1) + (-0.5 | 1), MittenKugeln4(1) + (-0.5 | -0.5)], Segment[MittenKugeln4(1) + (-0.5 | -0.5), MittenKugeln4(Length[MittenKugeln4]) + (0.5 | -0.5)], Segment[MittenKugeln4(Length[MittenKugeln4]) + (0.5 | -0.5), MittenKugeln4(Length[MittenKugeln4]) + (0.5 | 1)]}