\(\int \frac {(-e^{2 x}+3 e^x x-2 x^2) \log (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2})+(e^{2 x}-3 e^x x+2 x^3) \log (x) \log (\log (x))+(e^{2 x}-3 e^x x+2 x^2) \log (x) \log (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}) \log (\log (x)) \log (\frac {\log (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2})}{\log (\log (x))})}{(e^{2 x}-3 e^x x+2 x^2) \log (x) \log (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}) \log (\log (x))} \, dx\) [6890]

Optimal result

Integrand size = 245, antiderivative size = 26 \[ \int \frac {\left (-e^{2 x}+3 e^x x-2 x^2\right ) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )+\left (e^{2 x}-3 e^x x+2 x^3\right ) \log (x) \log (\log (x))+\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x)) \log \left (\frac {\log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )}{\log (\log (x))}\right )}{\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x))} \, dx=x \log \left (\frac {\log \left (x-\frac {x^3}{\left (-e^x+x\right )^2}\right )}{\log (\log (x))}\right ) \]

[Out]

ln(ln(x-x^3/(x-exp(x))^2)/ln(ln(x)))*x

Rubi [A] (verified)

Time = 2.74 (sec) , antiderivative size = 31, normalized size of antiderivative = 1.19, number of steps used = 17, number of rules used = 3, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.012, Rules used = {6820, 6874, 2629} \[ \int \frac {\left (-e^{2 x}+3 e^x x-2 x^2\right ) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )+\left (e^{2 x}-3 e^x x+2 x^3\right ) \log (x) \log (\log (x))+\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x)) \log \left (\frac {\log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )}{\log (\log (x))}\right )}{\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x))} \, dx=x \log \left (\frac {\log \left (\frac {e^x \left (e^x-2 x\right ) x}{\left (e^x-x\right )^2}\right )}{\log (\log (x))}\right ) \]

[In]

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

[Out]

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

Rule 2629

Int[Log[u_], x_Symbol] :> Simp[x*Log[u], x] - Int[SimplifyIntegrand[x*Simplify[D[u, x]/u], x], x] /; ProductQ[
u]

Rule 6820

Int[u_, x_Symbol] :> With[{v = SimplifyIntegrand[u, x]}, Int[v, x] /; SimplerIntegrandQ[v, u, x]]

Rule 6874

Int[u_, x_Symbol] :> With[{v = ExpandIntegrand[u, x]}, Int[v, x] /; SumQ[v]]

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

Mathematica [A] (verified)

Time = 0.68 (sec) , antiderivative size = 31, normalized size of antiderivative = 1.19 \[ \int \frac {\left (-e^{2 x}+3 e^x x-2 x^2\right ) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )+\left (e^{2 x}-3 e^x x+2 x^3\right ) \log (x) \log (\log (x))+\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x)) \log \left (\frac {\log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )}{\log (\log (x))}\right )}{\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x))} \, dx=x \log \left (\frac {\log \left (\frac {e^x \left (e^x-2 x\right ) x}{\left (e^x-x\right )^2}\right )}{\log (\log (x))}\right ) \]

[In]

Integrate[((-E^(2*x) + 3*E^x*x - 2*x^2)*Log[(E^(2*x)*x - 2*E^x*x^2)/(E^(2*x) - 2*E^x*x + x^2)] + (E^(2*x) - 3*
E^x*x + 2*x^3)*Log[x]*Log[Log[x]] + (E^(2*x) - 3*E^x*x + 2*x^2)*Log[x]*Log[(E^(2*x)*x - 2*E^x*x^2)/(E^(2*x) -
2*E^x*x + x^2)]*Log[Log[x]]*Log[Log[(E^(2*x)*x - 2*E^x*x^2)/(E^(2*x) - 2*E^x*x + x^2)]/Log[Log[x]]])/((E^(2*x)
- 3*E^x*x + 2*x^2)*Log[x]*Log[(E^(2*x)*x - 2*E^x*x^2)/(E^(2*x) - 2*E^x*x + x^2)]*Log[Log[x]]),x]

[Out]

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

Maple [F]

