z = 1.96
n = 75 (slider from 10 to 300, step 5)
f1(x) = (2 * x * n + z^(2) + (-z^(2) * (-4 * x * n - z^(2) + 4 * x^(2) * n))^(1 / 2)) * n / 2 / (n + z^(2))
f2(x) = (-1) / 2 * (-2 * x * n - z^(2) + (-z^(2) * (-4 * x * n - z^(2) + 4 * x^(2) * n))^(1 / 2)) * n / (n + z^(2))
Text1 = Text("Sicherheitswahrscheinlichkeit  95%")
a = Segment((0, 0.95), (1, 0.95))
Liste1 = Sequence((i / 100, BinomialDist[n, i / 100, floor(f1(i / 100)), true] - BinomialDist[n, i / 100, ceil(f2(i / 100)) - 1, true]), i, 1, 99)