// 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) //