Drogas Matematicas!!!!

Si creen que solo con drogas duras se ven cosas alusinantes, aca un gif hecho en Mathematica
Aca el codigo:
Animate[
Graphics[
Table[
Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]},
t + (100 - n) (1 + Sign[100 - n])/2],
{n, 0, 100, 1}, {i, 0, 7, 1}],
PlotRange -> 1, ImageSize -> 500],
{t, 0, 1, .1}] - See more at: http://caballerojaguar.tumblr.com/page/483#sthash.uT44vIN9.dpuf
 Animate[
Graphics[
Table[
Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]},
t + (100 - n) (1 + Sign[100 - n])/2],
{n, 0, 100, 1}, {i, 0, 7, 1}],
PlotRange -> 1, ImageSize -> 500],
{t, 0, 1, .1}]

La fuente de este gif es: intothecontinuum.tumblr
Animate[
Graphics[
Table[
Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]},
t + (100 - n) (1 + Sign[100 - n])/2],
{n, 0, 100, 1}, {i, 0, 7, 1}],
PlotRange -> 1, ImageSize -> 500],
{t, 0, 1, .1}] - See more at: http://caballerojaguar.tumblr.com/page/483#sthash.uT44vIN9.dpuf
Animate[
Graphics[
Table[
Circle[{.25*Cos[i*2Pi/23], .25*Sin[i*2Pi/23]},
t + (100 - n) (1 + Sign[100 - n])/2],
{n, 0, 100, 1}, {i, 0, 7, 1}],
PlotRange -> 1, ImageSize -> 500],
{t, 0, 1, .1}] - See more at: http://caballerojaguar.tumblr.com/page/483#sthash.uT44vIN9.dpuf

0 comentarios:

¿Tienes alguna duda o Sugerencia? Tu participación te enriquece y me enriquece.

Con tecnología de Blogger.