p. 664

#1a

Manipulate[PolarPlot[Sin[n*θ],{θ,0,2*Pi}],{n,1,8,1}]

#1b

Manipulate[PolarPlot[Abs[Sin[n*θ]],{θ,0,2*Pi}],{n,1,8,1}]

#2

Manipulate[PolarPlot[1+c*Sin[n*θ],{θ,0,2*Pi},PlotRange->{{-10,10},{-10,10}}],{n,1,8,1},{c,-5,5}]