Plot[x^2+2x+5,{x,-3,1},PlotRange->{{-3,1},{0,8.1}},AspectRatio->2]