Wednesday, December 11, 2019

Transformations of Polar Plots


PPRT[n_,col_,l_,s_]:=Module[{a,b,c,d,u},
u=Pi/n; a=RandomInteger[{4,12}]; b=RandomInteger[{12,18}];
c=RandomInteger[{25,81}]; d=RandomInteger[{216,256}];
PF1[i_,t_]:=(a+.9Cos[b*t+u*i])(1+.1Cos[c*t+u*i]);
PF2[i_,t_]:=(1+.05Cos[d*t+u*i])(1+Sin[t+u*i]);
Show[Table[PolarPlot[PF1[i,t]*PF2[i,t],{t,-Pi,Pi},
PlotStyle->{Thickness[l],ColorData[col][.1Mod[i,Floor[n/2]]]}],
{i,2n+1}],Axes->False,ImageSize->s,PlotPoints->50]]
{PPRT[16,"BrightBands",.01,300],PPRT[4,"Rainbow",.001,300]}


PPRT[8,"CherryTones",0,600]

No comments:

Post a Comment