Stichprobenlaenge = 50 (slider from 1 to 150, step 1)
p = 0.36 (slider from 0 to 1, step 0.01)
AnzahlWiederholungen = 53 (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))
Text2 = Text("Es lohnt sich, die Darstellung zu vergrößern.")
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)