Loi de probabilité de Fn et intervalles de fluctuation asymptotique au seuil de 0,95

IF seconde

I_n

n = 30 (slider from 0 to 100, step 1)
p = 0.3 (slider from 0 to 1, step 0.1)
m: n * p
s: sqrt(n * p * (1 - p))
Liste1 = Sequence((k - m) / s, k, 0, n, 1)
Liste2 = Sequence(BinomialDist[n, p, k, false], k, 0, n, 1)
batonZ = BarChart(Liste1, Liste2, 0)
rect = BarChart(Liste1, s * Liste2, 1 / s)
f(x) = 1 / sqrt(2 * π) * exp((-x^(2)) / 2)
Liste3 = Sequence(k / n, k, 0, n, 1)
Liste4 = Sequence(k, k, 0, n, 1)
batonX = BarChart(Liste4, Liste2, 0)
batonF = BarChart(Liste3, Liste2, 0)
M: (-1.96, f(-1.96))
M' = Mirror(M, yAxis)
N = (-1.96, 0)
P = (1.96, 0)
u_α = 1.96 (slider from 1 to 3, step 0.01)
a: x = p + u_α * sqrt(p * (1 - p) / n)
b: x = p - u_α * sqrt(p * (1 - p) / n)
c: x = p - 1 / sqrt(n)
d: x = p + 1 / sqrt(n)
A = Point(b)
e = OrthogonalLine(A, b)
B = Intersect(a, e)
C = Point(b)
g = OrthogonalLine(C, b)
D = Intersect(d, g)
E = Intersect(c, g)
i = Segment(A, B)
h = Segment(E, D)
F = Point(c)
j = Ray(E, F)
G = Point(d)
k = Ray(D, G)
H = Point(b)
I = Point(a)
l = Ray(A, H)
q = Ray(B, I)