p = 0.5 (slider from 0 to 1, step 0.01)
n = 13 (slider from 1 to 20, step 1)
Verteilung = BinomialDist(n, p)
L = -1 (slider from -5 to 5)
O = 0.5 (slider from -5 to 5)
U = -0.05 (slider from -5 to 5)
xPunkte = Sequence((i, 0), i, 0, n)
R: n + 1
A = Point(xPunkte)
a: x(A)
bink = BinomialDist(n, p, {a})
Balken = Polygon({A + (0.5, 0), A + (0.5, bink), A + (-0.5, bink), A + (-0.5, 0)})
B = Point(xPunkte)
b: x(B)
xHistogramm = Sequence(i, i, a, b)
yHistogramm = Sequence(((nCr[n, i] * p^(i)) * (1 - p)^(n - i)), i, a, b)
HistogrammIntervall = BarChart(xHistogramm, yHistogramm)
xPunkteIntervall = Sequence((i, 0), i, a, b)
VerteilungIntervall = Zip(Polygon[{P + (0.5, 0), P + (0.5, h), P + (-0.5, h), P + (-0.5, 0)}], P, xPunkteIntervall, h, yHistogramm)
v: (-0.2, -0.03)
Av: A + v
Bv: B + v
Text3: "b = " + b + ""
k = 1 (slider from -5 to 5)
binab = BinomialDist(n, p, Sequence[i, i, a, b])
xWerte = Sequence(i, i, 0, n)
yWerte = Sequence(((nCr[n, i] * p^(i)) * (1 - p)^(n - i)), i, 0, n)
P = 1 (slider from -5 to 5)
h = 1 (slider from -5 to 5)
werte = 1 (slider from -5 to 5)
VerteilungX = Zip(Polygon[{P + (0.5, 0), P + (0.5, h), P + (-0.5, h), P + (-0.5, 0)}], P, xPunkte, h, yWerte)
Text1: "k = " + a + ""
Text2: "P(X = " + (LaTeX[a]) + ") = " + (LaTeX[bink]) + ""