I accidentally came across a nice Mma animation. Unfortunately, I am able to present only few frames of it in MaplePrimes. See two inconsecutive frames below

I find this animation very deep. I don't remember something similar. It looks like an iterative

map shown in its dynamics. Not being an expert in Mathematica, I don't understand the machinery of the generating code.

**n = 1000;**

**r := RandomInteger[{1, n}];**

**f := (#/(.01 + Sqrt[#.#])) & /@ (x[[#]] - x) &;**

**s := With[{r1 = r}, p[[r1]] = r; q[[r1]] = r];**

**x = RandomReal[{-1, 1}, {n, 2}];**

**{p, q} = RandomInteger[{1, n}, {2, n}];**

**Graphics[{PointSize[0.007], Dynamic[If[r < 100, s];**

** Point[x = 0.995 x + 0.02 f[p] - 0.01 f[q]]]}, PlotRange -> 2]**

Here is its fragment translated into Maple:

>with(MmaTranslator):

>FromMma(" (#/(.01 + Sqrt[#.#])) & /@ (x[[#]] - x) &;");

map(unapply(_Z1/(0.1e-1+sqrt(_Z1 . _Z1)), _Z1), unapply(x(_Z1)-x, _Z1))

To my regret,

>FromMma(" n = 1000;

r := RandomInteger[{1, n}];

f := (#/(.01 + Sqrt[#.#])) & /@ (x[[#]] - x) &;

s := With[{r1 = r}, p[[r1]] = r; q[[r1]] = r];

x = RandomReal[{-1, 1}, {n, 2}];

{p, q} = RandomInteger[{1, n}, {2, n}];

Graphics[{PointSize[0.007], Dynamic[If[r < 100, s];

Point[x = 0.995 x + 0.02 f[p] - 0.01 f[q]]]}, PlotRange -> 2]");

Error, (in MmaTranslator:-FromMma) incorrect syntax (at position 11) in last character of "...0)

r"