Länge der Bernoullikette n =

Trefferwahrscheinlichkeit p =

true)

=Binomial(n,p, 1 )

p: 0.4
n: 15
Eingabefeld1 = Textfield(n)
Eingabefeld2 = Textfield(p)
f(x) = If[-1 ≤ x ≤ 20, Normal[(n * p), sqrt(((n * p) * (1 - p))), x, false]]
c = BinomialDist(n, p)
a = 4 (slider from 0 to n, step 1)
b = 7 (slider from 0 to n, step 1)
F = Sequence(BinomialDist[n, p, i, true], i, 0, n)
d1 = BarChart(a - 0.5, b + 0.5, Sequence[((nCr[n, k] * p^(k)) * (1 - p)^(n - k)), k, a, b])
Text1: "P(a \leq X \leq b)=" + (LaTeX[d1]) + " \\\\
P(0 \leq X  \leq b )=P(X \leq b)\\\\
P(a \leq X \leq n )= P(a \leq X) = 1- P(X \leq a-1) \\"