AnzahlFächer = 7 (slider from 1 to 20, step 1)
AnzahlKugeln_1 = 175 (slider from 1 to 500, step 1)
Ly = Sequence(Random[1, AnzahlFächer], i, 1, AnzahlKugeln_1)
Lx = Sequence(Random[1, AnzahlFächer], i, 1, AnzahlKugeln_1)
K = Sequence((Element[Lx, n], Element[Ly, n]), n, 1, AnzahlKugeln_1)
F = Sort(Sequence[x(Element[K, i]) * 100 + y(Element[K, i]), i, 1, AnzahlKugeln_1])
H = Sort(Frequency[F])
V = Union(K, K)
Fächer_{leer}: AnzahlFächer * AnzahlFächer - Length[V]
Häufigkeiten = Insert({Fächer_{leer}}, Frequency[H], 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)
Nx = Sequence(RandomNormal[0, 0.12] - 0.5, i, 1, AnzahlKugeln_1)
LX: Lx + Nx
Ny = Sequence(RandomNormal[0, 0.12] - 0.5, i, 1, AnzahlKugeln_1)
LY: Ly + Ny
Kugeln = Sequence((Element[LX, n], Element[LY, n]), n, 1, AnzahlKugeln_1)
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_1)
AnzahlKugeln = Insert({0}, Unique[H], 1)
N = Sequence(0, i, 1, Fächer_{leer})
Z = Join({N, H})
B = BarChart(Z, 1)
Text2 = Text("Die Grafik 2 beinhaltet, wie viele Fächer mit einer gegebenen Elementeanzahl vorhanden sind. ")
Text3 = LaTeX(AnzahlKugeln, true, true)
Text4 = LaTeX(Häufigkeiten, true, true)