PolarPlot[cos(20*t/7),{t,-14*Pi,14*Pi}