ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Statistics`DataManipulation`"];
Needs["Graphics`Graphics`"];
r[t_]:= 5/6 + Sin[t+Pi/10] Abs[Cos[t+Pi/7]]^(5/3);
x[t_]:= r[t] Cos[t]; y[t_]:= r[t] Sin[t];
shape[n_]:= PolarPlot[n r[t],{t,- Pi, Pi}];
radius[n_,m_]:= Graphics[{Dashing[{0.01,0.01}],Line[{{0,0},{m x[n Pi/8],m y[n Pi/8]}}]}];
w[m_]:= Show[shape[m],Table[radius[n,m],{n,1,16}],
			Axes->False, PlotLabel -> "t ="OutputForm[m],
			PlotRange->{{-4.85,4.85},{-4.85,4.85}}];
Show[GraphicsArray[{{w[1],w[2]},{w[3],w[4]}}],PlotLabel->"Figure 2.1"]