Posts tagged: Mathematica

[Flash 10 is required to watch video]

This video shows continuous variation in angle (from 0 to Pi) of the connect-the-dots algorithm while keeping all other parameters fixed. Each instant is a valid 2-coloring.

Music: “Derbyshire” by Nerve

Mathematica code:

Manipulate[
  ImageCrop[
   Graphics[
    GraphicsComplex[
     Table[
      {-(.96)^n*Sin[n*.001 f], .96^n*Cos[n*.001 f]}, 
     {n, 0, 300}],
    Polygon[Table[i, {i, 1, 300, 1}]]], 
  PlotRange -> .1, ImageSize -> 640],
 {640, 480}],
{f, 1, 3145, 1}]
Notes: 137 5/27/12 — 6:40pm Filed under: #video  #2color  #CTD  #Mathematica  #Nerve 
800x800 center detail Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.9908^n*Sin[n*3.87613], .9908^n*Cos[n*3.87613]}, {n, 0, 750}], Polygon[Table[i, {i, 1, 750, 1}]]], PlotRange -> 1, ImageSize -> 800]

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.9908^n*Sin[n*3.87613], .9908^n*Cos[n*3.87613]}, {n, 0, 750}],
  Polygon[Table[i, {i, 1, 750, 1}]]], 
 PlotRange -> 1, ImageSize -> 800]
High-res Notes: 7 5/26/12 — 9:59pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.9908^n*Sin[n*3.87613], .9908^n*Cos[n*3.87613]}, {n, 0, 750}], Polygon[Table[i, {i, 1, 750, 1}]]], PlotRange -> .05, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.9908^n*Sin[n*3.87613], .9908^n*Cos[n*3.87613]}, {n, 0, 750}],
  Polygon[Table[i, {i, 1, 750, 1}]]], 
 PlotRange -> .05, ImageSize -> 800]
High-res Notes: 74 5/26/12 — 8:54pm Filed under: #2color  #CTD  #Mathematica 
800x800 center detail Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.21], .99^n*Cos[n*3.21]}, {n, 0, 700}], Polygon[Table[i, {i, 1, 700, 1}]]], PlotRange -> .4, ImageSize -> 800]

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.21], .99^n*Cos[n*3.21]}, {n, 0, 700}],
  Polygon[Table[i, {i, 1, 700, 1}]]], 
 PlotRange -> .4, ImageSize -> 800]
High-res Notes: 18 5/26/12 — 7:53pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.21], .99^n*Cos[n*3.21]}, {n, 0, 700}], Polygon[Table[i, {i, 1, 700, 1}]]], PlotRange -> .05, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.21], .99^n*Cos[n*3.21]}, {n, 0, 700}],
  Polygon[Table[i, {i, 1, 700, 1}]]], 
 PlotRange -> .05, ImageSize -> 800]
High-res Notes: 6 5/26/12 — 7:00pm Filed under: #2color  #CTD  #Mathematica 
800x800 center detail Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.9908^n*Sin[n*3.72802], .9908^n*Cos[n*3.72802]}, {n, 0, 640}], Polygon[Table[i, {i, 1, 640, 1}]]], PlotRange -> 1, ImageSize -> 800]

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.9908^n*Sin[n*3.72802], .9908^n*Cos[n*3.72802]}, {n, 0, 640}],
  Polygon[Table[i, {i, 1, 640, 1}]]], 
 PlotRange -> 1, ImageSize -> 800]
High-res Notes: 4 5/26/12 — 6:00pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.9908^n*Sin[n*3.72802], .9908^n*Cos[n*3.72802]}, {n, 0, 640}], Polygon[Table[i, {i, 1, 640, 1}]]], PlotRange -> .25, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.9908^n*Sin[n*3.72802], .9908^n*Cos[n*3.72802]}, {n, 0, 640}],
  Polygon[Table[i, {i, 1, 640, 1}]]], 
 PlotRange -> .25, ImageSize -> 800]
