Manipulate[
 PolarPlot[(Cos[x*n])^m + (Sin[x*n])^k, {x, 0, 40*Pi}, Axes -> False, 
  AspectRatio -> 1, PlotPoints -> 400], {n, 0.1, 10}, {m, 1, 4}, {k, 1, 4}]