Plot[{x^3-2x^2+1,1},{x,-1,3}]