Verteilungsfunktion

p = 0.54 (slider from 0 to 1, step 0.01)
n = 13 (slider from 1 to 200, step 1)
q: 1 - p
a = BarChart(-0.5, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, 0, n])
B = BinomialDist(n, p, true)
c = true
r = 4.3 (slider from 0 to n + 1, step 0.1)
BB = Sequence(((Binomial[n, k] * p^(k)) * q^(n - k)), k, 0, n)
dx = 1
CC = Sequence(Polygon[((k * dx) - 0.5, 0), (Max[(k * dx), Min[((k + 1) * dx), r]] - 0.5, 0), (Max[(k * dx), Min[((k + 1) * dx), r]] - 0.5, Element[BB, k + 1]), ((k * dx) - 0.5, Element[BB, k + 1])], k, 0, r / dx)
P: (r - 0.5, Sum[BB, r + 0.5])
yWert: y(P)
xWert: x(P)
Text1: "P(X \leq " + (LaTeX[xWert]) + ") = " + (LaTeX[yWert]) + ""