\[\int \frac {\left ({\mathrm e}^{2 x}-3 \,{\mathrm e}^{x} x +2 x^{2}\right ) \ln \left (x \right ) \ln \left (\frac {x \,{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x^{2}}{{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x +x^{2}}\right ) \ln \left (\ln \left (x \right )\right ) \ln \left (\frac {\ln \left (\frac {x \,{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x^{2}}{{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x +x^{2}}\right )}{\ln \left (\ln \left (x \right )\right )}\right )+\left ({\mathrm e}^{2 x}-3 \,{\mathrm e}^{x} x +2 x^{3}\right ) \ln \left (x \right ) \ln \left (\ln \left (x \right )\right )+\left (-{\mathrm e}^{2 x}+3 \,{\mathrm e}^{x} x -2 x^{2}\right ) \ln \left (\frac {x \,{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x^{2}}{{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x +x^{2}}\right )}{\left ({\mathrm e}^{2 x}-3 \,{\mathrm e}^{x} x +2 x^{2}\right ) \ln \left (x \right ) \ln \left (\frac {x \,{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x^{2}}{{\mathrm e}^{2 x}-2 \,{\mathrm e}^{x} x +x^{2}}\right ) \ln \left (\ln \left (x \right )\right )}d x\]

[In]

int(((exp(x)^2-3*exp(x)*x+2*x^2)*ln(x)*ln((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))*ln(ln(x))*ln(ln
((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/ln(ln(x)))+(exp(x)^2-3*exp(x)*x+2*x^3)*ln(x)*ln(ln(x))+(
-exp(x)^2+3*exp(x)*x-2*x^2)*ln((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2)))/(exp(x)^2-3*exp(x)*x+2*x^
2)/ln(x)/ln((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/ln(ln(x)),x)

[Out]

int(((exp(x)^2-3*exp(x)*x+2*x^2)*ln(x)*ln((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))*ln(ln(x))*ln(ln
((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/ln(ln(x)))+(exp(x)^2-3*exp(x)*x+2*x^3)*ln(x)*ln(ln(x))+(
-exp(x)^2+3*exp(x)*x-2*x^2)*ln((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2)))/(exp(x)^2-3*exp(x)*x+2*x^
2)/ln(x)/ln((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/ln(ln(x)),x)

Fricas [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 42, normalized size of antiderivative = 1.62 \[ \int \frac {\left (-e^{2 x}+3 e^x x-2 x^2\right ) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )+\left (e^{2 x}-3 e^x x+2 x^3\right ) \log (x) \log (\log (x))+\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x)) \log \left (\frac {\log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )}{\log (\log (x))}\right )}{\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x))} \, dx=x \log \left (\frac {\log \left (-\frac {2 \, x^{2} e^{x} - x e^{\left (2 \, x\right )}}{x^{2} - 2 \, x e^{x} + e^{\left (2 \, x\right )}}\right )}{\log \left (\log \left (x\right )\right )}\right ) \]

[In]

integrate(((exp(x)^2-3*exp(x)*x+2*x^2)*log(x)*log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))*log(log
(x))*log(log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/log(log(x)))+(exp(x)^2-3*exp(x)*x+2*x^3)*log
(x)*log(log(x))+(-exp(x)^2+3*exp(x)*x-2*x^2)*log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2)))/(exp(x)
^2-3*exp(x)*x+2*x^2)/log(x)/log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/log(log(x)),x, algorithm=
"fricas")

[Out]

x*log(log(-(2*x^2*e^x - x*e^(2*x))/(x^2 - 2*x*e^x + e^(2*x)))/log(log(x)))

Sympy [F(-1)]

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

[In]

integrate(((exp(x)**2-3*exp(x)*x+2*x**2)*ln(x)*ln((x*exp(x)**2-2*exp(x)*x**2)/(exp(x)**2-2*exp(x)*x+x**2))*ln(
ln(x))*ln(ln((x*exp(x)**2-2*exp(x)*x**2)/(exp(x)**2-2*exp(x)*x+x**2))/ln(ln(x)))+(exp(x)**2-3*exp(x)*x+2*x**3)
*ln(x)*ln(ln(x))+(-exp(x)**2+3*exp(x)*x-2*x**2)*ln((x*exp(x)**2-2*exp(x)*x**2)/(exp(x)**2-2*exp(x)*x+x**2)))/(
exp(x)**2-3*exp(x)*x+2*x**2)/ln(x)/ln((x*exp(x)**2-2*exp(x)*x**2)/(exp(x)**2-2*exp(x)*x+x**2))/ln(ln(x)),x)

[Out]

Timed out

Maxima [A] (verification not implemented)

none

Time = 0.44 (sec) , antiderivative size = 31, normalized size of antiderivative = 1.19 \[ \int \frac {\left (-e^{2 x}+3 e^x x-2 x^2\right ) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )+\left (e^{2 x}-3 e^x x+2 x^3\right ) \log (x) \log (\log (x))+\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x)) \log \left (\frac {\log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )}{\log (\log (x))}\right )}{\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x))} \, dx=x \log \left (x + \log \left (x\right ) - 2 \, \log \left (-x + e^{x}\right ) + \log \left (-2 \, x + e^{x}\right )\right ) - x \log \left (\log \left (\log \left (x\right )\right )\right ) \]

