Animer le curseur n
avec un clic droit sur n

p(Fn appartient à In)

p(Fn appartient à IF seconde)

α = 0.05 (slider from 0 to 0.2, step 0.01)
u_α = InverseNormal(0, 1, 1 - α / 2)
p = 0.4 (slider from 0 to 1, step 0.05)
n = 1 (slider from 1 to 500, step 1)
b_n: p - u_α * sqrt(p * (1 - p) / n)
c_n: p + u_α * sqrt(p * (1 - p) / n)
m: n * p
s: sqrt(n * p * (1 - p))
proba: BinomialDist[n, p, floor(m + u_α * s), true] - BinomialDist[n, p, ceil(m - u_α * s) - 1, true]
M_n: (n, proba)
a: y = 1 - α
seconde: BinomialDist[n, p, floor(m + sqrt(n)), true] - BinomialDist[n, p, ceil(m - sqrt(n)) - 1, true]
S_n: (n, seconde)
c = true
d = true