Augenzahl

Start

Stop

Neustart

Geschwindigkeit

maximale Anzahl:

LR

Wahrscheinlichkeit P(e)

rel. Hfkt.

Trichter

e = 1 (slider from 1 to 6, step 1)
W: {6,4,6,5,3,2,3,5,5,6,2,4,3,3,5,6,4,4,5,5,1,1,3,1,6,1,3,5,5,1,3,1,2,5,3,4,2,5,5,2,4,3,3,1,2,2,6,6,3,2,6,1,4,3,5,1,6,5,4,4,2,3,6,1,2,4,2,4,1,4,5,3,5,1,5,6,3,4,4,6,4,1,6,2,2,6,6,6,3,5,3}
a = 3 (slider from 1 to 6, step 1)
i = 92 (slider from 1 to 1000, step 1)
n = 91
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: {(1, 0),(2, 0),(3, 0),(4, 0),(5, 0),(6, 0),(7, 0),(8, 0),(9, 0),(10, 0),(11, 0),(12, 0),(13, 0),(14, 0),(15, 0),(16, 0),(17, 0),(18, 0),(19, 0),(20, 0),(21, 0.047619047619047616),(22, 0.09090909090909091),(23, 0.08695652173913043),(24, 0.125),(25, 0.12),(26, 0.15384615384615385),(27, 0.14814814814814814),(28, 0.14285714285714285),(29, 0.13793103448275862),(30, 0.16666666666666666),(31, 0.16129032258064516),(32, 0.1875),(33, 0.18181818181818182),(34, 0.17647058823529413),(35, 0.17142857142857143),(36, 0.16666666666666666),(37, 0.16216216216216217),(38, 0.15789473684210525),(39, 0.15384615384615385),(40, 0.15),(41, 0.14634146341463414),(42, 0.14285714285714285),(43, 0.13953488372093023),(44, 0.1590909090909091),(45, 0.15555555555555556),(46, 0.15217391304347827),(47, 0.14893617021276595),(48, 0.14583333333333334),(49, 0.14285714285714285),(50, 0.14),(51, 0.13725490196078433),(52, 0.15384615384615385),(53, 0.1509433962264151),(54, 0.14814814814814814),(55, 0.14545454545454545),(56, 0.16071428571428573),(57, 0.15789473684210525),(58, 0.15517241379310345),(59, 0.15254237288135594),(60, 0.15),(61, 0.14754098360655737),(62, 0.14516129032258066),(63, 0.14285714285714285),(64, 0.15625),(65, 0.15384615384615385),(66, 0.15151515151515152),(67, 0.14925373134328357),(68, 0.14705882352941177),(69, 0.15942028985507245),(70, 0.15714285714285714),(71, 0.15492957746478872),(72, 0.1527777777777778),(73, 0.1506849315068493),(74, 0.16216216216216217),(75, 0.16),(76, 0.15789473684210525),(77, 0.15584415584415584),(78, 0.15384615384615385),(79, 0.1518987341772152),(80, 0.15),(81, 0.14814814814814814),(82, 0.15853658536585366),(83, 0.1566265060240964),(84, 0.15476190476190477),(85, 0.15294117647058825),(86, 0.1511627906976744),(87, 0.14942528735632185),(88, 0.14772727272727273),(89, 0.14606741573033707),(90, 0.14444444444444443),(91, 0.14285714285714285)}
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 = true
Text5: "\underbrace{" + (LaTeX[ug(n)]) + " \leq h(" + (LaTeX[e]) + ") \leq " + (LaTeX[og(n)]) + "}_{\text{nach " + (LaTeX[n]) + " Versuchen \\
in ca. 95% \\
aller Versuchsreihen}}"