n = 100 (slider from 10 to 400, step 1)
p = 0.77 (slider from 0 to 1, step 0.01)
σ: sqrt(n * p * (1.0 - p))
e = 2.718281828459045
a = Histogram(Sequence[(i - n * p) / σ - 0.5 / σ, i, 0.0, n + 1.0], Sequence[σ * Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n])
A = Point(xAxis)
C = Point(xAxis)