\(\int \frac {e^{-x} (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} (e^x (-1+x)+e^x (1-x) \log (x))+(e^x x \log (x)+4^{4 e^{-x}} (-4 x+4 x^2) \log (4) \log (x)) \log (\frac {2 x}{\log (x)}))}{(-x+x^2) \log (x)} \, dx\) [6773]

Optimal result

Integrand size = 115, antiderivative size = 25 \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\left (-4^{4 e^{-x}}+\log (-1+x)\right ) \log \left (\frac {2 x}{\log (x)}\right ) \]

[Out]

(ln(-1+x)-exp(8*ln(2)/exp(x)))*ln(2*x/ln(x))

Rubi [F]

\[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx \]

[In]

Int[(E^x*(1 - x)*Log[-1 + x] + E^x*(-1 + x)*Log[-1 + x]*Log[x] + 4^(4/E^x)*(E^x*(-1 + x) + E^x*(1 - x)*Log[x])
+ (E^x*x*Log[x] + 4^(4/E^x)*(-4*x + 4*x^2)*Log[4]*Log[x])*Log[(2*x)/Log[x]])/(E^x*(-x + x^2)*Log[x]),x]

[Out]

Log[-1 + x]*Log[x] - 4^(4/E^x)*Log[(2*x)/Log[x]] + PolyLog[2, 1 - x] - Defer[Int][Log[-1 + x]/(x*Log[x]), x] +
Defer[Int][Log[(2*x)/Log[x]]/(-1 + x), x]

Rubi steps \begin{align*} \text {integral}& = \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{(-1+x) x \log (x)} \, dx \\ & = \int \frac {-256^{e^{-x}}+\frac {256^{e^{-x}}}{\log (x)}+\frac {\log (-1+x) (-1+\log (x))}{\log (x)}+\frac {e^{-x} x \left (e^x+4^{1+4 e^{-x}} (-1+x) \log (4)\right ) \log \left (\frac {2 x}{\log (x)}\right )}{-1+x}}{x} \, dx \\ & = \int \left (4^{e^{-x} \left (4+e^x\right )} e^{-x} \log (4) \log \left (\frac {2 x}{\log (x)}\right )-\frac {256^{e^{-x}}-256^{e^{-x}} x-\log (-1+x)+x \log (-1+x)-256^{e^{-x}} \log (x)+256^{e^{-x}} x \log (x)+\log (-1+x) \log (x)-x \log (-1+x) \log (x)-x \log (x) \log \left (\frac {2 x}{\log (x)}\right )}{(-1+x) x \log (x)}\right ) \, dx \\ & = \log (4) \int 4^{e^{-x} \left (4+e^x\right )} e^{-x} \log \left (\frac {2 x}{\log (x)}\right ) \, dx-\int \frac {256^{e^{-x}}-256^{e^{-x}} x-\log (-1+x)+x \log (-1+x)-256^{e^{-x}} \log (x)+256^{e^{-x}} x \log (x)+\log (-1+x) \log (x)-x \log (-1+x) \log (x)-x \log (x) \log \left (\frac {2 x}{\log (x)}\right )}{(-1+x) x \log (x)} \, dx \\ & = -4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )-\log (4) \int \frac {256^{e^{-x}} (1-\log (x))}{x \log (4) \log (x)} \, dx-\int \frac {256^{e^{-x}} (-1+x)+(-1+x) \log (-1+x) (-1+\log (x))-\log (x) \left (256^{e^{-x}} (-1+x)-x \log \left (\frac {2 x}{\log (x)}\right )\right )}{(1-x) x \log (x)} \, dx \\ & = -4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )-\int \frac {256^{e^{-x}} (1-\log (x))}{x \log (x)} \, dx-\int \left (\frac {256^{e^{-x}} (-1+\log (x))}{x \log (x)}+\frac {-\log (-1+x)+x \log (-1+x)+\log (-1+x) \log (x)-x \log (-1+x) \log (x)-x \log (x) \log \left (\frac {2 x}{\log (x)}\right )}{(-1+x) x \log (x)}\right ) \, dx \\ & = -4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )-\int \left (-\frac {256^{e^{-x}}}{x}+\frac {256^{e^{-x}}}{x \log (x)}\right ) \, dx-\int \frac {256^{e^{-x}} (-1+\log (x))}{x \log (x)} \, dx-\int \frac {-\log (-1+x)+x \log (-1+x)+\log (-1+x) \log (x)-x \log (-1+x) \log (x)-x \log (x) \log \left (\frac {2 x}{\log (x)}\right )}{(-1+x) x \log (x)} \, dx \\ & = -4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )+\int \frac {256^{e^{-x}}}{x} \, dx-\int \left (\frac {256^{e^{-x}}}{x}-\frac {256^{e^{-x}}}{x \log (x)}\right ) \, dx-\int \frac {256^{e^{-x}}}{x \log (x)} \, dx-\int \left (-\frac {\log (-1+x) (-1+\log (x))}{x \log (x)}-\frac {\log \left (\frac {2 x}{\log (x)}\right )}{-1+x}\right ) \, dx \\ & = -4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )+\int \frac {\log (-1+x) (-1+\log (x))}{x \log (x)} \, dx+\int \frac {\log \left (\frac {2 x}{\log (x)}\right )}{-1+x} \, dx \\ & = -4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )+\int \left (\frac {\log (-1+x)}{x}-\frac {\log (-1+x)}{x \log (x)}\right ) \, dx+\int \frac {\log \left (\frac {2 x}{\log (x)}\right )}{-1+x} \, dx \\ & = -4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )+\int \frac {\log (-1+x)}{x} \, dx-\int \frac {\log (-1+x)}{x \log (x)} \, dx+\int \frac {\log \left (\frac {2 x}{\log (x)}\right )}{-1+x} \, dx \\ & = \log (-1+x) \log (x)-4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )-\int \frac {\log (-1+x)}{x \log (x)} \, dx-\int \frac {\log (x)}{-1+x} \, dx+\int \frac {\log \left (\frac {2 x}{\log (x)}\right )}{-1+x} \, dx \\ & = \log (-1+x) \log (x)-4^{4 e^{-x}} \log \left (\frac {2 x}{\log (x)}\right )+\text {Li}_2(1-x)-\int \frac {\log (-1+x)}{x \log (x)} \, dx+\int \frac {\log \left (\frac {2 x}{\log (x)}\right )}{-1+x} \, dx \\ \end{align*}

