Loi normale centrée réduite

Probabilité de 0,1

n = 400 (slider from 1 to 500, step 1)
p = 0.48 (slider from 0 to 1, step 0.01)
e = 2.718281828459045
a = Histogram(Sequence[(k - 0.5 - n * p) / sqrt(n * p * (1 - p)), k, 0, n + 1, 1], Sequence[BinomialDist[n, p, k, false] * sqrt(n * p * (1 - p)), k, 0, n, 1])
f(x) = exp((-x^(2)) / 2) / (sqrt(2 * π) * abs(1))
b = false
A = (2.696899315425157, 0.4325873571822601)
B: A + (2, 0)
C: A + (0, 0.05)
D: C + (2, 0)
poly1, c, d, b_1, a_1 = Polygon(C, D, B, A)