res =. ; data =. ;
tmax = 10;
\(\(f := 0.00021  #\^2 &;\)\)
g := f[# + (π/2)] &;
res := NDSolve[{x'[t] == #*f[#*x[t] + #*y[t]], y'[
                    t] == -#*g[#*x[t] + #*y[t]], x[0] == #, 
                y[0] == -#}, {x[t], 
                y[t]}, {t, -%, %}][[1]] &;
mafce := ((x[t]) /. res[#1] /. 
              t -> #2) &;
50;
40;
data[t_] = 
        Table[mafce @@ {a, t}, {a, -%%, %%, 
            2  %%/%}];
0.8;
Plot[Evaluate[Flatten[data[t]]], {t, -tmax*%, tmax*%}, 
        Axes -> None];

n = 40;
mat[t_]=(({{Cos[t], -Sin[t]}, {Sin[t], Cos[t]}}));
body = 
        Table[{(Sqrt[fi])*Cos[fi], (Sqrt[fi])*Sin[fi]}, {fi, 0, 4  Pi, 
            1.  Pi/n}];
p1 = 
        ListPlot[body, 
          DisplayFunction -> 
            Identity];
Table[
        Show[p1 /. 
            Point[{a_, b_}] -> {{Hue[(a + b)*0.15], 
                  PointSize[0.01*((a^2) + (b^2))], 
                  Point[mat[t] . {a, b}]}, {Hue[0.2 + (a + b)*0.05], 
                  PointSize[0.01*((a^2) + (b^2))], 
                  Point[mat[-t] . {a + 3, b}]}}, 
          DisplayFunction -> $DisplayFunction, Axes -> None, 
          AspectRatio -> Automatic, 
          PlotRange -> {{-7.5, 7.5}, {-7.5, 7.5}}], {t, Pi/40, 
          2  Pi, Pi/40}];

Plot3D[Sin[x + (y^2)], {x, -1, 1}, {y, -1, 1}, 
        ViewPoint -> {1.190,  1.138,  -1.241}];

ViewPoint -> {1.190,  1.138,  -1.241}

body = 
        Table[1. *{Sin[x], Cos[x]}, {x, 0, 2  Pi, 
            Pi/10}];
p2 = ListPlot[body]

Show[
      p2 /. Point[{a_, b_}] -> {Hue[a + b], PointSize[Abs[b]/20], 
            Point[{b, (a^2)}]}]