Intégrale (question B2)

n = 5 (slider from 5 to 5000, step 5)
m: n * 0.4
σ: sqrt(n * 0.4 * 0.6)
H = Histogram(Sequence[(i - m) / σ - 0.5 / σ, i, 0, n + 1], Sequence[σ * BinomialDist[n, 0.4, k, false], k, 0, n])
f(x) = 1 / sqrt(2 * π) * ℯ^((-x^(2)) / 2)
IntégraleGAUSS = Integral(f, -1, 2)
a: m - σ
b: m + 2 * σ
AireHISTO: BinomialDist[n, 0.4, floor(b), true] - BinomialDist[n, 0.4, floor(a), true]
Delta: IntégraleGAUSS - AireHISTO
c = false