\frac{k}{n}

p

z = 1.96
n = 68 (slider from 5 to 300, step 1)
c: (x - y)^(2) = z^(2) / n * x * (1 - x)
k = 37 (slider from 0 to n, step 1)
a = Segment((0, k / n), (1, k / n))
A, B = Intersect(c, a)
k1: x(A)
k2: x(B)
Text1: "Wilson-Konfidenzintervall  [" + k1 + ", " + k2 + "]"
Text2 = Text("Sicherheitswahrscheinlichkeit  95%")