ParametricPlot[{x=4sin(t)^3, y=(cos2t)}, {t, 0, 2pi}]