z = 1.96
n = 50 (slider from 10 to 300, step 5)
f1(x) = n * x + z * sqrt(n * x * (1 - x))
f2(x) = n * x - z * sqrt(n * x * (1 - x))
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)