Binomialverteilung:

Wahrscheinlichkeit:

n =

p =

p: 0.5
n: 100
Verteilung = BinomialDist(n, p)
O = 0.5 (slider from -5 to 5)
U = -0.07 (slider from -5 to 5)
xPunkte = Sequence((i, 0), i, 0, n)
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)
Text1: "a = " + a + ""
v: (-0.2, -0.05)
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])
Text2: "P(" + (LaTeX[a]) + " \leq X \leq " + (LaTeX[b]) + ") = " + (LaTeX[binab]) + ""
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)
L: ((-n)) / 10
R: n + n / 10
Eingabefeld1 = Textfield(n)
Eingabefeld2 = Textfield(p)