plot[{-1/x, 0},{x,0,100}]