n Kugeln werden auf 2 Behälter verteilt,
wobei jede Kugel mit der Wahrscheinlichkeit p in den ersten Behälter gelangt.
Das Histogramm zeigt die Wahrscheinlichkeiten für die Kugelanzahlen im 1. Behälter.

Histogramm

Nummern

p = 0.5 (slider from 0 to 1, step 0.01)
C = (6.15, 8.1)
D = (-0.1, 8.1)
F = (9.9, 8.1)
H = (16.15, 8.1)
A = (-0.1, 1.9)
B = (6.15, 1.9)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
E = (9.9, 1.9)
G = (16.15, 1.9)
Vieleck2, f, e, g, h = Polygon(F, E, G, H)
n = 20 (slider from 1 to 500, step 1)
L1 = Sequence((Random[0, 5] + random(), Random[0, 5] + 2 + random()), i, 1, n)
Z = Sequence(RandomBinomial[1, p], i, 1, n)
L1n = Sequence(If[Element[Z, i] ≟ 1, Element[L1, i]], i, 1, n)
q: 1 - p
i = BarChart(-0.5, n + 0.5, Sequence[(((5 * Binomial[n, k]) * p^(k)) * q^(n - k)), k, 0, n])
Text2 = LaTeX(Z, true, true)
L2n = Sequence(If[Element[Z, i] ≟ 0, Element[L1, i] + (10.1, 0)], i, 1, n)
j = false
S = Sum(Z)
Text3 = LaTeX(S, true, true)
L2 = Sequence(i, i, 1, n)
NN1 = Sequence(If[Element[Z, i] ≟ 1, Text[Element[L2, i], Element[L1, i]]], i, 1, n)
NN2 = Sequence(If[Element[Z, i] ≟ 0, Text[Element[L2, i], Element[L2n, i]]], i, 1, n)
k = true