Friday, December 27, 2019

PolarPlot Examples of Drawing


F1[t_]:=(9+.9Cos[12t])(1+.05Cos[36t]);
F2[t_]:=(1+.05Cos[216t])(1+Sin[t])
Show[Table[PolarPlot[i*F1[t]*F2[t],{t,0,2Pi},
PlotStyle->Darker[Green,1-.3i]],{i,0,3,.1}],
ImageSize->500,Frame->True,Axes->False]


No comments:

Post a Comment