archery

The second GIF is supposed to simulate what the first GIF may look like if viewed with your monitor angled downwards. It is the same as the first except the brightness was increased using Photoshop.

Mathematica code:

R[n_] := (SeedRandom[n]; RandomReal[])
G[A_, s_, c_, T_, x_] := A*T*Exp[-(x - c)^2/s]

ListAnimate[
 Show[
   Table[
    Plot[
     100 - n + 
     Sum[G[.05, 6, 100*R[n], 
                 Sum[G[1, .01, k - R[2 n], 1, m/100 + t], 
                 {k, -3, 3, 1}], 
                x],
     {n, 1, 100, 1}], 
   {x, -10, 110}],
    PlotStyle -> Directive[Black], PlotRange -> {{-10, 110}, {0, 100.5}},
    Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full, 
    ImageSize -> {500, 700}],
  {n, 0, 100, 1}]],
{t, 0, .95, .5}, AnimationRunning->False]

Notes: 5020 6/12/12 — 7:30pm Filed under: #GIF #Mathematica #PS #waterfall plot #wavy

$Mathematica code: f[x_, y_] := {Log[Sqrt[(x)^2 + (y)^2]], ArcTan[x, y]}ListAnimate[ Table[ ImageTransformation[ ImageResize[ImageTake[ImageCrop[ DensityPlot[ Sin[104.54*Abs[(x + I y)^2]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 27, Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 834], 800], {100 + t, 700 + t}, {100 - t, 700 - t}],{500, 500}], f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}], {t, 0, 90, 10}],10, AnimationRunning -> False]$

Mathematica code:

f[x_, y_] := {Log[Sqrt[(x)^2 + (y)^2]], ArcTan[x, y]}

ListAnimate[
  Table[
    ImageTransformation[
     ImageResize[ImageTake[ImageCrop[
       DensityPlot[
         Sin[104.54*Abs[(x + I y)^2]], 
       {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 27, 
       Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 834],
     800], {100 + t, 700 + t}, {100 - t, 700 - t}],{500, 500}],
    f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}],
 {t, 0, 90, 10}],
10, AnimationRunning -> False]

Notes: 243 3/26/12 — 8:30pm Filed under: #GIF #Mathematica #logpolar coordinates #density plot #PS

$Mathematica code: f[x_, y_] := {Log[Sqrt[(x)^2 + (y)^2]], ArcTan[x, y]}Export["5wQCGSlogpolar.gif", Table[ ImageTransformation[Part[ Table[ ImageCrop[Part[ Table[ DensityPlot[ Sum[ Cos[(Cos[n*2*Pi/5] + Sin[n*2*Pi/5])*x + (Cos[n*2*Pi/5] - Sin[n*2*Pi/5])*y + t], {n, 0, 4, 1}], {x, -100, 100}, {y, -100, 100}, PlotPoints -> 100, Mesh -> False, Frame -> False, ColorFunction -> GrayLevel, ImageSize -> 522], {t, 0, 2 Pi, 2 Pi/30}], i], 500], {i, 1, 30, 1}], j], f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}], {j, 1, 30, 1}]]$

Mathematica code:

f[x_, y_] := {Log[Sqrt[(x)^2 + (y)^2]], ArcTan[x, y]}

Export["5wQCGSlogpolar.gif",
 Table[
  ImageTransformation[Part[
    Table[
     ImageCrop[Part[
       Table[
        DensityPlot[
          Sum[
           Cos[(Cos[n*2*Pi/5] + Sin[n*2*Pi/5])*x + (Cos[n*2*Pi/5] - Sin[n*2*Pi/5])*y + t], 
          {n, 0, 4, 1}], {x, -100, 100}, {y, -100, 100},
         PlotPoints -> 100, Mesh -> False, Frame -> False, 
         ColorFunction -> GrayLevel, ImageSize -> 522],
       {t, 0, 2 Pi, 2 Pi/30}], i],
      500], {i, 1, 30, 1}], j],
   f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}],
  {j, 1, 30, 1}]]

Notes: 29 3/13/12 — 5:30pm Filed under: #GIF #Mathematica #PS #density plot #logpolar coordinates #aperiodic

Mathematica code:

Animate[
    DensityPlot[
       Sum[.20*Cos[(Cos[n*2*Pi/5] + Sin[n*2*Pi/5])*x + (Cos[n*2*Pi/5] - Sin[n*2*Pi/5])*y + t]^10, 
       {n, 0, 4, 1}], {x, -25, 25}, {y, -25, 25},
     PlotPoints -> 50, Mesh -> False, Frame -> False, ColorFunction -> GrayLevel, ImageSize -> 521],
{t, 0, 2*Pi, Pi/20}]

Notes: 41 3/9/12 — 4:30pm Filed under: #GIF #Mathematica #PS #aperiodic

Mathematica code:

Animate[
    DensityPlot[
        Sum[Cos[(Cos[n*2*Pi/23] + Sin[n*2*Pi/23])*x + (Cos[n*2*Pi/23] - Sin[n*2*Pi/23])*y + t], 
        {n, 0, 22, 1}], {x, -150, 150}, {y, -150, 150}, 
    PlotPoints -> 150, Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 522],
{t, 0, 2*Pi, Pi/10}]

Notes: 106 3/8/12 — 5:00pm Filed under: #GIF #Mathematica #quasicrystal #density plot #PS #aperiodic

Mathematica code:

Animate[
    DensityPlot[
        Sum[Cos[(Cos[n*2*Pi/13] + Sin[n*2*Pi/13])*x + (Cos[n*2*Pi/13] - Sin[n*2*Pi/13])*y + t], 
        {n, 0, 12, 1}], {x, -100, 100}, {y, -100, 100}, 
    PlotPoints -> 100, Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 520],
{t, 0, 2*Pi, Pi/10}]

