Normalverteilung

Ein Glücksrad mit den gleichwahrscheinlichen Ergebnissen von 0 bis k wird n-mal gedreht.
Uns interessiert die Summe der Einzelergebnisse.

k = 4 (slider from 1 to 10, step 1)
n = 4 (slider from 1 to 30, step 1)
Ergebnisse = Sequence(a, a, 0, k)
f(x) = Sum[Sequence[x^(Element[Ergebnisse, m]), m, 1, Length[Ergebnisse]]]^(n)
Koeff = Coefficients(f)
S = Sequence(a, a, 0, (n * k))
h: Koeff / (k + 1)^(n)
B = BarChart(S, h)
T = TableText({Join[{{"Summe"}, S}], Join[{{"abs. H"}, Koeff}]}, "|_")
σ: Variance[S, h]^(0.5)
μ = Mean(S, h)
a = true
Text1: "Einzelergebnisse = " + (LaTeX[Ergebnisse]) + ""
φ_{μ,σ}(x) = If[μ - (4 * σ)  <  x  <  μ + (4 * σ), Normal[μ, σ, x]]
G:(0, 0)
H:(4, 0)
c = Circle(G, H)
P = Sequence((((x(H) * 2 / 3) * cos(((k + 1 - m + 0.5) * 6.28319 / (k + 1)))), ((x(H) * 2 / 3) * sin(((k + 1 - m + 0.5) * 6.28319 / (k + 1))))), m, 1, k + 1)
TT = Sequence(Text[m - 1, Element[P, m]], m, 1, k + 1)
U = Sequence(Segment[G, ((x(H) * cos((m * 6.28319 / (k + 1)))), (x(H) * sin((m * 6.28319 / (k + 1)))))], m, 1, k + 1)
l:214
Vieleck1, b, d, e = Polygon((0, 4), (0.3, 4.4), (-0.3, 4.4))