Thomaes funktion – en riktig hjärnvrängare

Jag läser om Thomaes funktion. Det är en funktion som är diskontinuerlig överallt utom i de irrationella talen. Jag var inte bekant med funktionen sedan mina tidigare studier (inte vad jag minns, iallafall), och det visade sig bli en tillfredsställande bekantskap. Den går ut på att när man stoppar in ett rationellt tal i funktionen så får den ett värde som är skilt från noll. Stoppar man däremot in ett irrationellt tal så är funktionsvärdet definierat till noll. Sedan låter man funktionen operera på hela mängden av rationella tal. En del av resultatet syns i nedanstående bildserie.

Kod i Mathematica (som är snodd härifrån); denna genererar ovanstående bilder:

maxq = 100;
fracs = Table[p/q, {q, 2, maxq}, {p, 2, q}] // Flatten // 
   DeleteDuplicates;
pq = {#, 1/Denominator@#} & /@ fracs;

ListPlot[pq, PlotRange -> {{0, 1}}]

Kan man inte få nog av märkliga funktioner så rekommenderar jag att läsa om Dirichlets funktion, som faktiskt inte är kontinuerlig någonstans, eller Weierstrass funktion som är kontinuerlig överallt men som inte är deriverbar någonstans.

Kommentera gärna, markdown-formatering OK.