PolarPlot[Cos[2 t], {t, -Pi/4, Pi/4}]