Mathematica [A] (verified)

Time = 0.45 (sec) , antiderivative size = 24, normalized size of antiderivative = 0.96 \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=-\left (\left (256^{e^{-x}}-\log (-1+x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right ) \]

[In]

Integrate[(E^x*(1 - x)*Log[-1 + x] + E^x*(-1 + x)*Log[-1 + x]*Log[x] + 4^(4/E^x)*(E^x*(-1 + x) + E^x*(1 - x)*L
og[x]) + (E^x*x*Log[x] + 4^(4/E^x)*(-4*x + 4*x^2)*Log[4]*Log[x])*Log[(2*x)/Log[x]])/(E^x*(-x + x^2)*Log[x]),x]

[Out]

-((256^E^(-x) - Log[-1 + x])*Log[(2*x)/Log[x]])

Maple [C] (warning: unable to verify)

Result contains higher order function than in optimal. Order 9 vs. order 3.

Time = 0.76 (sec) , antiderivative size = 261, normalized size of antiderivative = 10.44

\[\left (-\ln \left (-1+x \right )+256^{{\mathrm e}^{-x}}\right ) \ln \left (\ln \left (x \right )\right )+\ln \left (x \right ) \ln \left (-1+x \right )+\frac {i 256^{{\mathrm e}^{-x}} \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )}{2}+\frac {i 256^{{\mathrm e}^{-x}} \pi \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{3}}{2}-\frac {i 256^{{\mathrm e}^{-x}} \pi \,\operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}-\frac {i \ln \left (-1+x \right ) \pi \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{3}}{2}-\frac {i 256^{{\mathrm e}^{-x}} \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}+\frac {i \ln \left (-1+x \right ) \pi \,\operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}+\frac {i \ln \left (-1+x \right ) \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )^{2}}{2}-\frac {i \ln \left (-1+x \right ) \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i}{\ln \left (x \right )}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (x \right )}\right )}{2}+\ln \left (-1+x \right ) \ln \left (2\right )-256^{{\mathrm e}^{-x}} \ln \left (2\right )-256^{{\mathrm e}^{-x}} \ln \left (x \right )\]

[In]

int(((2*(4*x^2-4*x)*ln(2)*ln(x)*exp(8*ln(2)/exp(x))+x*exp(x)*ln(x))*ln(2*x/ln(x))+((1-x)*exp(x)*ln(x)+(-1+x)*e
xp(x))*exp(8*ln(2)/exp(x))+(-1+x)*exp(x)*ln(-1+x)*ln(x)+(1-x)*exp(x)*ln(-1+x))/(x^2-x)/exp(x)/ln(x),x)

