n = 25
p = 0.5
q: 1.0 - p
μ: n * p
σ: sqrt(n * p * (1.0 - p))
a = BarChart(-(μ + 0.5) / σ, (μ + 0.5) / σ, Sequence[σ * Binomial[n, k] * p^(k) * q^(n - k), k, 0.0, n])
f(x) = exp(-x^(2.0) / 2.0) / sqrt(2.0 * 3.141592653589793)
Prob = Integral(f, -0.4, 0.8)