Plot[((1 - 0.001)/0.001)*ArcTan[x*(0.001/(1 - 0.001))],{x,-100,100}]