plot[{-1/x,-0.5},{x,0,4}]