AnzahlKugeln = 112 (slider from 1 to 500, step 1)
AnzahlFächer = 10 (slider from 1 to 20, step 1)
Text1 = Text("ins Quadrat")
L1 = Sequence(Segment[(n, 0), (n, AnzahlFächer)], n, 0, AnzahlFächer)
L2 = Sequence(Segment[(0, n), (AnzahlFächer, n)], n, 0, AnzahlFächer)
Lx = Sequence(Random[1, AnzahlFächer], i, 1, AnzahlKugeln)
Ly = Sequence(Random[1, AnzahlFächer], i, 1, AnzahlKugeln)
K = Sequence((Element[Lx, n], Element[Ly, n]), n, 1, AnzahlKugeln)
V = Union(K, K)
Fächer_{leer}: AnzahlFächer * AnzahlFächer - Length[V]
Text2 = LaTeX(Fächer_{leer}, true, true)
Nx = Sequence(RandomNormal[0, 0.12] - 0.5, i, 1, AnzahlKugeln)
LX: Lx + Nx
Ny = Sequence(RandomNormal[0, 0.12] - 0.5, i, 1, AnzahlKugeln)
LY: Ly + Ny
Kugeln = Sequence((Element[LX, n], Element[LY, n]), n, 1, AnzahlKugeln)
Q = Sequence(Polygon[Element[K, n] + (0, 0), Element[K, n] + (0, -1), Element[K, n] + (-1, -1), Element[K, n] + (-1, 0)], n, 1, AnzahlKugeln)