A volte la matematica può essere totalmente inutile, ma sorprendentemente semplice e bella.
Un possibile esempio di questa idea è la seguente immagine, che si può generare, in Wolfram Mathematica, con un codice di lunghezza inferiore a quello di un twit (123 caratteri):

Graphics3D[Table[Rotate[Cuboid[{-0.9^k, -0.9^k, (1/20)*k}, 
{0.9^k, 0.9^k, (1/20)*(k + 1)}], k*0.1, {0, 0, 1}], {k, 0, 60}]]

Questo mini-programma è stato anche pubblicato nel twitter @wolframtap (Wolfram Tweet-a-Program).

QUI il collegamento al twit.

Un altro interessante aspetto relativo al fantasioso e stravagante edificio rappresentato nell’immagine è il fatto che, malgrado esso possa avere un’altezza infinita, avrà comunque un volume finito.

In questa pagina è presentata una versione un poco più estesa del programma, con una dimostrazione interattiva in cui è possibile modificare l’angolo tra parallelepipedi consecutivi.

(Grazie a BV per avermi suggerito questa idea)