[Out]

(-ln(-1+x)+256^exp(-x))*ln(ln(x))+ln(x)*ln(-1+x)+1/2*I*256^exp(-x)*Pi*csgn(I*x)*csgn(I/ln(x))*csgn(I*x/ln(x))+
1/2*I*256^exp(-x)*Pi*csgn(I*x/ln(x))^3-1/2*I*256^exp(-x)*Pi*csgn(I/ln(x))*csgn(I*x/ln(x))^2-1/2*I*ln(-1+x)*Pi*
csgn(I*x/ln(x))^3-1/2*I*256^exp(-x)*Pi*csgn(I*x)*csgn(I*x/ln(x))^2+1/2*I*ln(-1+x)*Pi*csgn(I/ln(x))*csgn(I*x/ln
(x))^2+1/2*I*ln(-1+x)*Pi*csgn(I*x)*csgn(I*x/ln(x))^2-1/2*I*ln(-1+x)*Pi*csgn(I*x)*csgn(I/ln(x))*csgn(I*x/ln(x))
+ln(-1+x)*ln(2)-256^exp(-x)*ln(2)-256^exp(-x)*ln(x)

Fricas [A] (verification not implemented)

none

Time = 0.24 (sec) , antiderivative size = 25, normalized size of antiderivative = 1.00 \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=-{\left (2^{8 \, e^{\left (-x\right )}} - \log \left (x - 1\right )\right )} \log \left (\frac {2 \, x}{\log \left (x\right )}\right ) \]

[In]

integrate(((2*(4*x^2-4*x)*log(2)*log(x)*exp(8*log(2)/exp(x))+x*exp(x)*log(x))*log(2*x/log(x))+((1-x)*exp(x)*lo
g(x)+(-1+x)*exp(x))*exp(8*log(2)/exp(x))+(-1+x)*exp(x)*log(-1+x)*log(x)+(1-x)*exp(x)*log(-1+x))/(x^2-x)/exp(x)
/log(x),x, algorithm="fricas")

[Out]

-(2^(8*e^(-x)) - log(x - 1))*log(2*x/log(x))

Sympy [F(-1)]

Timed out. \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\text {Timed out} \]

[In]

integrate(((2*(4*x**2-4*x)*ln(2)*ln(x)*exp(8*ln(2)/exp(x))+x*exp(x)*ln(x))*ln(2*x/ln(x))+((1-x)*exp(x)*ln(x)+(
-1+x)*exp(x))*exp(8*ln(2)/exp(x))+(-1+x)*exp(x)*ln(-1+x)*ln(x)+(1-x)*exp(x)*ln(-1+x))/(x**2-x)/exp(x)/ln(x),x)

[Out]

Timed out

Maxima [F]

\[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\int { \frac {{\left ({\left (x - 1\right )} e^{x} \log \left (x - 1\right ) \log \left (x\right ) - {\left (x - 1\right )} e^{x} \log \left (x - 1\right ) - {\left ({\left (x - 1\right )} e^{x} \log \left (x\right ) - {\left (x - 1\right )} e^{x}\right )} 2^{8 \, e^{\left (-x\right )}} + {\left (8 \, {\left (x^{2} - x\right )} 2^{8 \, e^{\left (-x\right )}} \log \left (2\right ) \log \left (x\right ) + x e^{x} \log \left (x\right )\right )} \log \left (\frac {2 \, x}{\log \left (x\right )}\right )\right )} e^{\left (-x\right )}}{{\left (x^{2} - x\right )} \log \left (x\right )} \,d x } \]

[In]

integrate(((2*(4*x^2-4*x)*log(2)*log(x)*exp(8*log(2)/exp(x))+x*exp(x)*log(x))*log(2*x/log(x))+((1-x)*exp(x)*lo
g(x)+(-1+x)*exp(x))*exp(8*log(2)/exp(x))+(-1+x)*exp(x)*log(-1+x)*log(x)+(1-x)*exp(x)*log(-1+x))/(x^2-x)/exp(x)
/log(x),x, algorithm="maxima")

[Out]

(log(2) + log(x) - log(log(x)))*log(x - 1) - integrate(-(8*x*log(2)^2*log(x) + 8*x*log(2)*log(x)^2 - 8*x*log(2
)*log(x)*log(log(x)) - (log(x) - 1)*e^x)*e^(8*e^(-x)*log(2) - x)/(x*log(x)), x)

