^ Mathematica *1

// 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[ .5*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, 200, 1}],
 PlotRange -> If[Q == 25, 1.4, 1.2],  ImageSize -> 700]

Table[
 ListAnimate[
  Table[
   G[Q,t],
  {t, 0, .95, .05}],
 AnimationRunning -> False],
{Q, {25, 35}}]

// Animated Image © Archery (a perspective on mathematics, the pattern, and the abstract) //

Pin It

↓ You might also like ♥


// If you find anything interesting and decide to share it please link back to robot:mafia.

Leave a message...

*

Top