FXY=Function[{t,i,n},
{Cos[16t+i*Pi/n]+Cos[6t+i*Pi/n]/2+Sin[10t+i*Pi/n]/3,
Sin[16t+i*Pi/n]+Sin[6t+i*Pi/n]/2+Cos[10t+i*Pi/n]/3}];
Show[Table[ParametricPlot[FXY[t,i,3],{t,0,2Pi},
PlotStyle->Hue[i/3]],{i,6}],
PlotRange->All,ImageSize->500,Frame->True,Axes->False]
No comments:
Post a Comment