Name

Boxplots zeigen

PunktePlots zeigen

Wurzeltrichter zeigen

PunktePlots zeigen

Eingabe:
Jede(r) macht vier Serien mit je 25 Würfen einer Münze und
notiert die absoluten Trefferhäufigkeiten h_{25} in Spalte B.
Ausgabe:
Je vier 25er Serien werdern zu einer 100er und 
je vier 100er werden zu einer 400er Serie zusammgefassst.
Die relativen Trefferhäufigkeiten h_{25}, h_{100} und h_{400}
werden intern berechnet, tabelliert und graphisch dargestellt.
Hinweise:
(1) Bei Eingabe von 32 Daten in Spalte B kann das Prinzip der 
Zusammenfassung mithilfe der Tabelle nachvollzogen und in 
den Spalten C-D auch händisch nachgerechnet werden.
(2) Das Münzenwerfen kann in Spalte B ersatzweise durch den Befehl 
=ZufallszahlBinomialverteilt(25,0.5) simuliert werden.

H_{25}

p = 0.5 (slider from 0 to 1, step 0.01)
Werte25: B2:B1000
W100 = Sequence(Sum[Take[Werte25, (4 * i) + 1, (4 * i) + 4]], i, 0, 31)
Werte100 = RemoveUndefined(W100)
W400 = Sequence(Sum[Take[Werte100, (4 * i) + 1, (4 * i) + 4]], i, 0, 7)
f(x) = p + (1.96 * sqrt((p * (1 - p) / x)))
Werte400 = RemoveUndefined(W400)
g(x) = p - (1.96 * sqrt((p * (1 - p) / x)))
hWerte100: Werte100 / 100
hWerte400: Werte400 / 400
hWerte25: Werte25 / 25
DotPlot25: (25, hWerte25)
DotPlot100: (100, hWerte100)
DotPlot400: (400, hWerte400)
BoxPlot = false
Plots = false
Trichter = false
g1(x) = If[5 ≤ x ≤ 450, g(x)]
f1(x) = If[5 ≤ x ≤ 450, f(x)]
d = IntegralBetween(f, g, 5, 450)
dy = 0.15 (slider from 0 to 1, step 0.05)
Anzeil25: CountIf[g(25) ≤ x ≤ f(25), hWerte25] / Length[Werte25]
Anteil100: CountIf[g(100) ≤ x ≤ f(100), hWerte100] / Length[Werte100]
Anteil400: CountIf[g(400) ≤ x ≤ f(400), hWerte400] / Length[Werte400]
Text2: "" + ((Anzeil25 * 100)) + " % im
Wurzeltrichter"
Text3: "" + ((Anteil100 * 100)) + " % im 
Wurzeltrichter"
PunktePlotzeigen = false
y_1 = 1 (slider from -10 to 10, step 0.1)
y_2 = 4 (slider from -10 to 10, step 0.1)
y_3 = 7 (slider from -10 to 20, step 0.1)
Punkte25 = Translate(DotPlot[hWerte25, dy], (0, y_1 - dy))
Punkte100 = Translate(DotPlot[hWerte100, dy], (0, y_2 - dy))
Punkte400 = Translate(DotPlot[hWerte400, dy], (0, y_3 - dy))
Box25 = BoxPlot(y_1, 0.5, hWerte25, true)
Box100 = BoxPlot(y_2, 0.5, hWerte100, true)
Box400 = BoxPlot(y_3, 0.5, hWerte400, true)
Info = false
A2: 1
A3: A2
A4: A3
A5: A4
A6: 2
A7: A6
A8: A7
A9: A8
A10: 3
A11: A10
A12: A11
A13: A12
A14: 4
A15: A14
A16: A15
A17: A16
A18: 5
A19: A18
A20: A19
A21: A20
A22: 6
A23: A22
A24: A23
A25: A24
A26: 7
A27: A26
A28: A27
A29: A28
A30: 8
A31: A30
A32: A31
A33: A32
A34: 9
A35: A34
A36 = 9
A37 = 9
A38: 10
A39: A38
A40: A39
A41: A40
A42: 11
A43: A42
A44: A43
A45: A44
A46: 12
A47: A46
A48: A47
A49: A48
A50: 13
A51: A50
A52: A51
A53: A52
A54: 14
A55: A54
A56: A55
A57: A56
A58: 15
A59: A58
A60: A59
A61: A60
A62: 16
A63: A62
A64: A63
A65: A64
A66: 17
A67: A66
A68: A67
A69: A68
A70: 18
A71: A70
A72: A71
A73: A72
A74: 19
A75: A74
A76: A75
A77: A76
A78: 20
A79: A78
A80: A79
A81: A80
A82: 21
A83: A82
A84: A83
A85: A84
A86: 22
A87: A86
A88: A87
A89: A88
A90: 23
A91: A90
A92: A91
A93: A92
A94: 24
A95: A94
A96: A95
A97: A96
A98: 25
A99: A98
A100: A99
A101: A100
A102: 26
A103: A102
A104: A103
A105: A104
A106: 27
A107: A106
A108: A107
A109: A108
A110: 28
A111: A110
A112: A111
A113: A112
A114: 29
A115: A114
A116: A115
A117: A116
A118: 30
A119: A118
A120: A119
A121: A120
A122: 31
A123: A122
A124: A123
A125: A124
A126: 32
A127: 32
A128: 32
A129: 32
l1 = Insert("h_{25}", hWerte25, 1)
l2 = Insert("h_{100}", hWerte100, 1)
l3 = Insert("h_{400}", hWerte400, 1)
DPlot100 = RemoveUndefined(DotPlot100)
DPlot400 = RemoveUndefined(DotPlot400)
Pkte100 = RemoveUndefined(Punkte100)
Pkte400 = RemoveUndefined(Punkte400)
Text5 = TableText(l1, l2, l3, "|r|_")
Text4: "" + ((Anteil400 * 100)) + " % im
Wurzeltrichter"
Q1Box25 = Q1(hWerte25)
Q1Box100 = Q1(hWerte100)
Q1Box400 = Q1(hWerte400)
Q3Box25 = Q3(hWerte25)
Q3Box100 = Q3(hWerte100)
Q3Box400 = Q3(hWerte400)
Q3 = NaN
Q1 = NaN
Text6: "Boxenlänge_{25}: " + (Q3Box25 - Q1Box25) + ""
Text7: "Boxenlänge_{100}: " + (Q3Box100 - Q1Box100) + ""
Text8: "Boxenlänge_{400}: " + (Q3Box400 - Q1Box400) + ""