Manipulate[PolarPlot[ Abs[m+Cos[Floor[2n]t]+Cos[Floor[8k] 5t]],{t,0,2Pi},
   Background->RGBColor[0,0,0],PlotStyle->{RGBColor[0.5,0.5,1],Thickness[0.001]},PlotPoints->300,
   Frame->False,Axes->False,PlotRange->{{-3,3},{-3,3}},AspectRatio->1],
  {n,1,10},{m,0.1,1},{k,1,10}]