Interactive Polar Plot

m1=Manipulate[PolarPlot[Evaluate[Table[(i*t+k/5)*Log[t/5],

{k,0,9}]],{t,0,2\[Pi]},
  PlotStyle->ColorData[n,"ColorList"],GridLines->Automatic,

PlotRange->{{-14,5},{-7,2}},ImageSize->Large],

{i,1,n},{n,Range[1,24,1]}]