PolarPlot[(1 %2B 0.9 Cos[8 t]) (1 %2B 0.1 Cos[24 t]) (0.9 %2B 0.05 Cos[200 t]) (1 %2B Sin[t]), %7Bt, -Pi, Pi%7D]