kill(all)$load(ntrig)$ load(atrig1)$

van=facebook.com/LearningCalculus$

f(x):=%i*log((x-%i)/(x+%i));

rectform(f(x));

g:substitute(Atan2,atan2,%);

Atan2(x,y):=atan(y/x);

''(g);