f_{obs}

n = 150 (slider from 0 to 1000, step 1)
p = 0.8 (slider from 0 to 1, step 0.1)
α = 0.02 (slider from 0 to 0.2, step 0.01)
m: n * p
s: sqrt(n * p * (1 - p))
Liste2 = Sequence(BinomialDist[n, p, k, false], k, 0, n, 1)
f(x) = 1 / sqrt(2 * π) * exp((-x^(2)) / 2)
Liste3 = Sequence(k / n, k, 0, n, 1)
batonF = BarChart(Liste3, Liste2, 0)
M: (-1.96, f(-1.96))
M' = Mirror(M, yAxis)
N = (-1.96, 0)
P = (1.96, 0)
u_α = InverseNormal(0, 1, 1 - α / 2)
a: x = p + u_α * sqrt(p * (1 - p) / n)
b: x = p - u_α * sqrt(p * (1 - p) / n)
p1 = 0.7 (slider from 0 to 1, step 0.01)
Liste4 = Sequence(BinomialDist[n, p1, k, false], k, 0, n, 1)
batonF1 = BarChart(Liste3, Liste4, 0)
liste_{alpha} = Sequence(k / n, k, ceil(n * p + n * u_α * sqrt(p * (1 - p) / n)), n)
liste_{alphay} = Sequence(BinomialDist[n, p, k, false], k, ceil(n * p + n * u_α * sqrt(p * (1 - p) / n)), n, 1)
c = BarChart(liste_{alpha}, liste_{alphay}, 0)
Liste_{alpha} = Sequence(k / n, k, 0, floor(n * p - n * u_α * sqrt(p * (1 - p) / n)))
Liste_{alphay} = Sequence(BinomialDist[n, p, k, false], k, 0, floor(n * p - n * u_α * sqrt(p * (1 - p) / n)), 1)
d = BarChart(Liste_{alpha}, Liste_{alphay}, 0)
liste_{beta} = Sequence(k / n, k, ceil(n * p - n * u_α * sqrt(p * (1 - p) / n)), floor(n * p + n * u_α * sqrt(p * (1 - p) / n)))
liste_{betay} = Sequence(BinomialDist[n, p1, k, false], k, ceil(n * p - n * u_α * sqrt(p * (1 - p) / n)), floor(n * p + n * u_α * sqrt(p * (1 - p) / n)), 1)
A = Point(g)
B = Point(g)
u = Vector(A, B)
C = Midpoint(A, B)
e = BarChart(liste_{beta}, liste_{betay}, 1.0E-5)
β: e * 100000
texte2 = LaTeX(β, true, true)