Neuberechnung mit F9 bzw Strg+R

Stichprobenlaenge = 16 (slider from 1 to 100, step 1)
p = 0.5 (slider from 0 to 1, step 0.01)
AnzahlWiederholungen = 51 (slider from 1 to 500, step 1)
L1 = Sequence(RandomBinomial[Stichprobenlaenge, p], i, 1, AnzahlWiederholungen)
L2 = DotPlot(L1)
Text1 = LaTeX(L1, true, true)
L3: L2 / Stichprobenlaenge
Text2 = Text("Ein Vergrößern zeigt die Anzahlen der relativen Häufigkeiten. Die Skalierung der y-Achse ist dann ohne Bedeutung.")