plot[y^3+3y+1-x=0, y=0, {x,-3,5}]