Visualization Notes
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
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment