AnzahlKugeln = 10 (slider from 0 to 100, step 1)
AnzahlFächer = 15 (slider from 1 to 20, step 1)
Liste1 = Sequence(Random[1, AnzahlFächer], i, 1, AnzahlKugeln)
Liste2 = DotPlot(Liste1)
Liste3 = Sequence(Segment[(n - 0.5, 0), (n - 0.5, 2)], n, 1, AnzahlFächer + 1)
a = Segment((0.5, 0), (AnzahlFächer + 0.5, 0))