2σ-Umgebung

Neuberechnung mit F9 bzw Strg+R

p = 0.55 (slider from 0 to 1, step 0.01)
n = 1020 (slider from 1 to 2000, step 1)
L = Sequence(RandomBinomial[1, p], i, 1, n)
L2 = Sequence((k, Sum[L, k] / k), k, 1, n)
h = Segment((0, p), (n, p))
g(x) = If[x ≥ 1 / p^(2) ∧ x ≤ n, p - 1 / sqrt(x)]
f(x) = If[x ≥ 1 / p^(2) ∧ x ≤ n, p + 1 / sqrt(x)]
a = true