Zufall

Summe

Kugelnummer

Im linken Behälter befinden sich 20 nummerierte Kugeln.
Wir erzeugen eine Zufallszahl aus dem Bereich 1 bis 20. 
Die Kugel mit dieser Nummer wechselt den Behälter. 
Dieser Vorgang wird N-mal wiederholt. 
Das Histogramm zeigt die Wahrscheinlichkeiten für die Kugelanzahlen im 1. Behälter.

Histogramm

N = 2 (slider from 1 to 36, step 1)
C = (6.15, 8.1)
D = (-0.1, 8.1)
F = (9.9, 8.1)
H = (16.15, 8.1)
A = (-0.1, 1.9)
B = (6.15, 1.9)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
E = (9.9, 1.9)
G = (16.15, 1.9)
Vieleck2, f, e, g, h = Polygon(F, E, G, H)
p = 0.5
q = 0.5
B2 = 1
C2: B2 + 1
D2: C2 + 1
E2: D2 + 1
F2: E2 + 1
G2: F2 + 1
H2: G2 + 1
I2: H2 + 1
J2: I2 + 1
K2: J2 + 1
B4 = 1
C4 = 1
D4: (2 * C4) - B4
E4: (2 * D4) - C4
F4: (2 * E4) - D4
G4: (2 * F4) - E4
H4: (2 * G4) - F4
I4: (2 * H4) - G4
J4: (2 * I4) - H4
A5 = Random(1, 20)
A6 = Random(1, 20)
A7 = Random(1, 20)
A8 = Random(1, 20)
A9 = Random(1, 20)
K4: (2 * J4) - I4
B5 = If($A5 ≠ B$2, B4, Mod[B4 + 1, 2])
B6 = If($A6 ≠ B$2, B5, Mod[B5 + 1, 2])
B7 = If($A7 ≠ B$2, B6, Mod[B6 + 1, 2])
B8 = If($A8 ≠ B$2, B7, Mod[B7 + 1, 2])
C5 = If($A5 ≠ C$2, C4, Mod[C4 + 1, 2])
D5 = If($A5 ≠ D$2, D4, Mod[D4 + 1, 2])
E5 = If($A5 ≠ E$2, E4, Mod[E4 + 1, 2])
F5 = If($A5 ≠ F$2, F4, Mod[F4 + 1, 2])
G5 = If($A5 ≠ G$2, G4, Mod[G4 + 1, 2])
H5 = If($A5 ≠ H$2, H4, Mod[H4 + 1, 2])
I5 = If($A5 ≠ I$2, I4, Mod[I4 + 1, 2])
J5 = If($A5 ≠ J$2, J4, Mod[J4 + 1, 2])
K5 = If($A5 ≠ K$2, K4, Mod[K4 + 1, 2])
C6 = If($A6 ≠ C$2, C5, Mod[C5 + 1, 2])
D6 = If($A6 ≠ D$2, D5, Mod[D5 + 1, 2])
E6 = If($A6 ≠ E$2, E5, Mod[E5 + 1, 2])
F6 = If($A6 ≠ F$2, F5, Mod[F5 + 1, 2])
G6 = If($A6 ≠ G$2, G5, Mod[G5 + 1, 2])
H6 = If($A6 ≠ H$2, H5, Mod[H5 + 1, 2])
I6 = If($A6 ≠ I$2, I5, Mod[I5 + 1, 2])
J6 = If($A6 ≠ J$2, J5, Mod[J5 + 1, 2])
K6 = If($A6 ≠ K$2, K5, Mod[K5 + 1, 2])
C7 = If($A7 ≠ C$2, C6, Mod[C6 + 1, 2])
D7 = If($A7 ≠ D$2, D6, Mod[D6 + 1, 2])
E7 = If($A7 ≠ E$2, E6, Mod[E6 + 1, 2])
F7 = If($A7 ≠ F$2, F6, Mod[F6 + 1, 2])
G7 = If($A7 ≠ G$2, G6, Mod[G6 + 1, 2])
H7 = If($A7 ≠ H$2, H6, Mod[H6 + 1, 2])
I7 = If($A7 ≠ I$2, I6, Mod[I6 + 1, 2])
J7 = If($A7 ≠ J$2, J6, Mod[J6 + 1, 2])
K7 = If($A7 ≠ K$2, K6, Mod[K6 + 1, 2])
C8 = If($A8 ≠ C$2, C7, Mod[C7 + 1, 2])
D8 = If($A8 ≠ D$2, D7, Mod[D7 + 1, 2])
E8 = If($A8 ≠ E$2, E7, Mod[E7 + 1, 2])
F8 = If($A8 ≠ F$2, F7, Mod[F7 + 1, 2])
G8 = If($A8 ≠ G$2, G7, Mod[G7 + 1, 2])
H8 = If($A8 ≠ H$2, H7, Mod[H7 + 1, 2])
I8 = If($A8 ≠ I$2, I7, Mod[I7 + 1, 2])
J8 = If($A8 ≠ J$2, J7, Mod[J7 + 1, 2])
K8 = If($A8 ≠ K$2, K7, Mod[K7 + 1, 2])
B9 = If($A9 ≠ B$2, B8, Mod[B8 + 1, 2])
C9 = If($A9 ≠ C$2, C8, Mod[C8 + 1, 2])
D9 = If($A9 ≠ D$2, D8, Mod[D8 + 1, 2])
E9 = If($A9 ≠ E$2, E8, Mod[E8 + 1, 2])
F9 = If($A9 ≠ F$2, F8, Mod[F8 + 1, 2])
G9 = If($A9 ≠ G$2, G8, Mod[G8 + 1, 2])
H9 = If($A9 ≠ H$2, H8, Mod[H8 + 1, 2])
I9 = If($A9 ≠ I$2, I8, Mod[I8 + 1, 2])
J9 = If($A9 ≠ J$2, J8, Mod[J8 + 1, 2])
A10 = Random(1, 20)
A11 = Random(1, 20)
A12 = Random(1, 20)
A13 = Random(1, 20)
A14 = Random(1, 20)
A15 = Random(1, 20)
A16 = Random(1, 20)
A17 = Random(1, 20)
A18 = Random(1, 20)
A19 = Random(1, 20)
A20 = Random(1, 20)
K9 = If($A9 ≠ K$2, K8, Mod[K8 + 1, 2])
B10 = If($A10 ≠ B$2, B9, Mod[B9 + 1, 2])
B11 = If($A11 ≠ B$2, B10, Mod[B10 + 1, 2])
B12 = If($A12 ≠ B$2, B11, Mod[B11 + 1, 2])
B13 = If($A13 ≠ B$2, B12, Mod[B12 + 1, 2])
B14 = If($A14 ≠ B$2, B13, Mod[B13 + 1, 2])
B15 = If($A15 ≠ B$2, B14, Mod[B14 + 1, 2])
B16 = If($A16 ≠ B$2, B15, Mod[B15 + 1, 2])
B17 = If($A17 ≠ B$2, B16, Mod[B16 + 1, 2])
B18 = If($A18 ≠ B$2, B17, Mod[B17 + 1, 2])
B19 = If($A19 ≠ B$2, B18, Mod[B18 + 1, 2])
B20 = If($A20 ≠ B$2, B19, Mod[B19 + 1, 2])
C10 = If($A10 ≠ C$2, C9, Mod[C9 + 1, 2])
C11 = If($A11 ≠ C$2, C10, Mod[C10 + 1, 2])
C12 = If($A12 ≠ C$2, C11, Mod[C11 + 1, 2])
C13 = If($A13 ≠ C$2, C12, Mod[C12 + 1, 2])
C14 = If($A14 ≠ C$2, C13, Mod[C13 + 1, 2])
C15 = If($A15 ≠ C$2, C14, Mod[C14 + 1, 2])
C16 = If($A16 ≠ C$2, C15, Mod[C15 + 1, 2])
C17 = If($A17 ≠ C$2, C16, Mod[C16 + 1, 2])
C18 = If($A18 ≠ C$2, C17, Mod[C17 + 1, 2])
C19 = If($A19 ≠ C$2, C18, Mod[C18 + 1, 2])
C20 = If($A20 ≠ C$2, C19, Mod[C19 + 1, 2])
D10 = If($A10 ≠ D$2, D9, Mod[D9 + 1, 2])
D11 = If($A11 ≠ D$2, D10, Mod[D10 + 1, 2])
D12 = If($A12 ≠ D$2, D11, Mod[D11 + 1, 2])
D13 = If($A13 ≠ D$2, D12, Mod[D12 + 1, 2])
D14 = If($A14 ≠ D$2, D13, Mod[D13 + 1, 2])
D15 = If($A15 ≠ D$2, D14, Mod[D14 + 1, 2])
D16 = If($A16 ≠ D$2, D15, Mod[D15 + 1, 2])
D17 = If($A17 ≠ D$2, D16, Mod[D16 + 1, 2])
D18 = If($A18 ≠ D$2, D17, Mod[D17 + 1, 2])
D19 = If($A19 ≠ D$2, D18, Mod[D18 + 1, 2])
D20 = If($A20 ≠ D$2, D19, Mod[D19 + 1, 2])
E10 = If($A10 ≠ E$2, E9, Mod[E9 + 1, 2])
E11 = If($A11 ≠ E$2, E10, Mod[E10 + 1, 2])
E12 = If($A12 ≠ E$2, E11, Mod[E11 + 1, 2])
E13 = If($A13 ≠ E$2, E12, Mod[E12 + 1, 2])
E14 = If($A14 ≠ E$2, E13, Mod[E13 + 1, 2])
E15 = If($A15 ≠ E$2, E14, Mod[E14 + 1, 2])
E16 = If($A16 ≠ E$2, E15, Mod[E15 + 1, 2])
E17 = If($A17 ≠ E$2, E16, Mod[E16 + 1, 2])
E18 = If($A18 ≠ E$2, E17, Mod[E17 + 1, 2])
E19 = If($A19 ≠ E$2, E18, Mod[E18 + 1, 2])
E20 = If($A20 ≠ E$2, E19, Mod[E19 + 1, 2])
F10 = If($A10 ≠ F$2, F9, Mod[F9 + 1, 2])
F11 = If($A11 ≠ F$2, F10, Mod[F10 + 1, 2])
F12 = If($A12 ≠ F$2, F11, Mod[F11 + 1, 2])
F13 = If($A13 ≠ F$2, F12, Mod[F12 + 1, 2])
F14 = If($A14 ≠ F$2, F13, Mod[F13 + 1, 2])
F15 = If($A15 ≠ F$2, F14, Mod[F14 + 1, 2])
F16 = If($A16 ≠ F$2, F15, Mod[F15 + 1, 2])
F17 = If($A17 ≠ F$2, F16, Mod[F16 + 1, 2])
F18 = If($A18 ≠ F$2, F17, Mod[F17 + 1, 2])
F19 = If($A19 ≠ F$2, F18, Mod[F18 + 1, 2])
F20 = If($A20 ≠ F$2, F19, Mod[F19 + 1, 2])
G10 = If($A10 ≠ G$2, G9, Mod[G9 + 1, 2])
G11 = If($A11 ≠ G$2, G10, Mod[G10 + 1, 2])
G12 = If($A12 ≠ G$2, G11, Mod[G11 + 1, 2])
G13 = If($A13 ≠ G$2, G12, Mod[G12 + 1, 2])
G14 = If($A14 ≠ G$2, G13, Mod[G13 + 1, 2])
G15 = If($A15 ≠ G$2, G14, Mod[G14 + 1, 2])
G16 = If($A16 ≠ G$2, G15, Mod[G15 + 1, 2])
G17 = If($A17 ≠ G$2, G16, Mod[G16 + 1, 2])
G18 = If($A18 ≠ G$2, G17, Mod[G17 + 1, 2])
G19 = If($A19 ≠ G$2, G18, Mod[G18 + 1, 2])
G20 = If($A20 ≠ G$2, G19, Mod[G19 + 1, 2])
H10 = If($A10 ≠ H$2, H9, Mod[H9 + 1, 2])
H11 = If($A11 ≠ H$2, H10, Mod[H10 + 1, 2])
H12 = If($A12 ≠ H$2, H11, Mod[H11 + 1, 2])
H13 = If($A13 ≠ H$2, H12, Mod[H12 + 1, 2])
H14 = If($A14 ≠ H$2, H13, Mod[H13 + 1, 2])
H15 = If($A15 ≠ H$2, H14, Mod[H14 + 1, 2])
H16 = If($A16 ≠ H$2, H15, Mod[H15 + 1, 2])
H17 = If($A17 ≠ H$2, H16, Mod[H16 + 1, 2])
H18 = If($A18 ≠ H$2, H17, Mod[H17 + 1, 2])
H19 = If($A19 ≠ H$2, H18, Mod[H18 + 1, 2])
H20 = If($A20 ≠ H$2, H19, Mod[H19 + 1, 2])
I10 = If($A10 ≠ I$2, I9, Mod[I9 + 1, 2])
I11 = If($A11 ≠ I$2, I10, Mod[I10 + 1, 2])
I12 = If($A12 ≠ I$2, I11, Mod[I11 + 1, 2])
I13 = If($A13 ≠ I$2, I12, Mod[I12 + 1, 2])
I14 = If($A14 ≠ I$2, I13, Mod[I13 + 1, 2])
I15 = If($A15 ≠ I$2, I14, Mod[I14 + 1, 2])
I16 = If($A16 ≠ I$2, I15, Mod[I15 + 1, 2])
I17 = If($A17 ≠ I$2, I16, Mod[I16 + 1, 2])
I18 = If($A18 ≠ I$2, I17, Mod[I17 + 1, 2])
I19 = If($A19 ≠ I$2, I18, Mod[I18 + 1, 2])
I20 = If($A20 ≠ I$2, I19, Mod[I19 + 1, 2])
J10 = If($A10 ≠ J$2, J9, Mod[J9 + 1, 2])
J11 = If($A11 ≠ J$2, J10, Mod[J10 + 1, 2])
J12 = If($A12 ≠ J$2, J11, Mod[J11 + 1, 2])
J13 = If($A13 ≠ J$2, J12, Mod[J12 + 1, 2])
J14 = If($A14 ≠ J$2, J13, Mod[J13 + 1, 2])
J15 = If($A15 ≠ J$2, J14, Mod[J14 + 1, 2])
J16 = If($A16 ≠ J$2, J15, Mod[J15 + 1, 2])
J17 = If($A17 ≠ J$2, J16, Mod[J16 + 1, 2])
J18 = If($A18 ≠ J$2, J17, Mod[J17 + 1, 2])
J19 = If($A19 ≠ J$2, J18, Mod[J18 + 1, 2])
J20 = If($A20 ≠ J$2, J19, Mod[J19 + 1, 2])
K10 = If($A10 ≠ K$2, K9, Mod[K9 + 1, 2])
K11 = If($A11 ≠ K$2, K10, Mod[K10 + 1, 2])
K12 = If($A12 ≠ K$2, K11, Mod[K11 + 1, 2])
K13 = If($A13 ≠ K$2, K12, Mod[K12 + 1, 2])
K14 = If($A14 ≠ K$2, K13, Mod[K13 + 1, 2])
K15 = If($A15 ≠ K$2, K14, Mod[K14 + 1, 2])
K16 = If($A16 ≠ K$2, K15, Mod[K15 + 1, 2])
K17 = If($A17 ≠ K$2, K16, Mod[K16 + 1, 2])
K18 = If($A18 ≠ K$2, K17, Mod[K17 + 1, 2])
NN = Sequence(Object["V" + (t)], t, 4, 40)
K19 = If($A19 ≠ K$2, K18, Mod[K18 + 1, 2])
K20 = If($A20 ≠ K$2, K19, Mod[K19 + 1, 2])
n = 20
i = BarChart(-0.5, n + 0.5, Sequence[(((5 * Binomial[n, k]) * p^(k)) * q^(n - k)), k, 0, n])
L2: K2 + 1
M2: L2 + 1
N2: M2 + 1
O2: N2 + 1
P2: O2 + 1
Q2: P2 + 1
R2: Q2 + 1
S2: R2 + 1
T2: S2 + 1
U2: T2 + 1
L4: (2 * K4) - J4
M4: (2 * L4) - K4
N4: (2 * M4) - L4
O4: (2 * N4) - M4
P4: (2 * O4) - N4
Q4: (2 * P4) - O4
R4: (2 * Q4) - P4
S4: (2 * R4) - Q4
T4: (2 * S4) - R4
U4: (2 * T4) - S4
V4 = Sum($B4:$U4)
L5 = If($A5 ≠ L$2, L4, Mod[L4 + 1, 2])
M5 = If($A5 ≠ M$2, M4, Mod[M4 + 1, 2])
N5 = If($A5 ≠ N$2, N4, Mod[N4 + 1, 2])
O5 = If($A5 ≠ O$2, O4, Mod[O4 + 1, 2])
P5 = If($A5 ≠ P$2, P4, Mod[P4 + 1, 2])
Q5 = If($A5 ≠ Q$2, Q4, Mod[Q4 + 1, 2])
R5 = If($A5 ≠ R$2, R4, Mod[R4 + 1, 2])
S5 = If($A5 ≠ S$2, S4, Mod[S4 + 1, 2])
T5 = If($A5 ≠ T$2, T4, Mod[T4 + 1, 2])
U5 = If($A5 ≠ U$2, U4, Mod[U4 + 1, 2])
L6 = If($A6 ≠ L$2, L5, Mod[L5 + 1, 2])
L7 = If($A7 ≠ L$2, L6, Mod[L6 + 1, 2])
L8 = If($A8 ≠ L$2, L7, Mod[L7 + 1, 2])
M6 = If($A6 ≠ M$2, M5, Mod[M5 + 1, 2])
N6 = If($A6 ≠ N$2, N5, Mod[N5 + 1, 2])
O6 = If($A6 ≠ O$2, O5, Mod[O5 + 1, 2])
P6 = If($A6 ≠ P$2, P5, Mod[P5 + 1, 2])
Q6 = If($A6 ≠ Q$2, Q5, Mod[Q5 + 1, 2])
R6 = If($A6 ≠ R$2, R5, Mod[R5 + 1, 2])
S6 = If($A6 ≠ S$2, S5, Mod[S5 + 1, 2])
T6 = If($A6 ≠ T$2, T5, Mod[T5 + 1, 2])
U6 = If($A6 ≠ U$2, U5, Mod[U5 + 1, 2])
M7 = If($A7 ≠ M$2, M6, Mod[M6 + 1, 2])
N7 = If($A7 ≠ N$2, N6, Mod[N6 + 1, 2])
O7 = If($A7 ≠ O$2, O6, Mod[O6 + 1, 2])
P7 = If($A7 ≠ P$2, P6, Mod[P6 + 1, 2])
Q7 = If($A7 ≠ Q$2, Q6, Mod[Q6 + 1, 2])
R7 = If($A7 ≠ R$2, R6, Mod[R6 + 1, 2])
S7 = If($A7 ≠ S$2, S6, Mod[S6 + 1, 2])
T7 = If($A7 ≠ T$2, T6, Mod[T6 + 1, 2])
U7 = If($A7 ≠ U$2, U6, Mod[U6 + 1, 2])
M8 = If($A8 ≠ M$2, M7, Mod[M7 + 1, 2])
N8 = If($A8 ≠ N$2, N7, Mod[N7 + 1, 2])
O8 = If($A8 ≠ O$2, O7, Mod[O7 + 1, 2])
P8 = If($A8 ≠ P$2, P7, Mod[P7 + 1, 2])
Q8 = If($A8 ≠ Q$2, Q7, Mod[Q7 + 1, 2])
R8 = If($A8 ≠ R$2, R7, Mod[R7 + 1, 2])
S8 = If($A8 ≠ S$2, S7, Mod[S7 + 1, 2])
T8 = If($A8 ≠ T$2, T7, Mod[T7 + 1, 2])
U8 = If($A8 ≠ U$2, U7, Mod[U7 + 1, 2])
L9 = If($A9 ≠ L$2, L8, Mod[L8 + 1, 2])
M9 = If($A9 ≠ M$2, M8, Mod[M8 + 1, 2])
N9 = If($A9 ≠ N$2, N8, Mod[N8 + 1, 2])
O9 = If($A9 ≠ O$2, O8, Mod[O8 + 1, 2])
P9 = If($A9 ≠ P$2, P8, Mod[P8 + 1, 2])
Q9 = If($A9 ≠ Q$2, Q8, Mod[Q8 + 1, 2])
R9 = If($A9 ≠ R$2, R8, Mod[R8 + 1, 2])
S9 = If($A9 ≠ S$2, S8, Mod[S8 + 1, 2])
T9 = If($A9 ≠ T$2, T8, Mod[T8 + 1, 2])
U9 = If($A9 ≠ U$2, U8, Mod[U8 + 1, 2])
L10 = If($A10 ≠ L$2, L9, Mod[L9 + 1, 2])
L11 = If($A11 ≠ L$2, L10, Mod[L10 + 1, 2])
L12 = If($A12 ≠ L$2, L11, Mod[L11 + 1, 2])
L13 = If($A13 ≠ L$2, L12, Mod[L12 + 1, 2])
L14 = If($A14 ≠ L$2, L13, Mod[L13 + 1, 2])
L15 = If($A15 ≠ L$2, L14, Mod[L14 + 1, 2])
L16 = If($A16 ≠ L$2, L15, Mod[L15 + 1, 2])
L17 = If($A17 ≠ L$2, L16, Mod[L16 + 1, 2])
L18 = If($A18 ≠ L$2, L17, Mod[L17 + 1, 2])
L19 = If($A19 ≠ L$2, L18, Mod[L18 + 1, 2])
L20 = If($A20 ≠ L$2, L19, Mod[L19 + 1, 2])
M10 = If($A10 ≠ M$2, M9, Mod[M9 + 1, 2])
M11 = If($A11 ≠ M$2, M10, Mod[M10 + 1, 2])
M12 = If($A12 ≠ M$2, M11, Mod[M11 + 1, 2])
M13 = If($A13 ≠ M$2, M12, Mod[M12 + 1, 2])
M14 = If($A14 ≠ M$2, M13, Mod[M13 + 1, 2])
M15 = If($A15 ≠ M$2, M14, Mod[M14 + 1, 2])
M16 = If($A16 ≠ M$2, M15, Mod[M15 + 1, 2])
M17 = If($A17 ≠ M$2, M16, Mod[M16 + 1, 2])
M18 = If($A18 ≠ M$2, M17, Mod[M17 + 1, 2])
M19 = If($A19 ≠ M$2, M18, Mod[M18 + 1, 2])
M20 = If($A20 ≠ M$2, M19, Mod[M19 + 1, 2])
N10 = If($A10 ≠ N$2, N9, Mod[N9 + 1, 2])
N11 = If($A11 ≠ N$2, N10, Mod[N10 + 1, 2])
N12 = If($A12 ≠ N$2, N11, Mod[N11 + 1, 2])
N13 = If($A13 ≠ N$2, N12, Mod[N12 + 1, 2])
N14 = If($A14 ≠ N$2, N13, Mod[N13 + 1, 2])
N15 = If($A15 ≠ N$2, N14, Mod[N14 + 1, 2])
N16 = If($A16 ≠ N$2, N15, Mod[N15 + 1, 2])
N17 = If($A17 ≠ N$2, N16, Mod[N16 + 1, 2])
N18 = If($A18 ≠ N$2, N17, Mod[N17 + 1, 2])
N19 = If($A19 ≠ N$2, N18, Mod[N18 + 1, 2])
N20 = If($A20 ≠ N$2, N19, Mod[N19 + 1, 2])
O10 = If($A10 ≠ O$2, O9, Mod[O9 + 1, 2])
O11 = If($A11 ≠ O$2, O10, Mod[O10 + 1, 2])
O12 = If($A12 ≠ O$2, O11, Mod[O11 + 1, 2])
O13 = If($A13 ≠ O$2, O12, Mod[O12 + 1, 2])
O14 = If($A14 ≠ O$2, O13, Mod[O13 + 1, 2])
O15 = If($A15 ≠ O$2, O14, Mod[O14 + 1, 2])
O16 = If($A16 ≠ O$2, O15, Mod[O15 + 1, 2])
O17 = If($A17 ≠ O$2, O16, Mod[O16 + 1, 2])
O18 = If($A18 ≠ O$2, O17, Mod[O17 + 1, 2])
O19 = If($A19 ≠ O$2, O18, Mod[O18 + 1, 2])
O20 = If($A20 ≠ O$2, O19, Mod[O19 + 1, 2])
P10 = If($A10 ≠ P$2, P9, Mod[P9 + 1, 2])
P11 = If($A11 ≠ P$2, P10, Mod[P10 + 1, 2])
P12 = If($A12 ≠ P$2, P11, Mod[P11 + 1, 2])
P13 = If($A13 ≠ P$2, P12, Mod[P12 + 1, 2])
P14 = If($A14 ≠ P$2, P13, Mod[P13 + 1, 2])
P15 = If($A15 ≠ P$2, P14, Mod[P14 + 1, 2])
P16 = If($A16 ≠ P$2, P15, Mod[P15 + 1, 2])
P17 = If($A17 ≠ P$2, P16, Mod[P16 + 1, 2])
P18 = If($A18 ≠ P$2, P17, Mod[P17 + 1, 2])
P19 = If($A19 ≠ P$2, P18, Mod[P18 + 1, 2])
P20 = If($A20 ≠ P$2, P19, Mod[P19 + 1, 2])
Q10 = If($A10 ≠ Q$2, Q9, Mod[Q9 + 1, 2])
Q11 = If($A11 ≠ Q$2, Q10, Mod[Q10 + 1, 2])
Q12 = If($A12 ≠ Q$2, Q11, Mod[Q11 + 1, 2])
Q13 = If($A13 ≠ Q$2, Q12, Mod[Q12 + 1, 2])
Q14 = If($A14 ≠ Q$2, Q13, Mod[Q13 + 1, 2])
Q15 = If($A15 ≠ Q$2, Q14, Mod[Q14 + 1, 2])
Q16 = If($A16 ≠ Q$2, Q15, Mod[Q15 + 1, 2])
Q17 = If($A17 ≠ Q$2, Q16, Mod[Q16 + 1, 2])
Q18 = If($A18 ≠ Q$2, Q17, Mod[Q17 + 1, 2])
Q19 = If($A19 ≠ Q$2, Q18, Mod[Q18 + 1, 2])
Q20 = If($A20 ≠ Q$2, Q19, Mod[Q19 + 1, 2])
R10 = If($A10 ≠ R$2, R9, Mod[R9 + 1, 2])
R11 = If($A11 ≠ R$2, R10, Mod[R10 + 1, 2])
R12 = If($A12 ≠ R$2, R11, Mod[R11 + 1, 2])
R13 = If($A13 ≠ R$2, R12, Mod[R12 + 1, 2])
R14 = If($A14 ≠ R$2, R13, Mod[R13 + 1, 2])
R15 = If($A15 ≠ R$2, R14, Mod[R14 + 1, 2])
R16 = If($A16 ≠ R$2, R15, Mod[R15 + 1, 2])
R17 = If($A17 ≠ R$2, R16, Mod[R16 + 1, 2])
R18 = If($A18 ≠ R$2, R17, Mod[R17 + 1, 2])
R19 = If($A19 ≠ R$2, R18, Mod[R18 + 1, 2])
R20 = If($A20 ≠ R$2, R19, Mod[R19 + 1, 2])
S10 = If($A10 ≠ S$2, S9, Mod[S9 + 1, 2])
S11 = If($A11 ≠ S$2, S10, Mod[S10 + 1, 2])
S12 = If($A12 ≠ S$2, S11, Mod[S11 + 1, 2])
S13 = If($A13 ≠ S$2, S12, Mod[S12 + 1, 2])
S14 = If($A14 ≠ S$2, S13, Mod[S13 + 1, 2])
S15 = If($A15 ≠ S$2, S14, Mod[S14 + 1, 2])
S16 = If($A16 ≠ S$2, S15, Mod[S15 + 1, 2])
S17 = If($A17 ≠ S$2, S16, Mod[S16 + 1, 2])
S18 = If($A18 ≠ S$2, S17, Mod[S17 + 1, 2])
S19 = If($A19 ≠ S$2, S18, Mod[S18 + 1, 2])
S20 = If($A20 ≠ S$2, S19, Mod[S19 + 1, 2])
T10 = If($A10 ≠ T$2, T9, Mod[T9 + 1, 2])
T11 = If($A11 ≠ T$2, T10, Mod[T10 + 1, 2])
T12 = If($A12 ≠ T$2, T11, Mod[T11 + 1, 2])
T13 = If($A13 ≠ T$2, T12, Mod[T12 + 1, 2])
T14 = If($A14 ≠ T$2, T13, Mod[T13 + 1, 2])
T15 = If($A15 ≠ T$2, T14, Mod[T14 + 1, 2])
T16 = If($A16 ≠ T$2, T15, Mod[T15 + 1, 2])
T17 = If($A17 ≠ T$2, T16, Mod[T16 + 1, 2])
T18 = If($A18 ≠ T$2, T17, Mod[T17 + 1, 2])
T19 = If($A19 ≠ T$2, T18, Mod[T18 + 1, 2])
T20 = If($A20 ≠ T$2, T19, Mod[T19 + 1, 2])
U10 = If($A10 ≠ U$2, U9, Mod[U9 + 1, 2])
U11 = If($A11 ≠ U$2, U10, Mod[U10 + 1, 2])
U12 = If($A12 ≠ U$2, U11, Mod[U11 + 1, 2])
U13 = If($A13 ≠ U$2, U12, Mod[U12 + 1, 2])
U14 = If($A14 ≠ U$2, U13, Mod[U13 + 1, 2])
U15 = If($A15 ≠ U$2, U14, Mod[U14 + 1, 2])
U16 = If($A16 ≠ U$2, U15, Mod[U15 + 1, 2])
U17 = If($A17 ≠ U$2, U16, Mod[U16 + 1, 2])
U18 = If($A18 ≠ U$2, U17, Mod[U17 + 1, 2])
U19 = If($A19 ≠ U$2, U18, Mod[U18 + 1, 2])
U20 = If($A20 ≠ U$2, U19, Mod[U19 + 1, 2])
V5 = Sum($B5:$U5)
V6 = Sum($B6:$U6)
V7 = Sum($B7:$U7)
V8 = Sum($B8:$U8)
V9 = Sum($B9:$U9)
V10 = Sum($B10:$U10)
V11 = Sum($B11:$U11)
V12 = Sum($B12:$U12)
V13 = Sum($B13:$U13)
V14 = Sum($B14:$U14)
V15 = Sum($B15:$U15)
V16 = Sum($B16:$U16)
V17 = Sum($B17:$U17)
V18 = Sum($B18:$U18)
V19 = Sum($B19:$U19)
V20 = Sum($B20:$U20)
A21 = Random(1, 20)
B21 = If($A21 ≠ B$2, B20, Mod[B20 + 1, 2])
C21 = If($A21 ≠ C$2, C20, Mod[C20 + 1, 2])
D21 = If($A21 ≠ D$2, D20, Mod[D20 + 1, 2])
E21 = If($A21 ≠ E$2, E20, Mod[E20 + 1, 2])
F21 = If($A21 ≠ F$2, F20, Mod[F20 + 1, 2])
G21 = If($A21 ≠ G$2, G20, Mod[G20 + 1, 2])
H21 = If($A21 ≠ H$2, H20, Mod[H20 + 1, 2])
I21 = If($A21 ≠ I$2, I20, Mod[I20 + 1, 2])
J21 = If($A21 ≠ J$2, J20, Mod[J20 + 1, 2])
K21 = If($A21 ≠ K$2, K20, Mod[K20 + 1, 2])
L21 = If($A21 ≠ L$2, L20, Mod[L20 + 1, 2])
M21 = If($A21 ≠ M$2, M20, Mod[M20 + 1, 2])
N21 = If($A21 ≠ N$2, N20, Mod[N20 + 1, 2])
O21 = If($A21 ≠ O$2, O20, Mod[O20 + 1, 2])
P21 = If($A21 ≠ P$2, P20, Mod[P20 + 1, 2])
Q21 = If($A21 ≠ Q$2, Q20, Mod[Q20 + 1, 2])
R21 = If($A21 ≠ R$2, R20, Mod[R20 + 1, 2])
S21 = If($A21 ≠ S$2, S20, Mod[S20 + 1, 2])
T21 = If($A21 ≠ T$2, T20, Mod[T20 + 1, 2])
U21 = If($A21 ≠ U$2, U20, Mod[U20 + 1, 2])
V21 = Sum($B21:$U21)
A22 = Random(1, 20)
B22 = If($A22 ≠ B$2, B21, Mod[B21 + 1, 2])
C22 = If($A22 ≠ C$2, C21, Mod[C21 + 1, 2])
D22 = If($A22 ≠ D$2, D21, Mod[D21 + 1, 2])
E22 = If($A22 ≠ E$2, E21, Mod[E21 + 1, 2])
F22 = If($A22 ≠ F$2, F21, Mod[F21 + 1, 2])
G22 = If($A22 ≠ G$2, G21, Mod[G21 + 1, 2])
H22 = If($A22 ≠ H$2, H21, Mod[H21 + 1, 2])
I22 = If($A22 ≠ I$2, I21, Mod[I21 + 1, 2])
J22 = If($A22 ≠ J$2, J21, Mod[J21 + 1, 2])
K22 = If($A22 ≠ K$2, K21, Mod[K21 + 1, 2])
L22 = If($A22 ≠ L$2, L21, Mod[L21 + 1, 2])
M22 = If($A22 ≠ M$2, M21, Mod[M21 + 1, 2])
N22 = If($A22 ≠ N$2, N21, Mod[N21 + 1, 2])
O22 = If($A22 ≠ O$2, O21, Mod[O21 + 1, 2])
P22 = If($A22 ≠ P$2, P21, Mod[P21 + 1, 2])
Q22 = If($A22 ≠ Q$2, Q21, Mod[Q21 + 1, 2])
R22 = If($A22 ≠ R$2, R21, Mod[R21 + 1, 2])
S22 = If($A22 ≠ S$2, S21, Mod[S21 + 1, 2])
T22 = If($A22 ≠ T$2, T21, Mod[T21 + 1, 2])
U22 = If($A22 ≠ U$2, U21, Mod[U21 + 1, 2])
V22 = Sum($B22:$U22)
A23 = Random(1, 20)
B23 = If($A23 ≠ B$2, B22, Mod[B22 + 1, 2])
C23 = If($A23 ≠ C$2, C22, Mod[C22 + 1, 2])
D23 = If($A23 ≠ D$2, D22, Mod[D22 + 1, 2])
E23 = If($A23 ≠ E$2, E22, Mod[E22 + 1, 2])
F23 = If($A23 ≠ F$2, F22, Mod[F22 + 1, 2])
G23 = If($A23 ≠ G$2, G22, Mod[G22 + 1, 2])
H23 = If($A23 ≠ H$2, H22, Mod[H22 + 1, 2])
I23 = If($A23 ≠ I$2, I22, Mod[I22 + 1, 2])
J23 = If($A23 ≠ J$2, J22, Mod[J22 + 1, 2])
K23 = If($A23 ≠ K$2, K22, Mod[K22 + 1, 2])
L23 = If($A23 ≠ L$2, L22, Mod[L22 + 1, 2])
M23 = If($A23 ≠ M$2, M22, Mod[M22 + 1, 2])
N23 = If($A23 ≠ N$2, N22, Mod[N22 + 1, 2])
O23 = If($A23 ≠ O$2, O22, Mod[O22 + 1, 2])
P23 = If($A23 ≠ P$2, P22, Mod[P22 + 1, 2])
Q23 = If($A23 ≠ Q$2, Q22, Mod[Q22 + 1, 2])
R23 = If($A23 ≠ R$2, R22, Mod[R22 + 1, 2])
S23 = If($A23 ≠ S$2, S22, Mod[S22 + 1, 2])
T23 = If($A23 ≠ T$2, T22, Mod[T22 + 1, 2])
U23 = If($A23 ≠ U$2, U22, Mod[U22 + 1, 2])
V23 = Sum($B23:$U23)
A24 = Random(1, 20)
B24 = If($A24 ≠ B$2, B23, Mod[B23 + 1, 2])
C24 = If($A24 ≠ C$2, C23, Mod[C23 + 1, 2])
D24 = If($A24 ≠ D$2, D23, Mod[D23 + 1, 2])
E24 = If($A24 ≠ E$2, E23, Mod[E23 + 1, 2])
F24 = If($A24 ≠ F$2, F23, Mod[F23 + 1, 2])
G24 = If($A24 ≠ G$2, G23, Mod[G23 + 1, 2])
H24 = If($A24 ≠ H$2, H23, Mod[H23 + 1, 2])
I24 = If($A24 ≠ I$2, I23, Mod[I23 + 1, 2])
J24 = If($A24 ≠ J$2, J23, Mod[J23 + 1, 2])
K24 = If($A24 ≠ K$2, K23, Mod[K23 + 1, 2])
L24 = If($A24 ≠ L$2, L23, Mod[L23 + 1, 2])
M24 = If($A24 ≠ M$2, M23, Mod[M23 + 1, 2])
N24 = If($A24 ≠ N$2, N23, Mod[N23 + 1, 2])
O24 = If($A24 ≠ O$2, O23, Mod[O23 + 1, 2])
P24 = If($A24 ≠ P$2, P23, Mod[P23 + 1, 2])
Q24 = If($A24 ≠ Q$2, Q23, Mod[Q23 + 1, 2])
R24 = If($A24 ≠ R$2, R23, Mod[R23 + 1, 2])
S24 = If($A24 ≠ S$2, S23, Mod[S23 + 1, 2])
T24 = If($A24 ≠ T$2, T23, Mod[T23 + 1, 2])
U24 = If($A24 ≠ U$2, U23, Mod[U23 + 1, 2])
V24 = Sum($B24:$U24)
A25 = Random(1, 20)
B25 = If($A25 ≠ B$2, B24, Mod[B24 + 1, 2])
C25 = If($A25 ≠ C$2, C24, Mod[C24 + 1, 2])
D25 = If($A25 ≠ D$2, D24, Mod[D24 + 1, 2])
E25 = If($A25 ≠ E$2, E24, Mod[E24 + 1, 2])
F25 = If($A25 ≠ F$2, F24, Mod[F24 + 1, 2])
G25 = If($A25 ≠ G$2, G24, Mod[G24 + 1, 2])
H25 = If($A25 ≠ H$2, H24, Mod[H24 + 1, 2])
I25 = If($A25 ≠ I$2, I24, Mod[I24 + 1, 2])
J25 = If($A25 ≠ J$2, J24, Mod[J24 + 1, 2])
K25 = If($A25 ≠ K$2, K24, Mod[K24 + 1, 2])
L25 = If($A25 ≠ L$2, L24, Mod[L24 + 1, 2])
M25 = If($A25 ≠ M$2, M24, Mod[M24 + 1, 2])
N25 = If($A25 ≠ N$2, N24, Mod[N24 + 1, 2])
O25 = If($A25 ≠ O$2, O24, Mod[O24 + 1, 2])
P25 = If($A25 ≠ P$2, P24, Mod[P24 + 1, 2])
Q25 = If($A25 ≠ Q$2, Q24, Mod[Q24 + 1, 2])
R25 = If($A25 ≠ R$2, R24, Mod[R24 + 1, 2])
S25 = If($A25 ≠ S$2, S24, Mod[S24 + 1, 2])
T25 = If($A25 ≠ T$2, T24, Mod[T24 + 1, 2])
U25 = If($A25 ≠ U$2, U24, Mod[U24 + 1, 2])
V25 = Sum($B25:$U25)
A26 = Random(1, 20)
B26 = If($A26 ≠ B$2, B25, Mod[B25 + 1, 2])
C26 = If($A26 ≠ C$2, C25, Mod[C25 + 1, 2])
D26 = If($A26 ≠ D$2, D25, Mod[D25 + 1, 2])
E26 = If($A26 ≠ E$2, E25, Mod[E25 + 1, 2])
F26 = If($A26 ≠ F$2, F25, Mod[F25 + 1, 2])
G26 = If($A26 ≠ G$2, G25, Mod[G25 + 1, 2])
H26 = If($A26 ≠ H$2, H25, Mod[H25 + 1, 2])
I26 = If($A26 ≠ I$2, I25, Mod[I25 + 1, 2])
J26 = If($A26 ≠ J$2, J25, Mod[J25 + 1, 2])
K26 = If($A26 ≠ K$2, K25, Mod[K25 + 1, 2])
L26 = If($A26 ≠ L$2, L25, Mod[L25 + 1, 2])
M26 = If($A26 ≠ M$2, M25, Mod[M25 + 1, 2])
N26 = If($A26 ≠ N$2, N25, Mod[N25 + 1, 2])
O26 = If($A26 ≠ O$2, O25, Mod[O25 + 1, 2])
P26 = If($A26 ≠ P$2, P25, Mod[P25 + 1, 2])
Q26 = If($A26 ≠ Q$2, Q25, Mod[Q25 + 1, 2])
R26 = If($A26 ≠ R$2, R25, Mod[R25 + 1, 2])
S26 = If($A26 ≠ S$2, S25, Mod[S25 + 1, 2])
T26 = If($A26 ≠ T$2, T25, Mod[T25 + 1, 2])
U26 = If($A26 ≠ U$2, U25, Mod[U25 + 1, 2])
V26 = Sum($B26:$U26)
A27 = Random(1, 20)
B27 = If($A27 ≠ B$2, B26, Mod[B26 + 1, 2])
C27 = If($A27 ≠ C$2, C26, Mod[C26 + 1, 2])
D27 = If($A27 ≠ D$2, D26, Mod[D26 + 1, 2])
E27 = If($A27 ≠ E$2, E26, Mod[E26 + 1, 2])
F27 = If($A27 ≠ F$2, F26, Mod[F26 + 1, 2])
G27 = If($A27 ≠ G$2, G26, Mod[G26 + 1, 2])
H27 = If($A27 ≠ H$2, H26, Mod[H26 + 1, 2])
I27 = If($A27 ≠ I$2, I26, Mod[I26 + 1, 2])
J27 = If($A27 ≠ J$2, J26, Mod[J26 + 1, 2])
K27 = If($A27 ≠ K$2, K26, Mod[K26 + 1, 2])
L27 = If($A27 ≠ L$2, L26, Mod[L26 + 1, 2])
M27 = If($A27 ≠ M$2, M26, Mod[M26 + 1, 2])
N27 = If($A27 ≠ N$2, N26, Mod[N26 + 1, 2])
O27 = If($A27 ≠ O$2, O26, Mod[O26 + 1, 2])
P27 = If($A27 ≠ P$2, P26, Mod[P26 + 1, 2])
Q27 = If($A27 ≠ Q$2, Q26, Mod[Q26 + 1, 2])
R27 = If($A27 ≠ R$2, R26, Mod[R26 + 1, 2])
S27 = If($A27 ≠ S$2, S26, Mod[S26 + 1, 2])
T27 = If($A27 ≠ T$2, T26, Mod[T26 + 1, 2])
U27 = If($A27 ≠ U$2, U26, Mod[U26 + 1, 2])
V27 = Sum($B27:$U27)
A28 = Random(1, 20)
B28 = If($A28 ≠ B$2, B27, Mod[B27 + 1, 2])
C28 = If($A28 ≠ C$2, C27, Mod[C27 + 1, 2])
D28 = If($A28 ≠ D$2, D27, Mod[D27 + 1, 2])
E28 = If($A28 ≠ E$2, E27, Mod[E27 + 1, 2])
F28 = If($A28 ≠ F$2, F27, Mod[F27 + 1, 2])
G28 = If($A28 ≠ G$2, G27, Mod[G27 + 1, 2])
H28 = If($A28 ≠ H$2, H27, Mod[H27 + 1, 2])
I28 = If($A28 ≠ I$2, I27, Mod[I27 + 1, 2])
J28 = If($A28 ≠ J$2, J27, Mod[J27 + 1, 2])
K28 = If($A28 ≠ K$2, K27, Mod[K27 + 1, 2])
L28 = If($A28 ≠ L$2, L27, Mod[L27 + 1, 2])
M28 = If($A28 ≠ M$2, M27, Mod[M27 + 1, 2])
N28 = If($A28 ≠ N$2, N27, Mod[N27 + 1, 2])
O28 = If($A28 ≠ O$2, O27, Mod[O27 + 1, 2])
P28 = If($A28 ≠ P$2, P27, Mod[P27 + 1, 2])
Q28 = If($A28 ≠ Q$2, Q27, Mod[Q27 + 1, 2])
R28 = If($A28 ≠ R$2, R27, Mod[R27 + 1, 2])
S28 = If($A28 ≠ S$2, S27, Mod[S27 + 1, 2])
T28 = If($A28 ≠ T$2, T27, Mod[T27 + 1, 2])
U28 = If($A28 ≠ U$2, U27, Mod[U27 + 1, 2])
V28 = Sum($B28:$U28)
A29 = Random(1, 20)
B29 = If($A29 ≠ B$2, B28, Mod[B28 + 1, 2])
C29 = If($A29 ≠ C$2, C28, Mod[C28 + 1, 2])
D29 = If($A29 ≠ D$2, D28, Mod[D28 + 1, 2])
E29 = If($A29 ≠ E$2, E28, Mod[E28 + 1, 2])
F29 = If($A29 ≠ F$2, F28, Mod[F28 + 1, 2])
G29 = If($A29 ≠ G$2, G28, Mod[G28 + 1, 2])
H29 = If($A29 ≠ H$2, H28, Mod[H28 + 1, 2])
I29 = If($A29 ≠ I$2, I28, Mod[I28 + 1, 2])
J29 = If($A29 ≠ J$2, J28, Mod[J28 + 1, 2])
K29 = If($A29 ≠ K$2, K28, Mod[K28 + 1, 2])
L29 = If($A29 ≠ L$2, L28, Mod[L28 + 1, 2])
M29 = If($A29 ≠ M$2, M28, Mod[M28 + 1, 2])
N29 = If($A29 ≠ N$2, N28, Mod[N28 + 1, 2])
O29 = If($A29 ≠ O$2, O28, Mod[O28 + 1, 2])
P29 = If($A29 ≠ P$2, P28, Mod[P28 + 1, 2])
Q29 = If($A29 ≠ Q$2, Q28, Mod[Q28 + 1, 2])
R29 = If($A29 ≠ R$2, R28, Mod[R28 + 1, 2])
S29 = If($A29 ≠ S$2, S28, Mod[S28 + 1, 2])
T29 = If($A29 ≠ T$2, T28, Mod[T28 + 1, 2])
U29 = If($A29 ≠ U$2, U28, Mod[U28 + 1, 2])
V29 = Sum($B29:$U29)
A30 = Random(1, 20)
B30 = If($A30 ≠ B$2, B29, Mod[B29 + 1, 2])
C30 = If($A30 ≠ C$2, C29, Mod[C29 + 1, 2])
D30 = If($A30 ≠ D$2, D29, Mod[D29 + 1, 2])
E30 = If($A30 ≠ E$2, E29, Mod[E29 + 1, 2])
F30 = If($A30 ≠ F$2, F29, Mod[F29 + 1, 2])
G30 = If($A30 ≠ G$2, G29, Mod[G29 + 1, 2])
H30 = If($A30 ≠ H$2, H29, Mod[H29 + 1, 2])
I30 = If($A30 ≠ I$2, I29, Mod[I29 + 1, 2])
J30 = If($A30 ≠ J$2, J29, Mod[J29 + 1, 2])
K30 = If($A30 ≠ K$2, K29, Mod[K29 + 1, 2])
L30 = If($A30 ≠ L$2, L29, Mod[L29 + 1, 2])
M30 = If($A30 ≠ M$2, M29, Mod[M29 + 1, 2])
N30 = If($A30 ≠ N$2, N29, Mod[N29 + 1, 2])
O30 = If($A30 ≠ O$2, O29, Mod[O29 + 1, 2])
P30 = If($A30 ≠ P$2, P29, Mod[P29 + 1, 2])
Q30 = If($A30 ≠ Q$2, Q29, Mod[Q29 + 1, 2])
R30 = If($A30 ≠ R$2, R29, Mod[R29 + 1, 2])
S30 = If($A30 ≠ S$2, S29, Mod[S29 + 1, 2])
T30 = If($A30 ≠ T$2, T29, Mod[T29 + 1, 2])
U30 = If($A30 ≠ U$2, U29, Mod[U29 + 1, 2])
V30 = Sum($B30:$U30)
A31 = Random(1, 20)
B31 = If($A31 ≠ B$2, B30, Mod[B30 + 1, 2])
C31 = If($A31 ≠ C$2, C30, Mod[C30 + 1, 2])
D31 = If($A31 ≠ D$2, D30, Mod[D30 + 1, 2])
E31 = If($A31 ≠ E$2, E30, Mod[E30 + 1, 2])
F31 = If($A31 ≠ F$2, F30, Mod[F30 + 1, 2])
G31 = If($A31 ≠ G$2, G30, Mod[G30 + 1, 2])
H31 = If($A31 ≠ H$2, H30, Mod[H30 + 1, 2])
I31 = If($A31 ≠ I$2, I30, Mod[I30 + 1, 2])
J31 = If($A31 ≠ J$2, J30, Mod[J30 + 1, 2])
K31 = If($A31 ≠ K$2, K30, Mod[K30 + 1, 2])
L31 = If($A31 ≠ L$2, L30, Mod[L30 + 1, 2])
M31 = If($A31 ≠ M$2, M30, Mod[M30 + 1, 2])
N31 = If($A31 ≠ N$2, N30, Mod[N30 + 1, 2])
O31 = If($A31 ≠ O$2, O30, Mod[O30 + 1, 2])
P31 = If($A31 ≠ P$2, P30, Mod[P30 + 1, 2])
Q31 = If($A31 ≠ Q$2, Q30, Mod[Q30 + 1, 2])
R31 = If($A31 ≠ R$2, R30, Mod[R30 + 1, 2])
S31 = If($A31 ≠ S$2, S30, Mod[S30 + 1, 2])
T31 = If($A31 ≠ T$2, T30, Mod[T30 + 1, 2])
U31 = If($A31 ≠ U$2, U30, Mod[U30 + 1, 2])
V31 = Sum($B31:$U31)
A32 = Random(1, 20)
B32 = If($A32 ≠ B$2, B31, Mod[B31 + 1, 2])
C32 = If($A32 ≠ C$2, C31, Mod[C31 + 1, 2])
D32 = If($A32 ≠ D$2, D31, Mod[D31 + 1, 2])
E32 = If($A32 ≠ E$2, E31, Mod[E31 + 1, 2])
F32 = If($A32 ≠ F$2, F31, Mod[F31 + 1, 2])
G32 = If($A32 ≠ G$2, G31, Mod[G31 + 1, 2])
H32 = If($A32 ≠ H$2, H31, Mod[H31 + 1, 2])
I32 = If($A32 ≠ I$2, I31, Mod[I31 + 1, 2])
J32 = If($A32 ≠ J$2, J31, Mod[J31 + 1, 2])
K32 = If($A32 ≠ K$2, K31, Mod[K31 + 1, 2])
L32 = If($A32 ≠ L$2, L31, Mod[L31 + 1, 2])
M32 = If($A32 ≠ M$2, M31, Mod[M31 + 1, 2])
N32 = If($A32 ≠ N$2, N31, Mod[N31 + 1, 2])
O32 = If($A32 ≠ O$2, O31, Mod[O31 + 1, 2])
P32 = If($A32 ≠ P$2, P31, Mod[P31 + 1, 2])
Q32 = If($A32 ≠ Q$2, Q31, Mod[Q31 + 1, 2])
R32 = If($A32 ≠ R$2, R31, Mod[R31 + 1, 2])
S32 = If($A32 ≠ S$2, S31, Mod[S31 + 1, 2])
T32 = If($A32 ≠ T$2, T31, Mod[T31 + 1, 2])
U32 = If($A32 ≠ U$2, U31, Mod[U31 + 1, 2])
V32 = Sum($B32:$U32)
A33 = Random(1, 20)
B33 = If($A33 ≠ B$2, B32, Mod[B32 + 1, 2])
C33 = If($A33 ≠ C$2, C32, Mod[C32 + 1, 2])
D33 = If($A33 ≠ D$2, D32, Mod[D32 + 1, 2])
E33 = If($A33 ≠ E$2, E32, Mod[E32 + 1, 2])
F33 = If($A33 ≠ F$2, F32, Mod[F32 + 1, 2])
G33 = If($A33 ≠ G$2, G32, Mod[G32 + 1, 2])
H33 = If($A33 ≠ H$2, H32, Mod[H32 + 1, 2])
I33 = If($A33 ≠ I$2, I32, Mod[I32 + 1, 2])
J33 = If($A33 ≠ J$2, J32, Mod[J32 + 1, 2])
K33 = If($A33 ≠ K$2, K32, Mod[K32 + 1, 2])
L33 = If($A33 ≠ L$2, L32, Mod[L32 + 1, 2])
M33 = If($A33 ≠ M$2, M32, Mod[M32 + 1, 2])
N33 = If($A33 ≠ N$2, N32, Mod[N32 + 1, 2])
O33 = If($A33 ≠ O$2, O32, Mod[O32 + 1, 2])
P33 = If($A33 ≠ P$2, P32, Mod[P32 + 1, 2])
Q33 = If($A33 ≠ Q$2, Q32, Mod[Q32 + 1, 2])
R33 = If($A33 ≠ R$2, R32, Mod[R32 + 1, 2])
S33 = If($A33 ≠ S$2, S32, Mod[S32 + 1, 2])
T33 = If($A33 ≠ T$2, T32, Mod[T32 + 1, 2])
U33 = If($A33 ≠ U$2, U32, Mod[U32 + 1, 2])
V33 = Sum($B33:$U33)
A34 = Random(1, 20)
B34 = If($A34 ≠ B$2, B33, Mod[B33 + 1, 2])
C34 = If($A34 ≠ C$2, C33, Mod[C33 + 1, 2])
D34 = If($A34 ≠ D$2, D33, Mod[D33 + 1, 2])
E34 = If($A34 ≠ E$2, E33, Mod[E33 + 1, 2])
F34 = If($A34 ≠ F$2, F33, Mod[F33 + 1, 2])
G34 = If($A34 ≠ G$2, G33, Mod[G33 + 1, 2])
H34 = If($A34 ≠ H$2, H33, Mod[H33 + 1, 2])
I34 = If($A34 ≠ I$2, I33, Mod[I33 + 1, 2])
J34 = If($A34 ≠ J$2, J33, Mod[J33 + 1, 2])
K34 = If($A34 ≠ K$2, K33, Mod[K33 + 1, 2])
L34 = If($A34 ≠ L$2, L33, Mod[L33 + 1, 2])
M34 = If($A34 ≠ M$2, M33, Mod[M33 + 1, 2])
N34 = If($A34 ≠ N$2, N33, Mod[N33 + 1, 2])
O34 = If($A34 ≠ O$2, O33, Mod[O33 + 1, 2])
P34 = If($A34 ≠ P$2, P33, Mod[P33 + 1, 2])
Q34 = If($A34 ≠ Q$2, Q33, Mod[Q33 + 1, 2])
R34 = If($A34 ≠ R$2, R33, Mod[R33 + 1, 2])
S34 = If($A34 ≠ S$2, S33, Mod[S33 + 1, 2])
T34 = If($A34 ≠ T$2, T33, Mod[T33 + 1, 2])
U34 = If($A34 ≠ U$2, U33, Mod[U33 + 1, 2])
V34 = Sum($B34:$U34)
A35 = Random(1, 20)
B35 = If($A35 ≠ B$2, B34, Mod[B34 + 1, 2])
C35 = If($A35 ≠ C$2, C34, Mod[C34 + 1, 2])
D35 = If($A35 ≠ D$2, D34, Mod[D34 + 1, 2])
E35 = If($A35 ≠ E$2, E34, Mod[E34 + 1, 2])
F35 = If($A35 ≠ F$2, F34, Mod[F34 + 1, 2])
G35 = If($A35 ≠ G$2, G34, Mod[G34 + 1, 2])
H35 = If($A35 ≠ H$2, H34, Mod[H34 + 1, 2])
I35 = If($A35 ≠ I$2, I34, Mod[I34 + 1, 2])
J35 = If($A35 ≠ J$2, J34, Mod[J34 + 1, 2])
K35 = If($A35 ≠ K$2, K34, Mod[K34 + 1, 2])
L35 = If($A35 ≠ L$2, L34, Mod[L34 + 1, 2])
M35 = If($A35 ≠ M$2, M34, Mod[M34 + 1, 2])
N35 = If($A35 ≠ N$2, N34, Mod[N34 + 1, 2])
O35 = If($A35 ≠ O$2, O34, Mod[O34 + 1, 2])
P35 = If($A35 ≠ P$2, P34, Mod[P34 + 1, 2])
Q35 = If($A35 ≠ Q$2, Q34, Mod[Q34 + 1, 2])
R35 = If($A35 ≠ R$2, R34, Mod[R34 + 1, 2])
S35 = If($A35 ≠ S$2, S34, Mod[S34 + 1, 2])
T35 = If($A35 ≠ T$2, T34, Mod[T34 + 1, 2])
U35 = If($A35 ≠ U$2, U34, Mod[U34 + 1, 2])
V35 = Sum($B35:$U35)
A36 = Random(1, 20)
B36 = If($A36 ≠ B$2, B35, Mod[B35 + 1, 2])
C36 = If($A36 ≠ C$2, C35, Mod[C35 + 1, 2])
D36 = If($A36 ≠ D$2, D35, Mod[D35 + 1, 2])
E36 = If($A36 ≠ E$2, E35, Mod[E35 + 1, 2])
F36 = If($A36 ≠ F$2, F35, Mod[F35 + 1, 2])
G36 = If($A36 ≠ G$2, G35, Mod[G35 + 1, 2])
H36 = If($A36 ≠ H$2, H35, Mod[H35 + 1, 2])
I36 = If($A36 ≠ I$2, I35, Mod[I35 + 1, 2])
J36 = If($A36 ≠ J$2, J35, Mod[J35 + 1, 2])
K36 = If($A36 ≠ K$2, K35, Mod[K35 + 1, 2])
L36 = If($A36 ≠ L$2, L35, Mod[L35 + 1, 2])
M36 = If($A36 ≠ M$2, M35, Mod[M35 + 1, 2])
N36 = If($A36 ≠ N$2, N35, Mod[N35 + 1, 2])
O36 = If($A36 ≠ O$2, O35, Mod[O35 + 1, 2])
P36 = If($A36 ≠ P$2, P35, Mod[P35 + 1, 2])
Q36 = If($A36 ≠ Q$2, Q35, Mod[Q35 + 1, 2])
R36 = If($A36 ≠ R$2, R35, Mod[R35 + 1, 2])
S36 = If($A36 ≠ S$2, S35, Mod[S35 + 1, 2])
T36 = If($A36 ≠ T$2, T35, Mod[T35 + 1, 2])
U36 = If($A36 ≠ U$2, U35, Mod[U35 + 1, 2])
V36 = Sum($B36:$U36)
A37 = Random(1, 20)
B37 = If($A37 ≠ B$2, B36, Mod[B36 + 1, 2])
C37 = If($A37 ≠ C$2, C36, Mod[C36 + 1, 2])
D37 = If($A37 ≠ D$2, D36, Mod[D36 + 1, 2])
E37 = If($A37 ≠ E$2, E36, Mod[E36 + 1, 2])
F37 = If($A37 ≠ F$2, F36, Mod[F36 + 1, 2])
G37 = If($A37 ≠ G$2, G36, Mod[G36 + 1, 2])
H37 = If($A37 ≠ H$2, H36, Mod[H36 + 1, 2])
I37 = If($A37 ≠ I$2, I36, Mod[I36 + 1, 2])
J37 = If($A37 ≠ J$2, J36, Mod[J36 + 1, 2])
K37 = If($A37 ≠ K$2, K36, Mod[K36 + 1, 2])
L37 = If($A37 ≠ L$2, L36, Mod[L36 + 1, 2])
M37 = If($A37 ≠ M$2, M36, Mod[M36 + 1, 2])
N37 = If($A37 ≠ N$2, N36, Mod[N36 + 1, 2])
O37 = If($A37 ≠ O$2, O36, Mod[O36 + 1, 2])
P37 = If($A37 ≠ P$2, P36, Mod[P36 + 1, 2])
Q37 = If($A37 ≠ Q$2, Q36, Mod[Q36 + 1, 2])
R37 = If($A37 ≠ R$2, R36, Mod[R36 + 1, 2])
S37 = If($A37 ≠ S$2, S36, Mod[S36 + 1, 2])
T37 = If($A37 ≠ T$2, T36, Mod[T36 + 1, 2])
U37 = If($A37 ≠ U$2, U36, Mod[U36 + 1, 2])
V37 = Sum($B37:$U37)
A38 = Random(1, 20)
B38 = If($A38 ≠ B$2, B37, Mod[B37 + 1, 2])
C38 = If($A38 ≠ C$2, C37, Mod[C37 + 1, 2])
D38 = If($A38 ≠ D$2, D37, Mod[D37 + 1, 2])
E38 = If($A38 ≠ E$2, E37, Mod[E37 + 1, 2])
F38 = If($A38 ≠ F$2, F37, Mod[F37 + 1, 2])
G38 = If($A38 ≠ G$2, G37, Mod[G37 + 1, 2])
H38 = If($A38 ≠ H$2, H37, Mod[H37 + 1, 2])
I38 = If($A38 ≠ I$2, I37, Mod[I37 + 1, 2])
J38 = If($A38 ≠ J$2, J37, Mod[J37 + 1, 2])
K38 = If($A38 ≠ K$2, K37, Mod[K37 + 1, 2])
L38 = If($A38 ≠ L$2, L37, Mod[L37 + 1, 2])
M38 = If($A38 ≠ M$2, M37, Mod[M37 + 1, 2])
N38 = If($A38 ≠ N$2, N37, Mod[N37 + 1, 2])
O38 = If($A38 ≠ O$2, O37, Mod[O37 + 1, 2])
P38 = If($A38 ≠ P$2, P37, Mod[P37 + 1, 2])
Q38 = If($A38 ≠ Q$2, Q37, Mod[Q37 + 1, 2])
R38 = If($A38 ≠ R$2, R37, Mod[R37 + 1, 2])
S38 = If($A38 ≠ S$2, S37, Mod[S37 + 1, 2])
T38 = If($A38 ≠ T$2, T37, Mod[T37 + 1, 2])
U38 = If($A38 ≠ U$2, U37, Mod[U37 + 1, 2])
V38 = Sum($B38:$U38)
A39 = Random(1, 20)
B39 = If($A39 ≠ B$2, B38, Mod[B38 + 1, 2])
C39 = If($A39 ≠ C$2, C38, Mod[C38 + 1, 2])
D39 = If($A39 ≠ D$2, D38, Mod[D38 + 1, 2])
E39 = If($A39 ≠ E$2, E38, Mod[E38 + 1, 2])
F39 = If($A39 ≠ F$2, F38, Mod[F38 + 1, 2])
G39 = If($A39 ≠ G$2, G38, Mod[G38 + 1, 2])
H39 = If($A39 ≠ H$2, H38, Mod[H38 + 1, 2])
I39 = If($A39 ≠ I$2, I38, Mod[I38 + 1, 2])
J39 = If($A39 ≠ J$2, J38, Mod[J38 + 1, 2])
K39 = If($A39 ≠ K$2, K38, Mod[K38 + 1, 2])
L39 = If($A39 ≠ L$2, L38, Mod[L38 + 1, 2])
M39 = If($A39 ≠ M$2, M38, Mod[M38 + 1, 2])
N39 = If($A39 ≠ N$2, N38, Mod[N38 + 1, 2])
O39 = If($A39 ≠ O$2, O38, Mod[O38 + 1, 2])
P39 = If($A39 ≠ P$2, P38, Mod[P38 + 1, 2])
Q39 = If($A39 ≠ Q$2, Q38, Mod[Q38 + 1, 2])
R39 = If($A39 ≠ R$2, R38, Mod[R38 + 1, 2])
S39 = If($A39 ≠ S$2, S38, Mod[S38 + 1, 2])
T39 = If($A39 ≠ T$2, T38, Mod[T38 + 1, 2])
U39 = If($A39 ≠ U$2, U38, Mod[U38 + 1, 2])
V39 = Sum($B39:$U39)
A40 = Random(1, 20)
B40 = If($A40 ≠ B$2, B39, Mod[B39 + 1, 2])
C40 = If($A40 ≠ C$2, C39, Mod[C39 + 1, 2])
D40 = If($A40 ≠ D$2, D39, Mod[D39 + 1, 2])
E40 = If($A40 ≠ E$2, E39, Mod[E39 + 1, 2])
F40 = If($A40 ≠ F$2, F39, Mod[F39 + 1, 2])
G40 = If($A40 ≠ G$2, G39, Mod[G39 + 1, 2])
H40 = If($A40 ≠ H$2, H39, Mod[H39 + 1, 2])
I40 = If($A40 ≠ I$2, I39, Mod[I39 + 1, 2])
J40 = If($A40 ≠ J$2, J39, Mod[J39 + 1, 2])
K40 = If($A40 ≠ K$2, K39, Mod[K39 + 1, 2])
L40 = If($A40 ≠ L$2, L39, Mod[L39 + 1, 2])
M40 = If($A40 ≠ M$2, M39, Mod[M39 + 1, 2])
N40 = If($A40 ≠ N$2, N39, Mod[N39 + 1, 2])
O40 = If($A40 ≠ O$2, O39, Mod[O39 + 1, 2])
P40 = If($A40 ≠ P$2, P39, Mod[P39 + 1, 2])
Q40 = If($A40 ≠ Q$2, Q39, Mod[Q39 + 1, 2])
R40 = If($A40 ≠ R$2, R39, Mod[R39 + 1, 2])
S40 = If($A40 ≠ S$2, S39, Mod[S39 + 1, 2])
T40 = If($A40 ≠ T$2, T39, Mod[T39 + 1, 2])
U40 = If($A40 ≠ U$2, U39, Mod[U39 + 1, 2])
V40 = Sum($B40:$U40)
AA: N - 1
Text2: "N = " + (LaTeX[AA]) + ""
Urne1 = Sequence((Random[0, 5] + random(), Random[0, 5] + 2 + random()), i, 1, Element[NN, N])
Urne2 = Sequence((Random[0, 5] + random() + 10.1, Random[0, 5] + 2 + random()), i, 1, 20 - Element[NN, N])
j = true