A

B

C

a

D

$\overline{x}$

xx

xx

Lineare Abweichung:

Quadratische Abweichung:

Standardabweichung:

Mittelwert:

V1: {0, 0, 3, 4, 3, 0}
aMin: 0
aMax: 5
xWerte = Sequence(i, i, aMin, aMax, 1)
intervallWerte = Sequence(i, i, aMin - 0.5, aMax + 0.5, 1)
V2: {0, 0, 5, 0, 5, 0}
V3: {0, 2, 1, 4, 1, 2}
a = true
b = false
c = false
gL: -2
gR: 7
gU: -1.5
gO: 10
xPunkte = Zip((i, 0), i, xWerte)
XPunkt = Point(xPunkte)
iMax: aMax - aMin + 1
TabelleOben: "" + (Sum[Zip[Text[a] + "&", a, Take[xWerte, 1, iMax - 1]]]) + "" + (Text[xWerte(iMax)]) + ""
V4: {1, 3, 1, 0, 0, 5}
d = false
V = If(a, V1, If[b, V2, If[c, V3, If[d, V4]]])
TabelleUnten: "" + (Sum[Zip[Text[a] + "&", a, Take[V, 1, iMax - 1]]]) + "" + (Text[V(iMax)]) + ""
H = Histogram(intervallWerte, V)
anzahl = Sum(V)
M: Sum[Sequence[(V(i + 1) * xWerte(i + 1)), i, aMin, aMax, 1]] / anzahl
e: x = M
ALinearBetrag: Sum[Sequence[(V(i) * abs(xWerte(i) - M)), i, 1, iMax, 1]] / anzahl
ALinear: Sum[Sequence[(V(i) * (xWerte(i) - M)), i, 1, iMax, 1]] / anzahl
AQuadratisch: Sum[Sequence[(V(i) * (xWerte(i) - M)^(2)), i, 1, iMax, 1]] / anzahl
AQuadratischWurzel: sqrt(AQuadratisch)
i: x(XPunkt)
TabelleV: "\begin{tabular}{l|ccccccccccc}
\text{a} & " + (LaTeX[TabelleOben]) + "  \\
\hline
\text{H(a)} &  " + (LaTeX[TabelleUnten]) + "
\end{tabular}"
Text2: "a = " + (x(XPunkt)) + ""
Text3: "H(a) = " + (V(i + 1)) + ""
Text1: "Lineare Abweichung:          " + ALinearBetrag + "
Quadratische Abweichung: " + AQuadratisch + "
Standardabweichung:          " + AQuadratischWurzel + ""
Text9: "" + M + ""
Text10: "" + ALinearBetrag + ""
Text11: "" + AQuadratisch + ""
Text12: "" + AQuadratischWurzel + ""