Notes: 356 3/7/12 — 5:01pm Filed under: #GIF #Mathematica #PS #quasicrystal #density plot #aperiodic

Mathematica code:

Animate[
   DensityPlot[
     Sum[Cos[(Cos[n*2*Pi/9] + Sin[n*2*Pi/9])*x + (Cos[n*2*Pi/9] - Sin[n*2*Pi/9])*y + t], 
     {n, 0, 8, 1}], {x, -70, 70}, {y, -70, 70},
   PlotPoints -> 150, Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 500],
{t, 0, 2*Pi, Pi/20}]

Notes: 23 3/6/12 — 4:00pm Filed under: #GIF #Mathematica #quasicrystal #density plot #PS #aperiodic

Mathematica code:

Table[ 
   DensityPlot[
     Sum[Cos[(Cos[n*2*Pi/9] + Sin[n*2*Pi/9])*x + (Cos[n*2*Pi/9] - Sin[n*2*Pi/9])*y + t], 
     {n, 0, 8, 1}], {x, -70, 70}, {y, -70, 70},
   PlotPoints -> 100, Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 520],
{t, { Pi/10, 4*Pi/10, 8*Pi/10, 18*Pi/10}]

Notes: 15 3/6/12 — 1:02pm Filed under: #Mathematica #quasicrystal #density plot #PS #aperiodic

Mathematica code:

Animate[
  Graphics[
     Table[
       {Thickness[.012],
        Circle[{80*Cos[i*Pi/3], 80*Sin[i*Pi/3]},
        t + (100 - n) (1 + Sign[100 - n])/2]}, {n, 0, 100, 1}, 
     {i, 0, 5, 1}], 
    PlotRange -> 12, ImageSize -> 500],
{t, 0, 1}]

Notes: 232 2/26/12 — 6:04pm Filed under: #GIF #Mathematica #PS #aperiodic

$w/ color:Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^-1]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 35, Mesh -> False, Frame -> False, ColorFunction -> Hue],{r, 240, 200, 1}]$

w/ color:

Mathematica code:

Animate[  
  DensityPlot[
    Sin[r*Abs[(x + I y)^-1]], 
    {x, -2.5, 2.5}, {y, -2.5, 2.5}, 
  PlotPoints -> 35, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{r, 240, 200, 1}]

Notes: 24 2/5/12 — 6:01pm Filed under: #GIF #Mathematica #PS #density plot #epilepsy warning

$Tumblr wont let me upload the colored version so here it is:Thank you psykzz for sharing some of your magic gif tips with me!Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^-1]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 23, Mesh -> False, Frame -> False, ColorFunction -> Hue],{r, 140, 116, 1}]$

Tumblr wont let me upload the colored version so here it is:

Thank you psykzz for sharing some of your magic gif tips with me!

Mathematica code:

Animate[  
  DensityPlot[
    Sin[r*Abs[(x + I y)^-1]], 
    {x, -2.5, 2.5}, {y, -2.5, 2.5}, 
  PlotPoints -> 23, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{r, 140, 116, 1}]

Notes: 140 2/5/12 — 2:11pm Filed under: #GIF #Mathematica #PS #density plot #psykzz #epilepsy warning

Mathematica code:

 Animate[
   Graphics[
     Table[
      {Thickness[.003],
       Circle[{40*Cos[i*Pi/8], 40*Sin[i*Pi/8]},
        t + (100 - n) (1 + Sign[100 - n])/2]},
     {n, 0, 100, 1}, {i, 0, 16, 1}],
   PlotRange -> 10],
{t, 0, 1, .05}]

Notes: 986 1/21/12 — 3:56pm Filed under: #GIF #Mathematica #PS #aperiodic

$Mathematica code: Animate[ Graphics[ Line[ Table[{-.98^n*Sin[n*Pi/2], .98^n*Cos[n*Pi/2]}, {n, 0, 1000}]], PlotRange -> p],{p, .39, .37, .01}]$

Mathematica code:

Animate[
 Graphics[
  Line[
   Table[{-.98^n*Sin[n*Pi/2], .98^n*Cos[n*Pi/2]}, {n, 0, 1000}]],
 PlotRange -> p],
{p, .39, .37, .01}]

Notes: 690 1/13/12 — 6:22pm Filed under: #GIF #Mathematica #PS #the Light #let your vision blur

$(view original color function here) Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^1.1]], {x, -1.25, 1.25}, {y, 0, 2.5}, PlotPoints -> 27, Mesh -> False, Frame -> False, ColorFunction -> Hue],{r, 88.5, 68.5, .5}]$

(view original color function here)

Mathematica code:

Animate[  
  DensityPlot[
    Sin[r*Abs[(x + I y)^1.1]], 
    {x, -1.25, 1.25}, {y, 0, 2.5}, 
  PlotPoints -> 27, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{r, 88.5, 68.5, .5}]

Notes: 71 1/11/12 — 5:17pm Filed under: #GIF #Mathematica #density plot #PS

$(view original color function here) Mathematica code: Animate[ DensityPlot[ Sin[r*Abs[(x + I y)^2]], {x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 50, Mesh -> False, Frame -> False, ColorFunction -> Hue],{r,1234.7, 1235.7, .1}]$

(view original color function here)

Mathematica code:

Animate[  
  DensityPlot[
    Sin[r*Abs[(x + I y)^2]], 
    {x, -2.5, 2.5}, {y, -2.5, 2.5}, 
  PlotPoints -> 50, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{r,1234.7, 1235.7, .1}]

Notes: 233 1/8/12 — 7:14pm Filed under: #GIF #Mathematica #density plot #PS