Plot[ArcCot[x],{x,-10,10}]