Basis {U, V}

\(\(


















\)\)

For[u = 40, u > 0, u--, 
      F1[u] = ParametricPlot[{ 
            t {Sin[((u 2 π)/40)], Cos[((u 2 π)/40)]}, 
            t {Cos[-(1/40) u 2 π], 
                Sin[-(1/40) u 2 π]}}, {t, 0, 1}, 
          AxesLabel  ->  {x, y},  
          PlotRange -> {{-1, 1}, {-1, 1}}, 
          DefaultFont -> {"Arial", 20}, DefaultFont -> {"Arial", 20}, 
          AspectRatio -> 1, Ticks -> None, 
          PlotStyle -> {{Thickness[0.01]}}]]