Giac [F]

\[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\int { \frac {{\left ({\left (x - 1\right )} e^{x} \log \left (x - 1\right ) \log \left (x\right ) - {\left (x - 1\right )} e^{x} \log \left (x - 1\right ) - {\left ({\left (x - 1\right )} e^{x} \log \left (x\right ) - {\left (x - 1\right )} e^{x}\right )} 2^{8 \, e^{\left (-x\right )}} + {\left (8 \, {\left (x^{2} - x\right )} 2^{8 \, e^{\left (-x\right )}} \log \left (2\right ) \log \left (x\right ) + x e^{x} \log \left (x\right )\right )} \log \left (\frac {2 \, x}{\log \left (x\right )}\right )\right )} e^{\left (-x\right )}}{{\left (x^{2} - x\right )} \log \left (x\right )} \,d x } \]

[In]

integrate(((2*(4*x^2-4*x)*log(2)*log(x)*exp(8*log(2)/exp(x))+x*exp(x)*log(x))*log(2*x/log(x))+((1-x)*exp(x)*lo
g(x)+(-1+x)*exp(x))*exp(8*log(2)/exp(x))+(-1+x)*exp(x)*log(-1+x)*log(x)+(1-x)*exp(x)*log(-1+x))/(x^2-x)/exp(x)
/log(x),x, algorithm="giac")

[Out]

integrate(((x - 1)*e^x*log(x - 1)*log(x) - (x - 1)*e^x*log(x - 1) - ((x - 1)*e^x*log(x) - (x - 1)*e^x)*2^(8*e^
(-x)) + (8*(x^2 - x)*2^(8*e^(-x))*log(2)*log(x) + x*e^x*log(x))*log(2*x/log(x)))*e^(-x)/((x^2 - x)*log(x)), x)

Mupad [F(-1)]

Timed out. \[ \int \frac {e^{-x} \left (e^x (1-x) \log (-1+x)+e^x (-1+x) \log (-1+x) \log (x)+4^{4 e^{-x}} \left (e^x (-1+x)+e^x (1-x) \log (x)\right )+\left (e^x x \log (x)+4^{4 e^{-x}} \left (-4 x+4 x^2\right ) \log (4) \log (x)\right ) \log \left (\frac {2 x}{\log (x)}\right )\right )}{\left (-x+x^2\right ) \log (x)} \, dx=\int -\frac {{\mathrm {e}}^{-x}\,\left ({\mathrm {e}}^{8\,{\mathrm {e}}^{-x}\,\ln \left (2\right )}\,\left ({\mathrm {e}}^x\,\left (x-1\right )-{\mathrm {e}}^x\,\ln \left (x\right )\,\left (x-1\right )\right )+\ln \left (\frac {2\,x}{\ln \left (x\right )}\right )\,\left (x\,{\mathrm {e}}^x\,\ln \left (x\right )-2\,{\mathrm {e}}^{8\,{\mathrm {e}}^{-x}\,\ln \left (2\right )}\,\ln \left (2\right )\,\ln \left (x\right )\,\left (4\,x-4\,x^2\right )\right )-\ln \left (x-1\right )\,{\mathrm {e}}^x\,\left (x-1\right )+\ln \left (x-1\right )\,{\mathrm {e}}^x\,\ln \left (x\right )\,\left (x-1\right )\right )}{\ln \left (x\right )\,\left (x-x^2\right )} \,d x \]

[In]

int(-(exp(-x)*(exp(8*exp(-x)*log(2))*(exp(x)*(x - 1) - exp(x)*log(x)*(x - 1)) + log((2*x)/log(x))*(x*exp(x)*lo
g(x) - 2*exp(8*exp(-x)*log(2))*log(2)*log(x)*(4*x - 4*x^2)) - log(x - 1)*exp(x)*(x - 1) + log(x - 1)*exp(x)*lo
g(x)*(x - 1)))/(log(x)*(x - x^2)),x)

[Out]

int(-(exp(-x)*(exp(8*exp(-x)*log(2))*(exp(x)*(x - 1) - exp(x)*log(x)*(x - 1)) + log((2*x)/log(x))*(x*exp(x)*lo
g(x) - 2*exp(8*exp(-x)*log(2))*log(2)*log(x)*(4*x - 4*x^2)) - log(x - 1)*exp(x)*(x - 1) + log(x - 1)*exp(x)*lo
g(x)*(x - 1)))/(log(x)*(x - x^2)), x)