ParametricPlot3D[{2 t Cos[t],2 t Sin[t],8t},{t,0,20 Pi},ImageSize->200]

ParametricPlot[{Cos[t],Sin[t]},{t,0,2Pi},ImageSize->200]

ParametricPlot3D[{{Cos[t],Sin[t],0},{Cos[t],Sin[t],.2t}},{t,0,10Pi},ImageSize->200]

r2=a2cos(2θ)sec4(θ)

PolarPlot[Sqrt[4Cos[2t]],{t,0,2 Pi},ImageSize->300]