z = 1.96
n = 50 (slider from 10 to 300, step 5)
Text1 = Text("Sicherheitswahrscheinlichkeit  95%")
c: (x - y)^(2) = z^(2) / n * y * (1 - y)
p = 0.59 (slider from 0.01 to 0.99, step 0.01)
a = Segment((p, 0), (p, 1))
A, B = Intersect(c, a)
C: (p, BinomialDist[n, p, floor(y(B) * n), true] - BinomialDist[n, p, ceil(y(A) * n) - 1, true])
b = Segment((0, 0.95), (1, 0.95))