kill(all)$

van=facebook.com/LearningCalculus$

f(x):=(x*%e^x)/(%e^(2*x)+1)^2;

'integrate(f(x),x) =

1/4 * (-%i*Li_2(-%i*%e^x) + %i*Li_2(%i*%e^x) +

(2*%e^x*x)/(%e^(2*x) + 1) +

%i*x*log(1-%i*%e^x)-%i*x*log(1 + %i*%e^x) - 2*tan(%e^x)^(-1)) + C;

Li_2(x):=sum(x^k/k^2,k,1,inf);

'integrate(f(x),x) =

1/4 * (-%i*Li_2(-%i*%e^x) + %i*Li_2(%i*%e^x) +

(2*%e^x*x)/(%e^(2*x) + 1) +

%i*x*log(1-%i*%e^x)-%i*x*log(1 + %i*%e^x) - 2*tan(%e^x)^(-1)) + C;