# convert to log;

#tolog(polylog(n_,x_)) := If(n>=1, -n*polylog(n-1,x)+ln(x)^n*x,
	If(n<-1, (-polylog(n+1,x)+ln(x)^(n+1)*x)/(n+1) ));

tolog(asinh(x_)) := ln(x+sqrt(1+x^2));
tolog(acosh(x_)) := ln(x+sqrt(x^2-1));
tolog(atanh(x_)) := ln((1+x)/(1-x))/2;
tolog(acoth(x_)) := ln((1+x)/(x-1))/2;
tolog(acsch(x_)) := ln((1+sqrt(x^2+1))/x)/2;
tolog(asech(x_)) := ln((1+sqrt(1-x^2))/(1-sqrt(1-x^2)))/2;

tolog(asin(x_)) := -i*ln(i*x+sqrt(1-x^2));
tolog(acos(x_)) := pi/2+i*ln(i*x+sqrt(1-x^2));
tolog(atan(x_)) := ln((1-i*x)/(1+i*x))/2*i;
tolog(acot(x_)) := ln((i*x+1)/(i*x-1))/2*i;
tolog(acsc(x_)) := ln((1+sqrt(-x^2+1))/x/i)/2*i;
tolog(asec(x_)) := ln((1+sqrt(1+x^2))/(1-sqrt(1+x^2)))/2;