Plot[Cot[z], {z, -2*Pi, 2*Pi}]