Posts tagged: queued

Mathematica code:

Ce[r_, k_, N_, n_] := r^n {Cos[2 Pi*k/N], Sin[2 Pi*k/N]}f[n_, N_] := 2 Pi*n/NG[op_, P_, c_, d_, r_, N_, s_, t_, IS_] := Graphics[  Table[   {Opacity[op],    Rotate[     Disk[      Ce[r, k, N, n],      d*c^n],     f[n, N]*t, {0, 0}]},   {k, 1, N, 1}, {n, 1, s, 1}],  ImageSize -> IS, PlotRange -> P]ListAnimate[ Table[  G[.175, 1.3, .95, .3, 1, 4, 100, t, 500], {t, 0, 1, .02}]]
Filed under: #GIF  #Mathematica  #drafts  #queued  #circles

Mathematica code:

Animate[  DensityPlot[    Cos[Exp[Sqrt[x^2 + y^2]]*Sin[ArcTan[x, y]] + t],     {x, -7, 7}, {y, -7, 7},  PlotPoints -> 150, Mesh -> False, Frame -> False,   ColorFunction -> GrayLevel, ImageSize -> 521],{t, 0, 2 Pi, 2 Pi/10}]
Filed under: #GIF  #Mathematica  #density plot  #drafts  #queued

Mathematica code:

F[A_, B_, s_, L_, K_, t_] := ((1 - K) A + s*(1 - Abs[2 L - 1])*K*B)ListAnimate[ Table[  ParametricPlot[   Evaluate[    {F[Cos[t], Cos[t (1/0.7654 - 1)], 1, L, .7654, t],     F[Sin[t], Sin[t (1/0.7654 - 1)], -1, L, .7654, t]}],   {t, 0, 389.5},  Axes -> False, ImageSize -> 500, PlotRange -> 1.01],{L, 0, 1, .02}]]
Filed under: #spirograph  #GIF  #Mathematica  #drafts  #queued

created with Mathematica

Filed under: #GIF  #Mathematica  #drafts  #queued  #code?  #circles

Mathematica code:

G[t_, h_, o_, s_, P_] := Graphics[{   {White, Thickness[h], Opacity[o],    Table[     Circle[      {i + t, -1}, s],     {i, -1, .8, .2}],    Table[     Circle[      {i - t, 1}, s],     {i, -.8, 1, .2}],    Table[     Circle[      {-1, j - t}, s],      {j, -.8, 1, .2}],    Table[     Circle[      {1, j + t}, s],     {j, -1, .8, .2}]    }   },  Background -> Black,  ImageSize -> 500,  PlotRange -> P]ListAnimate[ Table[  G[t, .3, .63, 1.12, .07], {t , 0 , .195, .005}]]
Filed under: #GIF  #Mathematica  #drafts  #queued

Mathematica code:

G[t_, h_, o_, s_, P_] := Graphics[{   {White, Thickness[h], Opacity[o],    Table[     Circle[      {i + t, -1}, s],     {i, -1, .8, .2}],    Table[     Circle[      {i - t, 1}, s],     {i, -.8, 1, .2}],    Table[     Circle[      {-1, j - t}, s],      {j, -.8, 1, .2}],    Table[     Circle[      {1, j + t}, s],     {j, -1, .8, .2}]    }   },  Background -> Black,  ImageSize -> 500,  PlotRange -> P]ListAnimate[ Table[  G[t, .005, 1, 1, 2.1], {t , 0 , .18, .02}]]
Filed under: #GIF  #Mathematica  #drafts  #queued  #circles
Filed under: #GIF  #Mathematica  #drafts  #queued  #code?
Filed under: #GIF  #Mathematica  #drafts  #queued  #code?
Filed under: #GIF  #Mathematica  #drafts  #queued

800x800

created with Mathematica

Filed under: #2color  #Mathematica  #drafts  #queued  #code?

800x800

created with Mathematica

Filed under: #2color  #Mathematica  #drafts  #queued  #code?

created with Mathematica

Filed under: #GIF  #Mathematica  #2color  #drafts  #queued  #code?

Music: “Psychometry 3.2” by Akufen

Created with Mathematica

created with Mathematica