archery

Mathematica code:
Animate[ Graphics[ Table[ Circle[{0, i}, t + (16 - n) (1 + Sign[16 - n])/2], {n, 0, 100, 1}, {i, -5, 5,1}], PlotRange -> 6],{t, 0, 1, .01}]

Animate[
  Graphics[
    Table[
     Circle[{0, i}, t + (16 - n) (1 + Sign[16 - n])/2],
    {n, 0, 100, 1}, {i, -5, 5,1}],
  PlotRange -> 6],
{t, 0, 1, .01}]

Notes: 1337 12/26/11 — 5:00pm Filed under: #GIF #Mathematica #circles

High-Res: (1000x1000)

PDF

Mathematica code:

 
   Graphics[
     Table[
       Circle[{25*Cos[i*2Pi/25], 25*Sin[i*2Pi/25]},
        .6 + (100 - n) (1 + Sign[100 - n])/2],
     {n, 0, 50, 1}, {i, 0, 24, 1}],
   PlotRange -> 15, ImageSize -> 500]

High-res Notes: 551 11/20/11 — 6:06pm Filed under: #Mathematica #circles #PDF

Mathematica code:

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}]

Notes: 1196 11/16/11 — 12:00pm Filed under: #GIF #Mathematica #circles

High-Res: (1000x1000)

PDF

Mathematica code:

 
   Graphics[
     Table[
       Circle[{20*Cos[i*Pi/25], 20*Sin[i*Pi/25]},
        .7 + (50 - n) (1 + Sign[50 - n])/2],
     {n, 0, 50, 1}, {i, 0, 24, 1}],
   PlotRange -> 8, ImageSize -> 500]

High-res Notes: 219 11/15/11 — 3:03pm Filed under: #Mathematica #circles #PDF

Mathematica code:

 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}]

Notes: 907 11/15/11 — 12:00pm Filed under: #GIF #Mathematica #Circles

$Mathematica code: With[{g = Tuples[Range[-1.5, 1.5, .1], 2]}, Animate[Module[{pt1 = {x1, y1}, pt2 = {x2, y2}}, Graphics[{ {PointSize[.1*s1], Point[Map[(# + 3 (# - pt1) 2^(-5 Norm[# - pt1])) &, g]]}, {PointSize[.1*s2], Point[Map[(# + 3 (# - pt2) 2^(-5 Norm[# - pt2])) &, g]]}}, PlotRange -> 1.7]], {s1, 0, 1}, {x1, -3, 3, .5}, {y1, -3, 3, .5}, {s2, 0, 1}, {x2, -3, 3, .5}, {y2, -3, 3, .5}, AnimationRunning -> False]]$

Mathematica code:

With[{g = Tuples[Range[-1.5, 1.5, .1], 2]},
 Animate[Module[{pt1 = {x1, y1}, pt2 = {x2, y2}},
   Graphics[{
     {PointSize[.1*s1], 
      Point[Map[(# + 3 (# - pt1) 2^(-5 Norm[# - pt1])) &, g]]}, 
     {PointSize[.1*s2], 
      Point[Map[(# + 3 (# - pt2) 2^(-5 Norm[# - pt2])) &, g]]}}, 
    PlotRange -> 1.7]], 
{s1, 0, 1}, {x1, -3, 3, .5}, {y1, -3, 3, .5}, {s2, 0, 1}, {x2, -3, 3, .5}, {y2, -3, 3, .5}, 
 AnimationRunning -> False]]

Notes: 35 10/15/11 — 1:06pm Filed under: #GIF #Mathematica #points #circles

A Moiré pattern formed with 5 sets of concentric circles.

Code for Mathematica:

Manipulate[
 Graphics[
  {Thickness[.005],
   {Table[Circle[{0, 0}, r], {r, 0, 1, .05}],
     Table[Circle[{2 t, 0}, r], {r, 0, 1, .05}], 
     Table[Circle[{-2 t, 0}, r], {r, 0, 1, .05}], 
     Table[Circle[{0, 2 t}, r], {r, 0, 1, .05}], 
     Table[Circle[{0, -2 t}, r], {r, 0, 1, .05}]}}], 
 {t, 0, 1, .05}]

PRINT THIS POST Notes: 23 10/6/11 — 5:12pm Filed under: #GIF #math #Mathematica #circles #Moire pattern

hi-res (620 x 1080)

High-res Notes: 154 10/5/11 — 4:39pm Filed under: #circles #generative #Artmatic

hi-res (620 x 1020)

High-res Notes: 20 10/5/11 — 4:31pm Filed under: #circles #Moire pattern #generative #Artmatic

A Moiré pattern

A superposition of two layers with regularly spaced radial segments (a portion of the revealing layer is cut out to show a part of the base layer in the background).

The revealing layer slowly rotates in the clockwise direction.

Source: switzernet.com

Notes: 15 9/25/11 — 1:20pm Filed under: #GIF #Moire pattern #lines #circles

The lemniscate can be generated as the envelope of circles centered on a rectangular hyperbola and passing through the center of the hyperbola.

The lemniscate can be generated as the envelope of circles centered on a rectangular hyperbola and passing through the center of the hyperbola.

Source: mathworld.wolfram.com

Notes: 42 9/22/11 — 2:18pm Filed under: #math #geometry #torus #hyperbola #circles #lines

An arbitrary point P on a torus (not lying in the xy-plane) can have four circles drawn through it. The first circle is in the plane of the torus and the second is perpendicular to it. The third and fourth circles are called Villarceau circles.