Würfelstatistik
Author: Mag.G.Wengler

Mit dem Schieberegler kannst du festlegen, wie oft gewürfelt wird.
Der Button "Neue Wurfserie" liefert neu gewürfelte Werte.
Die Höhe der Säulen gibt an, wie oft die einzelnen Augenzahlen gekommen sind.
Die absolute, relative und prozentuelle Häufigkeit kannst du einblenden.
a) Hast du eine Erklärung, warum die Säulen so "hüpfen", wenn du eine "Neue Wurfserie" tätigst?
b) Was fällt dir auf, wenn man die Anzahl kleiner bzw. größer einstellt?

Neue Wurfserie

Würfeln

absolute Häufigkeit

prozentuelle Häufigkeit

relative Häufigkeit

Anzahl = 965 (slider from 6 to 6000, step 1)
W = Sequence(Random[1, 6], i, 1, Anzahl)
K = Sequence(i, i, 1, 7)
H = Frequency(K, W)
m = Max(H)
Augen = Sequence(i, i, 1, 6)
a = BarChart(Augen, H)
eins = Element(H, 1)
zwei = Element(H, 2)
drei = Element(H, 3)
vier = Element(H, 4)
fünf = Element(H, 5)
sechs = Element(H, 6)
Text2: "" + eins + ""
Text3: "" + zwei + ""
Text4: "" + drei + ""
Text5: "" + vier + ""
Text6: "" + fünf + ""
Text7: "" + sechs + ""
Text8: "\rotatebox{90}{" + (LaTeX[eins / Anzahl * 100]) + "\%}"
Text9: "\rotatebox{90}{" + (LaTeX[zwei / Anzahl * 100]) + "\%}"
Text10: "\rotatebox{90}{" + (LaTeX[drei / Anzahl * 100]) + "\%}"
Text11: "\rotatebox{90}{" + (LaTeX[vier / Anzahl * 100]) + "\%}"
Text12: "\rotatebox{90}{" + (LaTeX[fünf / Anzahl * 100]) + "\%}"
Text13: "\rotatebox{90}{" + (LaTeX[sechs / Anzahl * 100]) + "\%}"
b = true
c = false
Text14: "" + (eins / Anzahl) + ""
d = false
Text15: "" + (zwei / Anzahl) + ""
Text16: "" + (drei / Anzahl) + ""
Text17: "" + (vier / Anzahl) + ""
Text18: "" + (fünf / Anzahl) + ""
Text19: "" + (sechs / Anzahl) + ""
u: (-m) / 5
o: 6 * m / 5
l = -1
r = 13
LL = Corner(1, 1)
RR = Corner(1, 2)
dx: x(RR) - x(LL)