Section 4.4, #45
Calculus I
Andy Long

#45,  p. 327

f[x_]:=2x-x^2
Plot[f[x],{x,0,2},Filling->Axis]
Integrate[f[x],{x,0,2}]