n = 40 (slider from 0 to 1000, step 10)
p = 0.3 (slider from 0 to 1, step 0.1)
m: n * p
s: sqrt(n * p * (1 - p))
Liste1 = Sequence((k - m) / s, k, 0, n, 1)
Liste2 = Sequence(BinomialDist[n, p, k, false], k, 0, n, 1)
baton = BarChart(Liste1, Liste2, 0)
rect = BarChart(Liste1, s * Liste2, 1 / s)
f(x) = 1 / sqrt(2 * π) * exp((-x^(2)) / 2)