Ausgleichskurve

n = 44 (slider from 1 to 200, step 1)
L1 = Sequence(Binomial[n, k], k, 0, n)
a = Sum(L1)
L2 = Sequence((k, Binomial[n, k] / a), k, 0, n)
m: n * 0.5
s: sqrt(n * 0.25)
φ(x) = 1 / (s * 2.50663) * ℯ^(-((x - m)^(2) / (2 * s^(2))))
b = false