Plot[{Tan[x],ArcTan[x], Pi/2,-Pi/2,x},{x,-Pi/2,Pi/2},AspectRatio->4]