Stichprobenlaenge = 50 (slider from 1 to 150, step 1)
p = 0.5 (slider from 0 to 1, step 0.01)
AnzahlWiederholungen = 100 (slider from 1 to 500, step 1)
L1 = Sequence(RandomBinomial[Stichprobenlaenge, p], i, 1, AnzahlWiederholungen)
Text1 = LaTeX(L1, true, true)
L2: L1 / Stichprobenlaenge
Liste1 = Sequence(Segment[(Element[L2, i] - 0.03, (i * 0.02)), (Element[L2, i] + 0.03, (i * 0.02))], i, 1, AnzahlWiederholungen)
Liste2 = Sequence(Segment[(Element[L2, i] - (1.96 * sqrt((Element[L2, i] * (1 - Element[L2, i]))) / sqrt(Stichprobenlaenge)), (i * 0.02)), (Element[L2, i] + (1.96 * sqrt((Element[L2, i] * (1 - Element[L2, i]))) / sqrt(Stichprobenlaenge)), (i * 0.02))], i, 1, AnzahlWiederholungen)
Liste3 = Sequence((Element[L2, i], (i * 0.02)), i, 1, AnzahlWiederholungen)
Liste4 = DotPlot(L1)
a = Segment((p, 0), (p, 2.2))
L5 = Sequence(If[p < Element[L2, i] - (1.96 * sqrt((Element[L2, i] * (1 - Element[L2, i]))) / sqrt(Stichprobenlaenge)) ∨ p > Element[L2, i] + (1.96 * sqrt((Element[L2, i] * (1 - Element[L2, i]))) / sqrt(Stichprobenlaenge)), (Element[L2, i], (i * 0.02))], i, 1, AnzahlWiederholungen)
L6 = Sequence(If[Defined[Element[L5, i]], 1, 0], i, 1, AnzahlWiederholungen)
Anz = Sum(L6)
Text2: "\text{Simulation}\\\\
\text{Von }" + (LaTeX[AnzahlWiederholungen]) + "  \text{ Wald-Konfidenzintervallen überdecken } " + (LaTeX[Anz]) + " \\
\text{die Wahrscheinlichkeit p nicht.}\\
\text{Die Sicherheitswahrscheinlichkeit beträgt 95%}, \hspace{0.5ex}   z=\text{1,96}\\
\text{Neuberechnung mit f9}\\\\
\text{groolfs.de}

 \text{}"