Plot[y[x],{x,-4,2.6},AxesLabel->{x,y}]
[Graphics:1733f97.ansq2gr2.gif][Graphics:1733f97.ansq2gr1.gif]