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

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