Endpunkte

2σ-Umgebung

p = 0.48 (slider from 0 to 1, step 0.01)
n = 10 (slider from 1 to 200, step 1)
B1 = Sequence(RandomBinomial[1, p], i, 1, n)
B2 = Sequence(If[Element[B1, i] ≟ 0, 1, 0], i, 1, n)
S2 = Sequence(Sum[B2, i], i, 1, n)
S1 = Sequence(Sum[B1, i], i, 1, n)
G1 = Sequence(Segment[(j, 0), (j, n)], j, 0, n)
G2 = Sequence(Segment[(0, j), (n, j)], j, 0, n)
P = Sequence((Element[S1, i], Element[S2, i]), i, 1, n)
L1 = Append(P, (0, 0))
L2 = Sort(L1)
L3 = Sequence(Segment[Element[L2, i], Element[L2, i + 1]], i, 1, n)
E = Sequence((k, n - k), k, 0, n)
a = false
b = false
σ: sqrt(((n * p) * (1 - p)))
sU = Segment(((n * p) - ((2 * σ) * sqrt(2)), n - (n * p) + ((2 * σ) * sqrt(2))), ((n * p) + ((2 * σ) * sqrt(2)), n - (n * p) - ((2 * σ) * sqrt(2))))
Text3: "σ = " + (LaTeX[σ]) + "\\\\


\mbox{Beachte die Laplace-Bedingung  }    σ > 3\\\\
\mbox{Neuberechnung mit F9 bzw. Strg+R}"