Gauß-Glocke

n = 171 (slider from 1 to 1000, step 1)
p = 0.24 (slider from 0 to 1, step 0.01)
Bin = BinomialDist(n, p)
u: InverseBinomial[n, p, 0.05] - 1
μ: (n * p)
wert1 = BinomialDist(n, p, u, true)
Bin1 = BarChart(-0.5, u + 0.5, Sequence[((nCr[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, u])
o: InverseBinomial[n, p, 0.95] + 1
a: 1 - BinomialDist[n, p, o, true]
Bin2 = BarChart(o - 0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * (1 - p)^(n - k)), k, o, n])
b: 1 - BinomialDist[n, p, o, true]
σ: sqrt(((n * p) * (1 - p)))
f = Normal(μ, σ, x, false)
Text1: "u=" + (LaTeX[u]) + ";\quad I_1=[0;" + (LaTeX[u]) + "];\quad P(X\le " + (LaTeX[u]) + ")=" + (LaTeX[wert1]) + "\\
o=" + (LaTeX[o]) + ";\quad I_2=[" + (LaTeX[o]) + ";" + (LaTeX[n]) + "];\quad P(X\ge  " + (LaTeX[o]) + ")= " + (LaTeX[a]) + "\\"
c = false