Mathematica code:    G[X_, Y_, Z_, S_, p_, q_, r_, a_, b_, c_, N_, e_, t_, PR_, IS_] :=  Graphics[   Table[      Disk[       {X*Cos[a (e*t + n)*2 Pi/N + p], Y*Cos[b (e*t + n)*2 Pi/N + q]},        Z*Cos[c (e*t + n)*2 Pi/N + r*t*2 Pi] + S],   {n, 1, N}],  PlotRange - PR, ImageSize - IS]    Manipulate[   G[.5, 1, .02, .03, 0, Pi/4, -.05, 2, 1, 1, 40, 1, .1, t,    {{-.786, .786}, {-1.1, 1.1}}, 500],  {t, 1, 20, 1}]    ?

Mathematica code: G[X_, Y_, Z_, S_, p_, q_, r_, a_, b_, c_, N_, e_, t_, PR_, IS_] := Graphics[ Table[ Disk[ {X*Cos[a (e*t + n)*2 Pi/N + p], Y*Cos[b (e*t + n)*2 Pi/N + q]}, Z*Cos[c (e*t + n)*2 Pi/N + r*t*2 Pi] + S], {n, 1, N}], PlotRange - PR, ImageSize - IS] Manipulate[ G[.5, 1, .02, .03, 0, Pi/4, -.05, 2, 1, 1, 40, 1, .1, t, {{-.786, .786}, {-1.1, 1.1}}, 500], {t, 1, 20, 1}] ?

Mathematica code:  RotAxis = Table[Table[  Table[    R[o, {.01 + x, .01 + y, 0}, {0, 0, 0}],    {o, 0, 2 Pi, 2 Pi/80}], {x, -10, 10, 1}], {y, -10, 10, 1}]Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}CubeProjections[color_, pr_, b_, s_, h_, w_, m_, o_] :=Graphics[ Table[  Translate[   {AbsoluteThickness[h], If[color == 0, Black, White],    Line[     Table[      Table[      RotAxis[[11 + y]][[11 + x]]      [[1 + Mod[Round[ (Pi + ArcTan[.01 + x, .01 + y])/2Pi] + o, 80]]]…

Mathematica code: RotAxis = Table[Table[ Table[ R[o, {.01 + x, .01 + y, 0}, {0, 0, 0}], {o, 0, 2 Pi, 2 Pi/80}], {x, -10, 10, 1}], {y, -10, 10, 1}]Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}CubeProjections[color_, pr_, b_, s_, h_, w_, m_, o_] :=Graphics[ Table[ Translate[ {AbsoluteThickness[h], If[color == 0, Black, White], Line[ Table[ Table[ RotAxis[[11 + y]][[11 + x]] [[1 + Mod[Round[ (Pi + ArcTan[.01 + x, .01 + y])/2Pi] + o, 80]]]…

Mathematica code:Rot80 =  Table[  Table[   RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]],  {v, 1, 8, 1}],{a, 0, 2 Pi, ...

Mathematica code:Rot80 = Table[ Table[ RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]], {v, 1, 8, 1}],{a, 0, 2 Pi, ...

Inspired by Visual illusions based on single-field contrast asynchronies and by beesandbombs. Mathematica code: v[a_] :=  {{Cos[a], 0},  {0,...

Inspired by Visual illusions based on single-field contrast asynchronies and by beesandbombs. Mathematica code: v[a_] := {{Cos[a], 0}, {0,...

Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[  Table[   A*Sin[f*x + t + n*2 Pi/w] + h*n,   {n, 1, M, 1}], {x, 0, 4 Pi},   PlotSty...

Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[ Table[ A*Sin[f*x + t + n*2 Pi/w] + h*n, {n, 1, M, 1}], {x, 0, 4 Pi}, PlotSty...

Inspired by Intermodular Distortion by Volume2a. Mathematica code: ListAnimate[Table[ Graphics[  Table[   Table[    {Red,      Disk[{(1 + 2 n) .5/N + Mod[((-1)^N) t/N, ((-1)^N) 1],                If[N == 3, 0, Sum[.5/j, {j, 3, N - 1}]]}, .5/N, {0, Pi}]},   {n, -1, N, 1}],  {N, 3, 35}], PlotRange - {{0, 1}, {0, 1.33}}, ImageSize - {500, 652},  Background - Blue],{t, 0, .95, .05}]

Inspired by Intermodular Distortion by Volume2a. Mathematica code: ListAnimate[Table[ Graphics[ Table[ Table[ {Red, Disk[{(1 + 2 n) .5/N + Mod[((-1)^N) t/N, ((-1)^N) 1], If[N == 3, 0, Sum[.5/j, {j, 3, N - 1}]]}, .5/N, {0, Pi}]}, {n, -1, N, 1}], {N, 3, 35}], PlotRange - {{0, 1}, {0, 1.33}}, ImageSize - {500, 652}, Background - Blue],{t, 0, .95, .05}]

intothecontinuum.tumbler.com - a perspective on mathematics, the pattern, and the abstract with animated GIFs and code to reproduce.

intothecontinuum.tumbler.com - a perspective on mathematics, the pattern, and the abstract with animated GIFs and code to reproduce.

Shamil Karim Kristina Udovichenko Tokyo type

Tokyo type gif animation

Shamil Karim Kristina Udovichenko Tokyo type

one seamlessly looping gif for each day of november | imgur

#NovGifs

one seamlessly looping gif for each day of november | imgur

Great Stellated Dodeca

Great Stellated Dodeca

Pinterest
Buscar