Rotation of a graph using manipulate

Question

I'd like to look at some group transformation of curves in the plane. As a start, I'd like to try to do use the rotation group. Here's the code I tried to rotate a parabola so that I can watch the rotation:

x1[t_] := t*Cos[c] - t^2*Sin[c];
u1[t_] := t*Sin[c] + t^2*Cos[c];
Manipulate[
 ParametricPlot[{x1[t], u1[t]}, {t, -3, 3}, 
  PlotRange -> {{-9, 9}, {-9, 9}}], {c, 0, 2}]

If I fix a value for c, and remove the manipulate command, this works fine:

x1[t_] := t*Cos[c] - t^2*Sin[c];
u1[t_] := t*Sin[c] + t^2*Cos[c];
c=2;
 ParametricPlot[{x1[t], u1[t]}, {t, -3, 3}, 
  PlotRange -> {{-9, 9}, {-9, 9}}]

Are there any suggestions out there, or reasons why the above doesn't work? I'd like to manipulate the group parameter to watch the resulting transformations of the curve.

Answer 1

you can try also this:

x1[t_] := t*Cos[c] - t^2*Sin[c]; 
u1[t_] := t*Sin[c] + t^2*Cos[c]; 
Manipulate[
  ParametricPlot[{x1[t], u1[t]} /. c -> d, {t, -3, 3}, 
  PlotRange -> {{-9, 9}, {-9, 9}}], {d, 0, 2}]

Answer 2

Manipulate[ ParametricPlot[RotationMatrix[c].{t, t^2}, {t, -2, 2}, 
            PlotRange -> {{-5, 5}, {-5, 5}}], {c, 0, 2 Pi}]

Other transformations can be handled the same way. For example for SL2(R)

Manipulate[ ParametricPlot[LinearFractionalTransform[{{{a, b}, {c, (1 + b c)/a}}}][{t,t^2}], 
                          {t, -5, 5}, PlotRange -> 9{{-1, 1}, {-1, 1}}], 
           {a, .1, 5}, {b, 0, 5}, {c, 0, 5}]

Answer 3

Okay, if I let x1 and u1 be functions of c also, this seems to work:

x1[t_, c_] := t*Cos[c] - t^2*Sin[c];
u1[t_, c_] := t*Sin[c] + t^2*Cos[c];
Manipulate[
 ParametricPlot[{x1[t, c], u1[t, c]}, {t, -3, 3}, 
  PlotRange -> {{-9, 9}, {-9, 9}}], {c, 0, 2}]