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