Mostrando las entradas con la etiqueta Algoritmo. Mostrar todas las entradas
¿Metal? ¿Rock? Son Puros Gritos
Aqui una de mis bandas favoritas, que de paso presumo, tuve la suerte de ver en vivo, todo una montaña de emoción, se que dicen que esta musica es solo ruido y gritos sin sentido, ¿seguros que asi es?
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)
