wh0rebulevard:

lvlorbid:

heartless:

neutrophin:

lolsupreme:

abandoned amusement park 

this is an abandoned amusement park in japan it was closed in 2006 because it was a knock off of disneyland. 

This is so cool

wow

Theres lots of abandoned amusement parks in Japan, these are all of them

un:

(via aatmagaialove) Golden Ratio

intothecontinuum:

Mathematica code:

R[n_] := (SeedRandom[n]; RandomReal[])
RE[n_] := (SeedRandom[n]; RandomReal[ExponentialDistribution[4]])

G[Q_, t_] :=
 Graphics[
  Table[
   {PointSize[ .06* (Sqrt[RE[Q*2 i^2] + RE[Q*2 i + 1]^2])],
    Opacity[.2 + .4*Sum[Exp[-(t - (R[Q*i] + j))^2/.1], {j, {-1, 0, 1}}]],
    Point[
       Table[
         RotationTransform[(k + (-1)^(i)*t)*2 Pi/8]
           [{RE[Q*2 i],RE[Q*2 i +1]}],
       {k, 0, 7, 1}]]},
 {i, 1, 90, 1}],
 PlotRange -> 1.5, ImageSize -> 500]

Table[
 ListAnimate[
  Table[
   G[Q,t],
  {t, 0, .95, .05}],
 AnimationRunning -> False],
{Q, {4, 8, 11, 13, 15, 18 }] 

staceythinx:

The Fibonacci Sequence As Seen in Flowers gallery by Environmental Graffiti is a math and history lesson wrapped in a pretty package of flowers.

z8design:

1.618 on Flickr.

lmpressions:

 The science of representation: an abstract of the theories and diagrams of B. W. Betts 

intothecontinuum:

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]

intothecontinuum:

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]

intothecontinuum:

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]

intothecontinuum:

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]

themathematicspost:

SPIRALS:

A word that must have excited your mind in your childhood if you have lived it . 
This is The Mathematics Post’s first post and the team decided to zero in on spirals to give some amazing facts on it.  

Before we start lets first take a string and with regular intervals mark them with numbers and at the end it would look like this :

0_____1_____2_____3_____4….and so on . 

THE NUMBER SPIRAL :

Number spirals are very simple. The string made earlier is now rolled up with zero at the centre.

Just arrange the spiral so all the perfect squares (1, 4, 9, 16, etc.) line up in a row on the right side and here we are: 

The party of arrangement just began… 

Read More

intothecontinuum:

 

Mathematica code:

ListAnimate[
 Table[Show[
   Table[Graphics[
     GraphicsComplex[
      Table[
       {-(.975 + .025*Mod[.5 t + .5 G, 1])^n*Sin[n*3.586],
          (.975 + .025*Mod[.5 t + .5 G, 1])^n*Cos[n*3.586]},
      {n, 0, 416}],
    {Opacity[(G +(.3+ t) (-1)^G)], Polygon[Table[i, {i, 1, 416, 1}]]}], 
    PlotRange -> .04, ImageSize -> 500],
  {G, {0, 1}}]],
{t, 0, .95, .05}]]

intothecontinuum:

view GIFs in hi-res here (700x700)

Mathematica code:

F[a_, L_, r_, s_, t_] :=
 Table[
  {-(r + s*Cos[t])^n*Sin[n*a], (r + s*Cos[t])^n*Cos[n*a]}, {n, 0, L}]

V := 
 {{1.45631, 556, .995, .003}, {2.94712, 502, .998, .001}, 
 {4.50891, 485, .9955, .0025}, {4.9367, 630, .997, .002}}

Table[
 ListAnimate[
  Table[
   Graphics[
    Polygon[
     F[Part[Part[V, G], 1], Part[Part[V, G], 2], Part[Part[V, G], 3], Part[Part[V, G], 4], t]], 
   PlotRange -> 1, ImageSize -> 250],
 {t, 0, 2 Pi, 2 Pi/40}]],
{G,1,4,1}