Probabilité de 0,1

n = 86 (slider from 1 to 500, step 1)
p = 0.48 (slider from 0 to 1, step 0.01)
e = 2.718281828459045
A = (10.316379208983468, 0.12459472283887943)
B: A + (8, 0)
C: A + (0, 0.0125)
D: C + (8, 0)
poly1, c, d, b_1, a_1 = Polygon(C, D, B, A)
a = Histogram(Sequence[k - 0.5 - n * p, k, 0, n + 1, 1], Sequence[BinomialDist[n, p, k, false], k, 0, n, 1])