[In]

integrate(((exp(x)^2-3*exp(x)*x+2*x^2)*log(x)*log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))*log(log
(x))*log(log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/log(log(x)))+(exp(x)^2-3*exp(x)*x+2*x^3)*log
(x)*log(log(x))+(-exp(x)^2+3*exp(x)*x-2*x^2)*log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2)))/(exp(x)
^2-3*exp(x)*x+2*x^2)/log(x)/log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/log(log(x)),x, algorithm=
"maxima")

[Out]

x*log(x + log(x) - 2*log(-x + e^x) + log(-2*x + e^x)) - x*log(log(log(x)))

Giac [F(-2)]

Exception generated. \[ \int \frac {\left (-e^{2 x}+3 e^x x-2 x^2\right ) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )+\left (e^{2 x}-3 e^x x+2 x^3\right ) \log (x) \log (\log (x))+\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x)) \log \left (\frac {\log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )}{\log (\log (x))}\right )}{\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x))} \, dx=\text {Exception raised: TypeError} \]

[In]

integrate(((exp(x)^2-3*exp(x)*x+2*x^2)*log(x)*log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))*log(log
(x))*log(log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/log(log(x)))+(exp(x)^2-3*exp(x)*x+2*x^3)*log
(x)*log(log(x))+(-exp(x)^2+3*exp(x)*x-2*x^2)*log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2)))/(exp(x)
^2-3*exp(x)*x+2*x^2)/log(x)/log((x*exp(x)^2-2*exp(x)*x^2)/(exp(x)^2-2*exp(x)*x+x^2))/log(log(x)),x, algorithm=
"giac")

[Out]

Exception raised: TypeError >> an error occurred running a Giac command:INPUT:sage2:=int(sage0,sageVARx):;OUTP
UT:Not invertible Error: Bad Argument Value

Mupad [B] (verification not implemented)

Time = 13.62 (sec) , antiderivative size = 40, normalized size of antiderivative = 1.54 \[ \int \frac {\left (-e^{2 x}+3 e^x x-2 x^2\right ) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )+\left (e^{2 x}-3 e^x x+2 x^3\right ) \log (x) \log (\log (x))+\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x)) \log \left (\frac {\log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right )}{\log (\log (x))}\right )}{\left (e^{2 x}-3 e^x x+2 x^2\right ) \log (x) \log \left (\frac {e^{2 x} x-2 e^x x^2}{e^{2 x}-2 e^x x+x^2}\right ) \log (\log (x))} \, dx=x\,\ln \left (\frac {\ln \left (\frac {x\,{\mathrm {e}}^{2\,x}-2\,x^2\,{\mathrm {e}}^x}{{\mathrm {e}}^{2\,x}-2\,x\,{\mathrm {e}}^x+x^2}\right )}{\ln \left (\ln \left (x\right )\right )}\right ) \]

[In]

int((log(log(x))*log(x)*(exp(2*x) - 3*x*exp(x) + 2*x^3) - log((x*exp(2*x) - 2*x^2*exp(x))/(exp(2*x) - 2*x*exp(
x) + x^2))*(exp(2*x) - 3*x*exp(x) + 2*x^2) + log(log(x))*log(log((x*exp(2*x) - 2*x^2*exp(x))/(exp(2*x) - 2*x*e
xp(x) + x^2))/log(log(x)))*log((x*exp(2*x) - 2*x^2*exp(x))/(exp(2*x) - 2*x*exp(x) + x^2))*log(x)*(exp(2*x) - 3
*x*exp(x) + 2*x^2))/(log(log(x))*log((x*exp(2*x) - 2*x^2*exp(x))/(exp(2*x) - 2*x*exp(x) + x^2))*log(x)*(exp(2*
x) - 3*x*exp(x) + 2*x^2)),x)

[Out]

x*log(log((x*exp(2*x) - 2*x^2*exp(x))/(exp(2*x) - 2*x*exp(x) + x^2))/log(log(x)))