Start

Stop

Neustart

Geschwindigkeit

maximale Anzahl =

a = 1 (slider from 1 to 6, step 1)
zeitgeber = 20 (slider from 0 to 20, step 1)
W: {2,3,5,3,4,6,4,3,1,1,5,3,5,4,3,6,4,3,6,5,2,5,6,6,5,3,3,2,5,3,6,4,2,6,4,6,2,1,5,5,2,4,5,5,3,6,6,2,2,3,3,3,4,3,5,3,2,1,5,4,5,5,1,3,2,6,4,4,3,6,3,1,6,5,3,5,4,2,4,3,5,1,3,5,5,1,5,5,5,4,1,2,3,3,4,2,2,3,6,4,3,4,4,6,5,1,4,3,3,3,1,3,5,1,5,5,3,3,6,2,1,5,4,5,4,2,2,5,5,5,4,2,5,2,4,3,5,2,3,3,6,5,3,2,2,2,3,2,1,4,2,5,6,2,1,4,3,1,1,3,1,6,2,2,4,5,5,5,6,3,1,3,6,4,3,2,4,6,6,1,3,5,5,6,2,5,3,2,4,4,4,2,6,2,6,3,2,2,5,3,4,3,6,5,2,3,2,5,1,3,1,5,3,1,5,1,2,2,1,1,2,1,5,6,1,1,3,2,4,3,6,6,2,6,5,5,3,6,4,3,6,6,1,4,5,3,2,5,6,3,3,1,4,3,5,5,2,3,5,5,3,3,1,6,6,6,3,3,6,5,2,2,6,1,3,2,4,4,5,2,2,4,4,5,1,5,1,5,3,2,5,1,6,2,4,1,4,3,2,1}
H = If(Length[W] ≟ 0, {0, 0, 0, 0, 0, 0}, Frequency[{1, 2, 3, 4, 5, 6, 7}, W])
P = DotPlot(W)
A = (-1, 21.951531308944748)
B = (3, 21.951531308944748)
n = Length(W)
h = 1 (slider from -5 to 5, step 0.1)
absH = Sequence({i, Element[H, i]}, i, 1, 6)
absHK = Insert({{"Augenzahl e", "abs. Hfkt. H(e)"}}, absH, 1)
TaabsHK = TableText(absHK, "h|_ll")
relH = Sequence({i, Element[H, i] / n}, i, 1, 6)
relHK = Insert({{"Augenzahl e", "rel. Hfkt. h(e)"}}, relH, 1)
Text2 = TableText(relHK, "h|_ll")
m = Max(H)
L = -1 (slider from -5 to 5, step 0.1)
R = 7 (slider from -5 to 10, step 0.1)
O: (((Div[m, 10] + 1) * 10) * 1.05)
sv = 2 (slider from 1 to 2, step 0.01)
Text3: "Gesamtzahl der Würfe: " + n + ""
max: 300
Eingabefeld1 = Textfield(max)
U: (((-(Div[m, 10] + 1)) * 10) * 0.05)
v: (2 * sv) - 1.5