Notenstatistik-Diagramme

Säulendiagramm

Balkendiagramm

Noten

\rotatebox{90}{Häufigkeit}

\rotatebox{90}{Noten}

Häufigkeit

Kreisdiagramm

Neu

A1 = Random(1, 5)
B1 = Random(1, 5)
C1 = Random(1, 5)
D1 = Random(1, 5)
A2 = Random(1, 5)
B2 = Random(1, 5)
C2 = Random(1, 5)
D2 = Random(1, 5)
A3 = Random(1, 5)
B3 = Random(1, 5)
C3 = Random(1, 5)
D3 = Random(1, 5)
A4 = Random(1, 5)
B4 = Random(1, 5)
C4 = Random(1, 5)
D4 = Random(1, 5)
A5 = Random(1, 5)
B5 = Random(1, 5)
C5 = Random(1, 5)
D5 = Random(1, 5)
A6 = Random(1, 5)
B6 = Random(1, 5)
C6 = Random(1, 5)
D6 = Random(1, 5)
E1 = Random(1, 5)
E2 = Random(1, 5)
E3 = Random(1, 5)
E4 = Random(1, 5)
E5 = Random(1, 5)
E6 = Random(1, 5)
Text1 = TableText({{A1, B1, C1, D1, E1}, {A2, B2, C2, D2, E2}, {A3, B3, C3, D3, E3}, {A4, B4, C4, D4, E4}, {A5, B5, C5, D5, E5}, {A6, B6, C6, D6, E6}}, "|_")
Text2 = TableText({{A1, B1, C1, D1, E1}, {A2, B2, C2, D2, E2}, {A3, B3, C3, D3, E3}, {A4, B4, C4, D4, E4}, {A5, B5, C5, D5, E5}, {A6, B6, C6, D6, E6}}, "|_")
Noten: {A1, A2, A3, A4, A5, A6, B1, B2, B3, B4, B5, B6, C1, C2, C3, C4, C5, C6, D1, D2, D3, D4, D5, D6, E1, E2, E3, E4, E5, E6}
Haeufig = Frequency(Noten)
Text5 = TableText({{"Note", 1, 2, 3, 4, 5}, Join[{{"Häufigkeit"}, Haeufig}]}, "c|_")
a = BarChart({1, 2, 3, 4, 5}, Haeufig)
b = true
Balken = Sequence(Polygon[(0, 0.6 + k - 1), (Element[Haeufig, k], 0.6 + k - 1), (Element[Haeufig, k], 1.4 + k - 1), (0, 1.4 + k - 1)], k, 1, 5)
c = false
r = 5
A = (5.552240757329978, 5.807298567362872)
d = Circle(A, r)
sum = Length(Noten)
Text9: "Summe=" + sum + ""
wL = Sequence(((360 * ° / sum) * Element[Haeufig, k]), k, 1, 5)
winkel = Sequence(Sum[Take[wL, 1, k]], k, 1, 5)
e = false
kPkte = Join({{A + (r, 0)}, Sequence[A + ((r * cos(Element[winkel, k])), (r * sin(Element[winkel, k]))), k, 1, 5]})
S_1 = Sector(d, Element[kPkte, 1], Element[kPkte, 2])
S_2 = Sector(d, Element[kPkte, 2], Element[kPkte, 3])
S_3 = Sector(d, Element[kPkte, 3], Element[kPkte, 4])
S_4 = Sector(d, Element[kPkte, 4], Element[kPkte, 5])
S_5 = Sector(d, Element[kPkte, 5], Element[kPkte, 6])
NSkala: {"Sg", "Gt", "Bf", "Gd", "Ng"}
txt = Sequence(Text[Element[NSkala, k] + "=" + (Element[Haeufig, k]), (Element[kPkte, k] + Element[kPkte, k + 1]) / 2], k, 1, 5)