Polar Plots & Parameters

PPIJK=Function[{i,j,k,t},
i*Log[(j+.9Cos[i^2*t])(1.01+Sin[k*t])]];
Show[Table[PolarPlot[PPIJK[i,j,7,t],{t,0,2Pi},
PlotStyle->Darker[Hue[(j-5)/5],.05i]],
{i,3,7},{j,6,10}],PlotRange->All,
ImageSize->500,Frame->True,Axes->False]