Plot[{y[x],2/3},{x,-5,5},PlotRange->{-6,6},PlotPoints->1000]
![[Graphics:1733f97.ansq2gr2.gif]](1733f97.ansq2gr2.gif)
![[Graphics:1733f97.ansq2gr4.gif]](1733f97.ansq2gr4.gif)