PolarPlot[2 + Sin[30/(x (2 Pi - x))], {x, 0, 2 Pi}]