Start

....

....

....

Serie ist vollständig.

Serie ist nicht vollständig.

Zufall = Random(1, 6)
A1 = Random(1, 6)
C6 = 1
D6 = 3
E6 = 0
G6 = 1
H6 = 1
F6 = 0
C1 = 1
D1 = 2
E1 = 3
F1 = 4
G1 = 5
H1 = 6
C2 = If(A1 ≟ 1, 1, 0)
D2 = If(A1 ≟ 2, 1, 0)
E2 = If(A1 ≟ 3, 1, 0)
F2 = If(A1 ≟ 4, 1, 0)
G2 = If(A1 ≟ 5, 1, 0)
H2 = If(A1 ≟ 6, 1, 0)
A8 = 6
L: {Object["C6"], Object["D6"], Object["E6"], Object["F6"], Object["G6"], Object["H6"]}
L1 = Sort(L)
S = Sum(L)
Abbruch = If(Element[L1, 1] ≟ 0, false, true)
C8: A8 + 1
Text1 = Text(Object["C8"])
Text2 = LaTeX(Abbruch, true, true)
b = Object("C8")
c = Object("C8")
T = If(Object["A9"] ≟ -1, {Object["C8"]}, {Object["A8"]})
Text3 = LaTeX(T, true, true)
A9 = If(Abbruch ≟ false, A8, -1)
Anzahl = If(Abbruch ≟ true, T, "")
C7 = 1
D7 = 3
E7 = 0
F7 = 0
G7 = 1
H7 = 1
C11 = If(C7 > 0, C7, 1)
D11 = If(D7 > 0, D7, 1)
E11 = If(E7 > 0, E7, 1)
F11 = If(F7 > 0, F7, 1)
G11 = If(G7 > 0, G7, 1)
H11 = If(H7 > 0, H7, 1)
C10 = 1
D10 = 2
E10 = 3
F10 = 4
G10 = 5
H10 = 6
C3 = NaN
C14 = 1
D14 = 2
E14 = 3
F14 = 4
G14 = 5
H14 = 6
C15 = If($A$9 ≟ -1, C11, C6)
D15 = If($A$9 ≟ -1, D11, D6)
E15 = If($A$9 ≟ -1, E11, E6)
F15 = If($A$9 ≟ -1, F11, F6)
G15 = If($A$9 ≟ -1, G11, G6)
H15 = If($A$9 ≟ -1, H11, H6)
maximaleAnzahlVersuche = 6 (slider from 6 to 100, step 1)
TE = Element(T, 1)
Text4: "Anzahl der Versuche für eine vollständige Serie für n=6:   " + TE + ""