plot[x*y=0, y=e^x 1 / e^x x]x=-5to5,y=-1to88