Plot[Cos[Arctan[E^(I*x)]]/Sin[Arcctg[E^(I*x)]],{x,Pi/2-0.000001,Pi/2+0.000001}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.