Verteilungsfunktion

p = 0.2 (slider from 0 to 1, step 0.01)
n = 90 (slider from 1 to 200, step 1)
q: 1 - p
a = BarChart(-0.5, n + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, 0, n])
k = 19 (slider from 0 to 200, step 1)
m: k
b = BarChart(-0.5, m + 0.5, Sequence[((nCr[n, k] * p^(k)) * q^(n - k)), k, 0, m])
cdf = BinomialDist(n, p, m, true)
Text["P(X<=k) = " + cdf]: cdf
B = BinomialDist(n, p, true)
P: (k, cdf)
c = true
Text2: "P(X\, \leq\, k) \, = " + (LaTeX[b]) + ""