Start

Stop

Neustart

Geschwindigkeit

maximale Anzahl =

wP: {0.35, 0.15, 0.15, 0.15, 0.15, 0.05}
W: {4,3,1,1,4,1,1,4,2,5}
n = Length(W)
a = 5 (slider from 1 to 6, step 1)
zeitgeber = 10 (slider from 0 to 20, step 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)
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")
Wfkt = Sequence({i, wP(i)}, i, 1, 6)
relHK = Insert({{"Augenzahl e", "Whrsch.. P(e)"}}, Wfkt, 1)
TabWk = 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 = 1.52 (slider from 1 to 2, step 0.01)
Text3: "Gesamtzahl der Würfe: " + n + ""
max = 10 (slider from -5 to 1000, step 0.1)
Eingabefeld1 = Textfield(max)
U: (((-(Div[m, 10] + 1)) * 10) * 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
Treffer = 1 (slider from 1 to 6, step 1)
Text1: "Anzahl der Treffer: " + (H(Treffer)) + ""