Mathematica Code:
Plot[{1/x,1/(x+1),1/2x,-(1/2x)},{x,-4,4}, PlotRange->{{-4,4},{-4,4}}, PlotStyle->{{Hue[0]},{Hue[0.3]},{Hue[0.6]},{Hue[0.8]}}, AspectRatio->Automatic]