Länge der Bernoullikette n =

Trefferwahrscheinlichkeit p =

Anzahl der Wiederholungen N =

$x$-Achse:   Anzahl der Treffer
$y$-Achse:  relative Häufigkeit 

Neuberechnung mit F9 oder Strg+r

N: 300
p: 0.5
n: 10
L = Sequence(RandomBinomial[n, p], i, 1, N)
b: 1
Eingabefeld1 = Textfield(n)
Eingabefeld2 = Textfield(p)
Eingabefeld3 = Textfield(N)
a = BarChart(L, 1, 1 / N)
Text2 = LaTeX(L, true, true)
f(x) = If[-1 ≤ x ≤ 20, Normal[(n * p), sqrt(((n * p) * (1 - p))), x, false]]