n = 50 (slider from 50 to 1500, step 1)
n_1: 50
p = 0.6 (slider from 0.45 to 0.6, step 0.15)
Inf = If(floor((n * 0.5) - (1.96 * (0.5 * sqrt(n))))  <  (n * 0.5) - (1.96 * (0.5 * sqrt(n))), floor((n * 0.5) - (1.96 * (0.5 * sqrt(n)))) + 1, floor((n * 0.5) - (1.96 * (0.5 * sqrt(n)))))
Sup: floor((n * 0.5) + (1.96 * (0.5 * sqrt(n))))
c = BinomialDist(n, p)
a = BinomialDist(n, 0.5)
e = Histogram(Sequence[k - 0.5, k, Inf, Sup + 1], Sequence[BinomialDist[n, p, k, false], k, Inf, Sup])
texte1: "\text{Risque de ne pas rejeter l'hypothèse d'équilibre alors qu'elle est fausse}=" + (LaTeX[e]) + ""
A: (Inf, 0)
B: (Sup, 0)
b = Segment(A, B)
texte2: "\text{Hypothèse d'équilibre non rejetée lorsque le nombre de pile est compris entre}\;" + (LaTeX[Inf]) + " \;\text{et}\;" + (LaTeX[Sup]) + ""