Mostrando las entradas con la etiqueta Mathematica. Mostrar todas las entradas
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
Drogas Matematicas!!!!
Si creen que solo con drogas duras se ven cosas alusinantes, aca un gif hecho en Mathematica
Aca el codigo:
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
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
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
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
Maldito Parkinson!!!!!
Imagina que tienes un triangulo perfecto, y entonces dibujar un triangulo a pulso tratando de que este nuevo triangulo este los mas cercano al triangulo inicial, luego haces un triangulo lo mas cercano al anterior, tambien a pulso y ademas incluyendo las imperfecciones que hayas cometido antes, repito este procedimiento indefinidamente y en contraras un patron como el que se muestra en el gif, soprendentemente con forme aumentas la iteración llegar a un cuadrado aproximadamente.
La fuente de este gif es: intothecontinuum.tumblr
Suscribirse a:
Entradas (Atom)
