Augenzahl

Start

Stop

Neustart

Geschwindigkeit

maximale Anzahl:

LR

Wahrscheinlichkeit P(e)

Trichter

rel. Hfkt.

e = 1 (slider from 1 to 6, step 1)
W: {1,4,3,5,4,5,6,2,5,6,1,2,3,2,5,6,3,3,6,4,1,6,1,4,6,1,6,4,1,4,5,4,3,5,2,4,4,3,3,2,5,4,4,1,3,5,6,6,3,6,5,1,2,1,2,5,4,6,3,5,2,5,1,4,1,3,4,2,2,4,5,3,1,3,6,2,2,3,5,3,2,2,1,6,1,1,6,3,2,6,5,2,5,5,6,1,3,1,1,2}
a = 2 (slider from 1 to 6, step 1)
i = 102 (slider from 1 to 1000, step 1)
n = Length(W)
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, 1),(2, 0.5),(3, 0.3333333333333333),(4, 0.25),(5, 0.2),(6, 0.16666666666666666),(7, 0.14285714285714285),(8, 0.125),(9, 0.1111111111111111),(10, 0.1),(11, 0.18181818181818182),(12, 0.16666666666666666),(13, 0.15384615384615385),(14, 0.14285714285714285),(15, 0.13333333333333333),(16, 0.125),(17, 0.11764705882352941),(18, 0.1111111111111111),(19, 0.10526315789473684),(20, 0.1),(21, 0.14285714285714285),(22, 0.13636363636363635),(23, 0.17391304347826086),(24, 0.16666666666666666),(25, 0.16),(26, 0.19230769230769232),(27, 0.18518518518518517),(28, 0.17857142857142858),(29, 0.20689655172413793),(30, 0.2),(31, 0.1935483870967742),(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.16666666666666666),(55, 0.16363636363636364),(56, 0.16071428571428573),(57, 0.15789473684210525),(58, 0.15517241379310345),(59, 0.15254237288135594),(60, 0.15),(61, 0.14754098360655737),(62, 0.14516129032258066),(63, 0.15873015873015872),(64, 0.15625),(65, 0.16923076923076924),(66, 0.16666666666666666),(67, 0.16417910447761194),(68, 0.16176470588235295),(69, 0.15942028985507245),(70, 0.15714285714285714),(71, 0.15492957746478872),(72, 0.1527777777777778),(73, 0.1643835616438356),(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.14634146341463414),(83, 0.1566265060240964),(84, 0.15476190476190477),(85, 0.16470588235294117),(86, 0.1744186046511628),(87, 0.1724137931034483),(88, 0.17045454545454544),(89, 0.16853932584269662),(90, 0.16666666666666666),(91, 0.16483516483516483),(92, 0.16304347826086957),(93, 0.16129032258064516),(94, 0.1595744680851064),(95, 0.15789473684210525),(96, 0.16666666666666666),(97, 0.16494845360824742),(98, 0.17346938775510204),(99, 0.18181818181818182)}
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)]
RelFolge = Sequence((j | Element[Frequency[{1, 2, 3, 4, 5, 6, 7}, Take[W, 1, j]], e] / j), j, 1, max)
Text1: "Augenzahl = " + e + ""
b = false
L: (-(max / 20))
R: max + max / 20
ug(x) = If[x > 0 ∧ 1 / 6 - d / sqrt(x) > 0, 1 / 6 - d / sqrt(x)]