Fiori matematici

Le immagini di questa pagina sono state create con Wolfram Mathematica e pubblicate su Wolfram’s Tweet-a-Program.
Non è facile comporre mini-programmi non più lunghi di un tweet, che producano un risultato comunque interessante. Talvolta il tentativo diventa una vera sfida e a volte bisogna anche saper rinunciare e alzare bandiera bianca.
La lunghezza di un tweet è 140 caratteri, ma, considerando la necessità di inviare il messaggio a @wolframtap, i caratteri effettivamente disponibili sono 128.
Davvero poco.
È necessario trovare una idea “semplice e bella” e cercare poi di ridurre la lunghezza del codice all’essenza.

Ma la Bella Matematica è spesso anche molto semplice, abbastanza da poter essere condensata in un singolo tweet.

Note:
Il titolo dell’immagine contiene un link al twit pubblicato da Tweet-a-Program.
Dopo il titolo è riportato il codice di Mathematica (Wolfram Language) che realizza l’immagine presentata.

 

Parametric paths
ParametricPlot[{{Cos@t (4^(Sin[20 t]-1)),Sin@t (4^(Cos[20 t]-1))},{Cos@t, Sin@t}}, {t, 0, 6.28},Axes->False]
Tweet-a-Program

 

Rainbow flower
a=.05;PolarPlot[4 a (Cos[4 t]^2 4^(2Sin[a t])+Sin[4 t]^2 4^(2Cos[a t]))^.5,{t,0,99},ColorFunction->(ColorData["Rainbow"][#4]&)]
Tweet-a-Program

 

Hue flower
a=.05;PolarPlot[{5 a (Cos[4 t]^2 4^(2 Sin[a t])+Sin[4 t]^2 4^(2 Cos[a t]))^.5,1},{t,0,99},ColorFunction->(Hue[#4]&),Ticks->None]
Tweet-a-Program

 

Blue flower
a={-2,2};f=1/4 E^Cos[16 t]-Sin[1/16 t];ParametricPlot[f {Sin[t],Cos[t]},{t,0,99},PlotRange->{a,a},PlotPoints->600,Axes->None]
Tweet-a-Program

 

Apollonian gasket
Graphics[{Purple,Circle[],Disk@@@Flatten[Table[1/(k^2+2) {{(-1)^r (-k^2+1),-2 (-1)^j k},1},{k,0,9},{j,0,1},{r,0,1}],2]}]
Tweet-a-Program

 

Orion fires
ContourPlot[Sin[x^2/(y+Cos[x y])],{x,-9,9},{y,-8,8},ImageSize->600,AspectRatio->0.6]
Tweet-a-Program

 

Complex flora
ContourPlot[Im[ModularLambda[(x+I 1/2 y)]],{x,0.035,1.965},{y,0.01,2},MaxRecursion->3,ImageSize->500]
Tweet-a-Program

 

Eiffel tower
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}]]
Tweet-a-Program

Ultima modifica:  25 Apr 2015

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *