n = 200 (slider from 0 to 1000, step 1)
p = 0.5 (slider from 0 to 1, step 0.01)
m: (n * p)
s: sqrt(((n * p) * (1 - p)))
f(x) = (1 / sqrt((2 * π)) * ℯ^(((-x^(2))) / 2))
c = Histogram(Sequence[(k - m - 0.5) / s, k, 0, n + 1], Sequence[(s * BinomialDist[n, p, k, false]), k, 0, n])
c_1 = 0