f[x_] := (1/3) x^3 - (1/2) x^2 - 2 x + (1/3)
g[x_] := x - 1
This is my graph:
Plot[{f[x], g[x]}, {x, -4, 4}]
I integrated and fund the regions
Integrate[Abs[f[x] - g[x]], {x, -2.5833, 0.42303}]
7.15574
Integrate[Abs[f[x] - g[x]], {x, 0.42303, 3.66027}]
8.71687
Now how do I shade in only those regions?
I came up with this but I don't know what to put in the "?"
Plot[{f[x], g[x]}, {x, -4, 4}, Filling -> ?, FillingStyle -> Pink]