PolarPlot[(1+0.9cos(8t))(1+0.1cos(24t))(0.9+0.05cos(200t))(1+sin(t)),{t,-Pi,Pi}]