Simulation   Neuberechnung mit F9 bzw. Strg+R

Histogramm

p = 0.5 (slider from 0 to 1, step 0.01)
n = 16 (slider from 1 to 20, step 1)
q: 1 - p
a = BarChart(-0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, 0, n])
L = Sequence(RandomBinomial[1, p], i, 1, n)
Wiederholungen = 250
L2 = Sequence(L, i, 1, Wiederholungen)
L3 = Sequence(Sum[Element[L2, i]], i, 1, Wiederholungen)
L4 = Frequency(Sequence[i, i, 0, n + 1], L3)
Simulation = BarChart(-0.5, n + 0.5, L4 / Wiederholungen)
b = true
E1 = Sequence((i / 2 + 1, -0.05), i, 1, n)
E3 = Sequence(If[Element[L, i] ≟ 1, Element[E1, i]], i, 1, n)
c = false
Treffer = Sum(L)
Text2 = LaTeX(Treffer, true, true)
Nummer = Sequence(Text[i, (i / 2 + 0.9, -0.08)], i, 1, n)
Text1 = Text("Die Anzahl der Wiederholungen (250)  kann geändert werden. ")