Start

Stop

Neustart

Geschwindigkeit

maximale Anzahl =

a = 5 (slider from 1 to 6, step 1)
zeitgeber = 0 (slider from 0 to 20, step 1)
W: {4,3,1,5,4,6,1,1,4,4,4,1,5,4,3,4,5,4,1,1,1,1,1,1,1,3,5,5,4,1,4,2,3,3,1,2,3,1,4,4,3,2,4,1,4,5,1,4,1,1,1,1,3,1,1,2,4,4,1,2,5,2,4,1,1,5,4,4,1,1,3,6,4,4,1,5,1,1,1,3,6,2,1,3,2,3,1,1,5,5,5,2,1,1,3,5,3,2,6,1,3,1,1,6,1,4,5,2,3,2,3,5,3,6,2,4,5,4,1,5}
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 = 120 (slider from -5 to 1000, step 0.1)
Eingabefeld1 = Textfield(max)
U: (((-(Div[m, 10] + 1)) * 10) * 0.05)
wP: {0.35, 0.15, 0.15, 0.15, 0.15, 0.05}
wPSumme = Sequence(Sum[Take[wP, 1, i]], i, 1, 6)
vP(x) = If[0 ≤ x < 1, 1 + Sum[Sequence[If[x ≥ Element[wPSumme, i], 1, 0], i, 1, 6]]]
v: (2 * sv) - 1.5