A

B

C

B

C

A

C

A

B

C

D

B

4

∙ 3

D

D

D

A

A

B

C

D

1

Start = Point(yAxis)
Liste2 = Sequence((4, i / 1.8 - 1), i, 1, 16)
Liste1 = Sequence((2, (5 * i / 3)), i, 1, 4)
k = 2 (slider from 0 to 2, step 1)
Liste4 = Sequence(Segment[Start, Element[Liste1, i]], i, 1, 4)
Liste5 = Sequence(Sequence[Segment[Element[Liste1, i], Element[Liste2, (4 * (i - 1)) + j]], i, 1, 4], j, 1, 4)
Text19: "\left( \binom 4 " + (LaTeX[k]) + " \right) = "
Text16: "\binom {4 + " + (LaTeX[k]) + " - 1} " + (LaTeX[k]) + " = \binom 5 2"
a = Segment((3.62, 5.68), (4.62, 5.68))
b = Segment((3.6, 3.46), (4.6, 3.46))
c = Segment((3.6, 2.86), (4.6, 2.86))
d = Segment((3.64, 1.24), (4.64, 1.24))
e = Segment((3.66, 0.68), (4.66, 0.68))
f = Segment((3.68, 0.12), (4.68, 0.12))