<< Graphics`Graphics`

PolarPlot[4 (1 - Cos[x]), {x, 0, 2  Pi}]

Display["hwk3q8.eps", %2, "EPS"]

PolarPlot[Sin[3  x], {x, 0, 2  Pi}]

Display["hwk3q12.eps", %4, "EPS"]

PolarPlot[{2  Sin[x], 3  Cos[x]}, {x, 0, Pi}]

Display["hwk3q32.eps", %6, "EPS"]

PolarPlot[{Cos[3  x], Sin[3  x]}, {x, 0, Pi}]

Display["hwk3q38.eps", %8, "EPS"]

PolarPlot[8/(3 + Cos[x]), {x, 0, 2  Pi}, 
      PlotRange -> {{-4, 8}, {-4, 4}}]

Show[%11, 
      Graphics[{Dashing[{ .05,  .05}], Line[{{8, -4}, {8, 4}}]}], 
      Graphics[{PointSize[0.02], RGBColor[1, 0, 0], Point[{0, 0}]}], 
      Graphics[{PointSize[0.02], RGBColor[1, 0, 0], 
          Point[{-2, 0}]}]]

Display["hwk3q16.eps", %22, "EPS"]