Vergleich  statistischer Kennzahlen der Lage bzw. Streuung  einer Häufigkeitsverteilung
Author: Johann Wieser

Einstellung der absolute Häufigkeit :  Ziehen an roten Punkten

Statistische Kenngrößen interpretieren

(du kannst die Säulen bewegen und
sehen, wie sich die Kennzahlen ändern.)

Säulendiagramm und Boxplot

A = Point(a)
B = Point(b)
C = Point(c)
D = Point(d)
E = Point(e)
F = Point(f)
G = Point(g)
H = Point(h)
i = Histogram({0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5}, {y(A), y(B), y(C), y(D), y(E), y(F), y(G), y(H)})
Text1 = Text(y(A), A + (0, 1))
Text2 = Text(y(A), A + (0, 1))
Text3 = Text(y(B), B + (0, 1))
Text4 = Text(y(C), C + (0, 1))
Text5 = Text(y(D), D + (0, 1))
Text6 = Text(y(E), E + (0, 1))
Text7 = Text(y(F), F + (0, 1))
Text8 = Text(y(G), G + (0, 1))
Text9 = Text(y(H), H + (0, 1))
l1 = Sequence(1, i, 1, y(A))
l2 = Sequence(2, i, 1, y(B))
l7 = Sequence(7, i, 1, y(G))
l8 = Sequence(8, i, 1, y(H))
l3 = Sequence(3, i, 1, y(C))
l4 = Sequence(4, i, 1, y(D))
l5 = Sequence(5, i, 1, y(E))
l6 = Sequence(6, i, 1, y(F))
xdaten = Join({l1, l2, l3, l4, l5, l6, l7, l8})
μ = Mean(xdaten)
σ = SD(xdaten)
xmed = Median(xdaten)
Q1 = Q1(xdaten)
Q3 = Q3(xdaten)
I: (μ, (-2))
J: (μ, (-4))
l = BoxPlot(-11, 2, xdaten)
Text10 = Text("Mittelwert = " + μ, (μ - 1.5, (-4)))
j = Segment((μ, (-2)), (μ, 20))
Text13 = Text("Q3=" + Q3, (Q3 - 0.5, (-15)))
Text14 = Text("Q1=" + Q1, (Q1 - 0.5, (-15)))
Text15 = Text("Median = " + xmed, (xmed - 1.5, (-8)))
A1 = 1
A2: A1 + 1
A3: A2 + 1
A4: A3 + 1
A5: A4 + 1
A6: A5 + 1
A7: A6 + 1
A8: A7 + 1
B1: y(A)
B2: y(B)
B3: y(C)
B4: y(D)
B5: y(E)
B6: y(F)
B7: y(G)
B8: y(H)
B9 = Sum(B1:B8)
sum: B9
Text17: "Summe= " + sum + ""