Augenzahl

Start

Stop

Neustart

Geschwindigkeit

maximale Anzahl:

LR

Wahrscheinlichkeit P(e)

rel. Hfkt.

Trichter

e = 1 (slider from 1 to 6, step 1)
W: {}
a = 5 (slider from 1 to 6, step 1)
i = 1 (slider from 1 to 1000, step 1)
n = 0
H = If(i ≟ 1, {0, 0, 0, 0, 0, 0}, Frequency[{1, 2, 3, 4, 5, 6, 7}, W])
A: (4 | 22)
B: (8 | 22)
h = Sequence(Element[H, i] / n, i, 1, 6)
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)
sv = 2 (slider from 1 to 2, step 1)
Text3: "Gesamtzahl der Würfe: " + n + ""
v = If(sv ≟ 1, 0.01, If[sv ≟ 2, 0.05, 0.1])
max = 100 (slider from -5 to 10000, step 0.1)
Eingabefeld1 = Textfield(max)
P: {}
s = Segment((20 | 0), (max - 20 | 0))
U = -0.2 (slider from -5 to 5, step 0.1)
O = 1.1 (slider from -5 to 5, step 0.1)
Nav = Point(s)
g(x) = If[x ≥ 0, 1 / 6]
Tabell = 1 (slider from -5 to 5, step 0.1)
H2_{1} = Sum(CellRange(B2,G2,"numeric"))
D2_{1}: 0
D2_{2}: 0
E2_{1}: 0
F2_{1}: 0
G2_{1}: 0
B2 = 100
C2 = 102
D2 = 94
E2 = 108
F2 = 99
G2 = 102
p = PolyLine(P)
d: (2 * sqrt((1 / 6 * 5 / 6)))
og(x) = If[x > 0, 1 / 6 + d / sqrt(x)]
Text1: "Augenzahl = " + e + ""
L: (-(max / 20))
R: max + max / 20
ug(x) = If[x > 0, 1 / 6 - d / sqrt(x)]
Phi: (n | Element[Frequency[{1, 2, 3, 4, 5, 6, 7}, Take[W, 1, n]], e] / n)
T: (x(Phi) | 0)
Text6: "n = " + (x(T)) + ""
Pug: (n | ug(n))
Pog: (n | og(n))
f = Segment(Pug, Pog)
b = false
Text5: "\underbrace{" + (LaTeX[ug(n)]) + " \leq h(" + (LaTeX[e]) + ") \leq " + (LaTeX[og(n)]) + "}_{\text{nach " + (LaTeX[n]) + " Versuchen \\
in ca. 95% \\
aller Versuchsreihen}}"