Animate[
Graphics[
Table[
Circle[{30*Cos[i*Pi/4], 30*Sin[i*Pi/4]},
t + (50 - n) (1 + Sign[50 - n])/2],
{n, 0, 50, 1}, {i, 0, 7, 1}],
PlotRange -> 12, ImageSize -> 500],
{t, 0, 1, .1}]
Fuente: intothecontinuum.tumblr.com
Ya No Se Si Esto Se Mueve O Yo No Veo Bien
Otro Gif hecho en Mathematica
Aca el codigo:
Animate[
Graphics[
Table[
Circle[{30*Cos[i*Pi/4], 30*Sin[i*Pi/4]},
t + (50 - n) (1 + Sign[50 - n])/2],
{n, 0, 50, 1}, {i, 0, 7, 1}],
PlotRange -> 12, ImageSize -> 500],
{t, 0, 1, .1}]
Fuente: intothecontinuum.tumblr.com
Animate[
Graphics[
Table[
Circle[{30*Cos[i*Pi/4], 30*Sin[i*Pi/4]},
t + (50 - n) (1 + Sign[50 - n])/2],
{n, 0, 50, 1}, {i, 0, 7, 1}],
PlotRange -> 12, ImageSize -> 500],
{t, 0, 1, .1}]
Fuente: intothecontinuum.tumblr.com
Suscribirse a:
Comentarios de la entrada (Atom)
0 comentarios:
¿Tienes alguna duda o Sugerencia? Tu participación te enriquece y me enriquece.