Plot[ArcCot[z], {z, -1, 1}]