Ford-Kreise zeichnen 

Zeichnen Sie den Ford-Kreis zum Bruch r.

In[1]:=

X FordCircle[r_] := With[{den = (2 Denominator[r]^2)}, Disk[{r, 1/den}, 1/den]]

Generieren Sie mit FareySequence eine geordnete Folge von Brüchen für die Ford-Kreise.

In[2]:=

X Graphics[{ColorData[110][Denominator[#]], Tooltip[FordCircle[#], #]} & /@ FareySequence[10], PlotRange -> {{0, 1}, {0, 1}}, ImageSize -> Medium]

Out[2]=