Plot[-x^3 + 2 x^2 + 8 x, {x, -5, 5}, Filling -> Axis]
produces this
What's the easiest way to change to something like this
That is, I only need the two "humps".
I have tried this:
Show[
Plot[-x^3 + 2 x^2 + 8 x, {x, -5, 5}],
Plot[-x^3 + 2 x^2 + 8 x, {x, -2, 4}, Filling -> Axis]
]
which gives what I want, but it looks too dumb ... and there must be an easier way