L1: A1:A500
n = 3 (slider from 1 to 20, step 1)
L2 = Classes(L1, n)
Klassenbreite: Element[L2, 2] - Element[L2, 1]
H = Histogram(L2, L1, true, 1 / Length[L1])
MRohdaten = Mean(L1)
SRohdaten = SD(L1)
L3 = Frequency(L2, L1)
L4: L3 / Sum[L3]
MHistogramm = Sum(Sequence[(Element[L4, k] * (Element[L2, k + 1] + Element[L2, k]) / 2), k, 1, Length[L4]])
SHistogramm: sqrt(Sum[Sequence[(Element[L4, k] * ((Element[L2, k + 1] + Element[L2, k]) / 2 - MHistogramm)^(2)), k, 1, Length[L4]]])
Text3: "\mu_{\mbox{\footnotesize Daten}}= " + (LaTeX[MRohdaten]) + "\\
\sigma_{\mbox{\footnotesize Daten}}=" + (LaTeX[SRohdaten]) + " "
Text5: "\mbox{Klassenbreite} =" + (LaTeX[Klassenbreite]) + "  \\ 
\\


\mu_{\mbox{\footnotesize Histogramm}}=" + (LaTeX[MHistogramm]) + "\\
\sigma_{\mbox{\footnotesize Histogramm}}=" + (LaTeX[SHistogramm]) + ""
A1 = 2
A2 = 6
A3 = 4
A4 = 1
A5 = 3
A6 = 3
A7 = 3
A8 = 8
A9 = 5
A10 = 2
A11 = 5
A12 = 5
A13 = 1
A14 = 9
A15 = 2
A16 = 5
A17 = 1