n = 800 (slider from 0 to 5000, step 100)
e: n * 0.02
v: n * 0.02 * 0.98
s: sqrt(v)
liste1 = Sequence((i - e) / s - 0.5 / s, i, 0, n + 1)
liste2 = Sequence(s * BinomialDist[n, 0.02, k, false], k, 0, n)
a_1 = Histogram(liste1, liste2)
L = Sequence(((Element[liste1, k] + Element[liste1, k + 1]) / 2, Element[liste2, k]), k, 1, n - 1)
N = Sequence(((Element[liste1, k] + Element[liste1, k + 1]) / 2, Element[liste2, k]), k, 1, n - 1)
f(x) = 1 / sqrt(2 * π) * exp(-0.5 * x^(2))