k

k = 4 (slider from 1 to 6, step 1)
n = 5 (slider from -5 to 10, step 0.1)
p = nCr(n, k)
zW: {6, 10, 8, 6, 4, 2}
nW = 36 (slider from -5 to 50, step 0.1)
S2 = Polygon({(0.5, 0), (1.5, 0), (1.5, 10 / 36), (0.5, 10 / 36)})
S3 = Polygon({(1.5, 0), (2.5, 0), (2.5, 8 / 36), (1.5, 8 / 36)})
S4 = Polygon({(2.5, 0), (3.5, 0), (3.5, 6 / 36), (2.5, 6 / 36)})
S5 = Polygon({(3.5, 0), (4.5, 0), (4.5, 4 / 36), (3.5, 4 / 36)})
S6 = Polygon({(4.5, 0), (5.5, 0), (5.5, 2 / 36), (4.5, 2 / 36)})
S1 = Polygon({(-0.5, 0), (0.5, 0), (0.5, 6 / 36), (-0.5, 6 / 36)})
PunkteXAchse = Sequence((i, 0), i, 0, 5)
P = Point(PunkteXAchse)
v = 0.04 (slider from -5 to 5, step 0.1)
T: "P(X = " + (LaTeX[x(P)]) + ") = \frac{" + (LaTeX[zW(x(P) + 1)]) + "}{" + (LaTeX[nW]) + "}"