In[40]:= (*Define the parametric functions*)r1[t_] := {Cos[t], Sin[t]}; (*(a)*)
r2[t_] := {Cos[2 t], Sin[t]}; (*(b)*)
r3[t_] := {Cos[t - Pi / 2], Sin[t - Pi / 2]}; (*(c)*)
r4[t_] := {Cos[t], - Sin[t]}; (*(d)*)
r5[t_] := {Cos[t ^ 2], Sin[t ^ 2]}; (*(e)*)
(*Plot the functions*)
In[45]:= ParametricPlot[r1[t], {t, 0, 2 Pi},
PlotRange All, PlotLabel "(a)", AxesLabel {"x", "y"}]
Out[45]=
(a )
y
1.0
0.5
x
-1.0 -0.5 0.5 1.0
-0.5
-1.0
2
In[46]:= ParametricPlot[r2[t], {t, 0, 2 Pi},
PlotRange All, PlotLabel "(b)", AxesLabel {"x", "y"}]
Out[46]=
(b )
y
1.0
0.5
x
-1.0 -0.5 0.5 1.0
-0.5
-1.0
In[47]:= ParametricPlot[r3[t], {t, 0, 2 Pi},
PlotRange All, PlotLabel "(c)", AxesLabel {"x", "y"}]
Out[47]=
(c)
y
1.0
0.5
x
-1.0 -0.5 0.5 1.0
-0.5
-1.0
3
In[48]:= ParametricPlot[r4[t], {t, 0, 2 Pi},
PlotRange All, PlotLabel "(d)", AxesLabel {"x", "y"}]
Out[48]=
(d )
y
1.0
0.5
x
-1.0 -0.5 0.5 1.0
-0.5
-1.0
4
In[49]:= ParametricPlot[r5[t], {t, 0, 2 Pi},
PlotRange All, PlotLabel "(e)", AxesLabel {"x", "y"}]
Out[49]=
(e )
y
1.0
0.5
x
-1.0 -0.5 0.5 1.0
-0.5
-1.0