High-res Notes: 11 5/26/12 — 4:53pm Filed under: #2color  #CTD  #Mathematica 
800x800 center detail Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.87], .99^n*Cos[n*3.87]}, {n, 0, 640}], Polygon[Table[i, {i, 1, 640, 1}]]], PlotRange -> 1, ImageSize -> 800]

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.87], .99^n*Cos[n*3.87]}, {n, 0, 640}],
  Polygon[Table[i, {i, 1, 640, 1}]]], 
 PlotRange -> 1, ImageSize -> 800]
High-res Notes: 3 5/26/12 — 3:56pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.87], .99^n*Cos[n*3.87]}, {n, 0, 640}], Polygon[Table[i, {i, 1, 640, 1}]]], PlotRange -> .25, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.87], .99^n*Cos[n*3.87]}, {n, 0, 640}],
  Polygon[Table[i, {i, 1, 640, 1}]]], 
 PlotRange -> .25, ImageSize -> 800]
High-res Notes: 3 5/26/12 — 2:54pm Filed under: #2color  #CTD  #Mathematica 
800x800 center detail Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.799], .99^n*Cos[n*3.799]}, {n, 0, 600}], Polygon[Table[i, {i, 1, 600, 1}]]], PlotRange -> 1, ImageSize -> 800]

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.799], .99^n*Cos[n*3.799]}, {n, 0, 600}],
  Polygon[Table[i, {i, 1, 600, 1}]]], 
 PlotRange -> 1, ImageSize -> 800]
High-res 5/26/12 — 2:00pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.799], .99^n*Cos[n*3.799]}, {n, 0, 600}], Polygon[Table[i, {i, 1, 600, 1}]]], PlotRange -> .25, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.799], .99^n*Cos[n*3.799]}, {n, 0, 600}],
  Polygon[Table[i, {i, 1, 600, 1}]]], 
 PlotRange -> .25, ImageSize -> 800]
High-res Notes: 6 5/26/12 — 1:01pm Filed under: #2color  #CTD  #Mathematica 
800x800 center detail Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.941], .99^n*Cos[n*3.941]}, {n, 0, 600}], Polygon[Table[i, {i, 1, 600, 1}]]], PlotRange -> 1, ImageSize -> 800]

800x800

center detail

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.941], .99^n*Cos[n*3.941]}, {n, 0, 600}],
  Polygon[Table[i, {i, 1, 600, 1}]]], 
 PlotRange -> 1, ImageSize -> 800]
High-res Notes: 1 5/26/12 — 12:45pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-.99^n*Sin[n*3.941], .99^n*Cos[n*3.941]}, {n, 0, 600}], Polygon[Table[i, {i, 1, 600, 1}]]], PlotRange -> .25, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-.99^n*Sin[n*3.941], .99^n*Cos[n*3.941]}, {n, 0, 600}],
  Polygon[Table[i, {i, 1, 600, 1}]]], 
 PlotRange -> .25, ImageSize -> 800]
High-res Notes: 6 5/26/12 — 12:30pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-Sin[n*3.0891], Cos[n*3.0891]}, {n, 0, 300}], Polygon[Table[i, {i, 1, 300, 1}]]], PlotRange -> .5391, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-Sin[n*3.0891], Cos[n*3.0891]}, {n, 0, 300}],
  Polygon[Table[i, {i, 1, 300, 1}]]], 
 PlotRange -> .5391, ImageSize -> 800]
High-res Notes: 57 5/25/12 — 5:52pm Filed under: #2color  #CTD  #Mathematica 
800x800 Mathematica code: Graphics[ GraphicsComplex[ Table[ {-Sin[n*2.94712], Cos[n*2.94712]}, {n, 0, 647}], Polygon[Table[i, {i, 1, 647, 1}]]], PlotRange -> .5391, ImageSize -> 800]

800x800

Mathematica code:

Graphics[
 GraphicsComplex[
  Table[
   {-Sin[n*2.94712], Cos[n*2.94712]}, {n, 0, 647}],
  Polygon[Table[i, {i, 1, 647, 1}]]], 
 PlotRange -> .5391, ImageSize -> 800]
High-res Notes: 26 5/25/12 — 5:26pm Filed under: #2color  #CTD  #Mathematica