Anzahl der Würfe

Starte Simulation

k = 100
n = 100 (slider from 1 to k, step 1)
Liste1 = Sequence(Random[1, 6], j, 1, k)
A2 = 1
B2 = 2
C2 = 3
D2 = 4
E2 = 5
F2 = 6
A3 = CountIf(x ≟ 1, First[Liste1, n])
B3 = CountIf(x ≟ 2, First[Liste1, n])
C3 = CountIf(x ≟ 3, First[Liste1, n])
D3 = CountIf(x ≟ 4, First[Liste1, n])
E3 = CountIf(x ≟ 5, First[Liste1, n])
F3 = CountIf(x ≟ 6, First[Liste1, n])
Balkendiagramm = BarChart(A2:F2, A3:F3)
Textfeld1 = Textfield(k)
G3 = Sum(A3:F3)
A4: A3 / $G3
B4: B3 / $G3
C4: C3 / $G3
D4: D3 / $G3
E4: E3 / $G3
F4: F3 / $G3
ε_1 = 0.02
A: (n, F4)
ε = 0.02 (slider from 0 to 0.1, step 0.01)
oben: y = 1 / 6 + ε
unten: y = 1 / 6 - ε
Text1 = TableText({{A2, B2, C2, D2, E2, F2}, {A3, B3, C3, D3, E3, F3}}, "|_")