PolarPlot[Sec[t-(2*Pi)/5*Round[(5*t)/(2*Pi)]],{t,0,2*Pi}]