Das Stichprobenergebnis X wird vorgegeben.
Sodann werden alle Wahrscheinlichkeiten p ermittelt,
die mit dem Stichprobenergebnis verträglich sind, das heißt 
hier, dass X in der zugehörigen 2σ-Umgebung liegt.

p = 0.45 (slider from 0 to 1, step 0.01)
n = 50 (slider from 1 to 200, step 1)
q: 1 - p
a = BarChart(-0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, 0, n])
l: floor((n * p) - (2 * sqrt(((n * p) * q))))
b = BarChart(-0.5, l + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, 0, l])
r: ceil((n * p) + (2 * sqrt(((n * p) * q))))
c = BarChart(r - 0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, r, n])
rr: r - 1
ll: l + 1
Text1 = Text("2σ-Umgebung = [" + ll + " | " + rr + "]")
X = 22 (slider from 0 to 64, step 1)
XX: (X, 0)
Text3 = Text("Stichprobenergebnis")
t1(x) = If[x < ll, 1, 0]
t2(x) = If[x > rr, 1, 0]
er: t1(X) + t2(X) > 0
Text5 = Text("X ist mit p nicht verträglich.")
fr = If(er ≟ false, 0, 1)
Text2 = Text("groolfs.de")