(* Plots for Question Five, tutorial one *)

ParametricPlot[{2Cos[t],2Sin[t]},{t,0,2π}]

ParametricPlot[{ Cos[t]-1,   Sin[t]},{t,0,2π}]

ParametricPlot[{ r Cos[t] ,   r Sin[t]+2},{t,0,2π},{r,0,1}]

ParametricPlot[{t Cos[2π/3] ,t Sin[2π/3]},{t,0,3}]

ParametricPlot[{r Cos[t]+2, r Sin[t]},{t,0,2π},{r,1,3}]