3.4.45 \(\int \frac {e^{-2 x} (e^{2 x} (-2 x+x^2) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x))+e^{\frac {9+3 x}{2 \log (2-x)}} (e^x (9 x+3 x^2)+e^x (6 x-3 x^2) \log (2-x)+e^x (4-6 x+2 x^2) \log ^2(2-x)))}{(-4+2 x) \log ^2(2-x)} \, dx\) [345]

3.4.45.1 Optimal result
3.4.45.2 Mathematica [A] (verified)
3.4.45.3 Rubi [F]
3.4.45.4 Maple [A] (verified)
3.4.45.5 Fricas [A] (verification not implemented)
3.4.45.6 Sympy [B] (verification not implemented)
3.4.45.7 Maxima [F(-2)]
3.4.45.8 Giac [B] (verification not implemented)
3.4.45.9 Mupad [F(-1)]

3.4.45.1 Optimal result

Integrand size = 166, antiderivative size = 35 \begin {dmath*} \int \frac {e^{-2 x} \left (e^{2 x} \left (-2 x+x^2\right ) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} \left (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x)\right )+e^{\frac {9+3 x}{2 \log (2-x)}} \left (e^x \left (9 x+3 x^2\right )+e^x \left (6 x-3 x^2\right ) \log (2-x)+e^x \left (4-6 x+2 x^2\right ) \log ^2(2-x)\right )\right )}{(-4+2 x) \log ^2(2-x)} \, dx=\left (-e^{-x+\frac {9 \left (2+\frac {2 x}{3}\right )}{4 \log (2-x)}}+\frac {x}{2}\right )^2 \end {dmath*}

output
(1/2*x-exp(9/4*(2+2/3*x)/ln(2-x))/exp(x))^2
 
3.4.45.2 Mathematica [A] (verified)

Time = 0.19 (sec) , antiderivative size = 36, normalized size of antiderivative = 1.03 \begin {dmath*} \int \frac {e^{-2 x} \left (e^{2 x} \left (-2 x+x^2\right ) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} \left (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x)\right )+e^{\frac {9+3 x}{2 \log (2-x)}} \left (e^x \left (9 x+3 x^2\right )+e^x \left (6 x-3 x^2\right ) \log (2-x)+e^x \left (4-6 x+2 x^2\right ) \log ^2(2-x)\right )\right )}{(-4+2 x) \log ^2(2-x)} \, dx=\frac {1}{4} e^{-2 x} \left (-2 e^{\frac {3 (3+x)}{2 \log (2-x)}}+e^x x\right )^2 \end {dmath*}

input
Integrate[(E^(2*x)*(-2*x + x^2)*Log[2 - x]^2 + E^((9 + 3*x)/Log[2 - x])*(- 
18 - 6*x + (-12 + 6*x)*Log[2 - x] + (8 - 4*x)*Log[2 - x]^2) + E^((9 + 3*x) 
/(2*Log[2 - x]))*(E^x*(9*x + 3*x^2) + E^x*(6*x - 3*x^2)*Log[2 - x] + E^x*( 
4 - 6*x + 2*x^2)*Log[2 - x]^2))/(E^(2*x)*(-4 + 2*x)*Log[2 - x]^2),x]
 
output
(-2*E^((3*(3 + x))/(2*Log[2 - x])) + E^x*x)^2/(4*E^(2*x))
 
3.4.45.3 Rubi [F]

Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.

\(\displaystyle \int \frac {e^{-2 x} \left (e^{2 x} \left (x^2-2 x\right ) \log ^2(2-x)+e^{\frac {3 x+9}{2 \log (2-x)}} \left (e^x \left (3 x^2+9 x\right )+e^x \left (2 x^2-6 x+4\right ) \log ^2(2-x)+e^x \left (6 x-3 x^2\right ) \log (2-x)\right )+e^{\frac {3 x+9}{\log (2-x)}} \left (-6 x+(8-4 x) \log ^2(2-x)+(6 x-12) \log (2-x)-18\right )\right )}{(2 x-4) \log ^2(2-x)} \, dx\)

\(\Big \downarrow \) 7293

\(\displaystyle \int \left (\frac {e^{\frac {3 x+2 x \log (2-x)+9}{2 \log (2-x)}-2 x} \left (-3 x^2-2 x^2 \log ^2(2-x)+3 x^2 \log (2-x)-9 x+6 x \log ^2(2-x)-4 \log ^2(2-x)-6 x \log (2-x)\right )}{2 (2-x) \log ^2(2-x)}+\frac {x}{2}+\frac {e^{\frac {3 (x+3)}{\log (2-x)}-2 x} \left (3 x+2 x \log ^2(2-x)-4 \log ^2(2-x)-3 x \log (2-x)+6 \log (2-x)+9\right )}{(2-x) \log ^2(2-x)}\right )dx\)

\(\Big \downarrow \) 2009

\(\displaystyle -3 \int \frac {e^{\frac {3 (x+3)}{\log (2-x)}-2 x}}{\log ^2(2-x)}dx+\frac {21}{2} \int \frac {e^{\frac {-2 \log (2-x) x+3 x+9}{2 \log (2-x)}}}{\log ^2(2-x)}dx-\frac {3}{2} \int \frac {e^{\frac {-2 \log (2-x) x+3 x+9}{2 \log (2-x)}} (2-x)}{\log ^2(2-x)}dx-15 \int \frac {e^{\frac {3 (x+3)}{\log (2-x)}-2 x}}{(x-2) \log ^2(2-x)}dx+15 \int \frac {e^{\frac {-2 \log (2-x) x+3 x+9}{2 \log (2-x)}}}{(x-2) \log ^2(2-x)}dx-2 \int e^{\frac {3 (x+3)}{\log (2-x)}-2 x}dx-\int e^{\frac {-2 \log (2-x) x+3 x+9}{2 \log (2-x)}}dx+\int e^{\frac {-2 \log (2-x) x+3 x+9}{2 \log (2-x)}} xdx+3 \int \frac {e^{\frac {3 (x+3)}{\log (2-x)}-2 x}}{\log (2-x)}dx-3 \int \frac {e^{\frac {-2 \log (2-x) x+3 x+9}{2 \log (2-x)}}}{\log (2-x)}dx+\frac {3}{2} \int \frac {e^{\frac {-2 \log (2-x) x+3 x+9}{2 \log (2-x)}} (2-x)}{\log (2-x)}dx+\frac {x^2}{4}\)

input
Int[(E^(2*x)*(-2*x + x^2)*Log[2 - x]^2 + E^((9 + 3*x)/Log[2 - x])*(-18 - 6 
*x + (-12 + 6*x)*Log[2 - x] + (8 - 4*x)*Log[2 - x]^2) + E^((9 + 3*x)/(2*Lo 
g[2 - x]))*(E^x*(9*x + 3*x^2) + E^x*(6*x - 3*x^2)*Log[2 - x] + E^x*(4 - 6* 
x + 2*x^2)*Log[2 - x]^2))/(E^(2*x)*(-4 + 2*x)*Log[2 - x]^2),x]
 
output
$Aborted
 

3.4.45.3.1 Defintions of rubi rules used

rule 2009
Int[u_, x_Symbol] :> Simp[IntSum[u, x], x] /; SumQ[u]
 

rule 7293
Int[u_, x_Symbol] :> With[{v = ExpandIntegrand[u, x]}, Int[v, x] /; SumQ[v] 
]
 
3.4.45.4 Maple [A] (verified)

Time = 2.79 (sec) , antiderivative size = 54, normalized size of antiderivative = 1.54

method result size
parallelrisch \(\frac {\left (2 \,{\mathrm e}^{2 x} x^{2}-8 \,{\mathrm e}^{x} {\mathrm e}^{\frac {\frac {9}{2}+\frac {3 x}{2}}{\ln \left (2-x \right )}} x +8 \,{\mathrm e}^{\frac {3 x +9}{\ln \left (2-x \right )}}\right ) {\mathrm e}^{-2 x}}{8}\) \(54\)
risch \(\frac {x^{2}}{4}+{\mathrm e}^{-\frac {2 x \ln \left (2-x \right )-3 x -9}{\ln \left (2-x \right )}}-x \,{\mathrm e}^{-\frac {2 x \ln \left (2-x \right )-3 x -9}{2 \ln \left (2-x \right )}}\) \(60\)

input
int((((-4*x+8)*ln(2-x)^2+(6*x-12)*ln(2-x)-6*x-18)*exp(1/2*(3*x+9)/ln(2-x)) 
^2+((2*x^2-6*x+4)*exp(x)*ln(2-x)^2+(-3*x^2+6*x)*exp(x)*ln(2-x)+(3*x^2+9*x) 
*exp(x))*exp(1/2*(3*x+9)/ln(2-x))+(x^2-2*x)*exp(x)^2*ln(2-x)^2)/(2*x-4)/ex 
p(x)^2/ln(2-x)^2,x,method=_RETURNVERBOSE)
 
output
1/8*(2*exp(x)^2*x^2-8*exp(x)*exp(3/2*(3+x)/ln(2-x))*x+8*exp(3/2*(3+x)/ln(2 
-x))^2)/exp(x)^2
 
3.4.45.5 Fricas [A] (verification not implemented)

Time = 0.26 (sec) , antiderivative size = 50, normalized size of antiderivative = 1.43 \begin {dmath*} \int \frac {e^{-2 x} \left (e^{2 x} \left (-2 x+x^2\right ) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} \left (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x)\right )+e^{\frac {9+3 x}{2 \log (2-x)}} \left (e^x \left (9 x+3 x^2\right )+e^x \left (6 x-3 x^2\right ) \log (2-x)+e^x \left (4-6 x+2 x^2\right ) \log ^2(2-x)\right )\right )}{(-4+2 x) \log ^2(2-x)} \, dx=\frac {1}{4} \, {\left (x^{2} e^{\left (2 \, x\right )} - 4 \, x e^{\left (x + \frac {3 \, {\left (x + 3\right )}}{2 \, \log \left (-x + 2\right )}\right )} + 4 \, e^{\left (\frac {3 \, {\left (x + 3\right )}}{\log \left (-x + 2\right )}\right )}\right )} e^{\left (-2 \, x\right )} \end {dmath*}

input
integrate((((-4*x+8)*log(2-x)^2+(6*x-12)*log(2-x)-6*x-18)*exp(1/2*(3*x+9)/ 
log(2-x))^2+((2*x^2-6*x+4)*exp(x)*log(2-x)^2+(-3*x^2+6*x)*exp(x)*log(2-x)+ 
(3*x^2+9*x)*exp(x))*exp(1/2*(3*x+9)/log(2-x))+(x^2-2*x)*exp(x)^2*log(2-x)^ 
2)/(2*x-4)/exp(x)^2/log(2-x)^2,x, algorithm=\
 
output
1/4*(x^2*e^(2*x) - 4*x*e^(x + 3/2*(x + 3)/log(-x + 2)) + 4*e^(3*(x + 3)/lo 
g(-x + 2)))*e^(-2*x)
 
3.4.45.6 Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 46 vs. \(2 (22) = 44\).

Time = 0.44 (sec) , antiderivative size = 46, normalized size of antiderivative = 1.31 \begin {dmath*} \int \frac {e^{-2 x} \left (e^{2 x} \left (-2 x+x^2\right ) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} \left (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x)\right )+e^{\frac {9+3 x}{2 \log (2-x)}} \left (e^x \left (9 x+3 x^2\right )+e^x \left (6 x-3 x^2\right ) \log (2-x)+e^x \left (4-6 x+2 x^2\right ) \log ^2(2-x)\right )\right )}{(-4+2 x) \log ^2(2-x)} \, dx=\frac {x^{2}}{4} + \left (- x e^{2 x} e^{\frac {\frac {3 x}{2} + \frac {9}{2}}{\log {\left (2 - x \right )}}} + e^{x} e^{\frac {2 \cdot \left (\frac {3 x}{2} + \frac {9}{2}\right )}{\log {\left (2 - x \right )}}}\right ) e^{- 3 x} \end {dmath*}

input
integrate((((-4*x+8)*ln(2-x)**2+(6*x-12)*ln(2-x)-6*x-18)*exp(1/2*(3*x+9)/l 
n(2-x))**2+((2*x**2-6*x+4)*exp(x)*ln(2-x)**2+(-3*x**2+6*x)*exp(x)*ln(2-x)+ 
(3*x**2+9*x)*exp(x))*exp(1/2*(3*x+9)/ln(2-x))+(x**2-2*x)*exp(x)**2*ln(2-x) 
**2)/(2*x-4)/exp(x)**2/ln(2-x)**2,x)
 
output
x**2/4 + (-x*exp(2*x)*exp((3*x/2 + 9/2)/log(2 - x)) + exp(x)*exp(2*(3*x/2 
+ 9/2)/log(2 - x)))*exp(-3*x)
 
3.4.45.7 Maxima [F(-2)]

Exception generated. \begin {dmath*} \int \frac {e^{-2 x} \left (e^{2 x} \left (-2 x+x^2\right ) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} \left (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x)\right )+e^{\frac {9+3 x}{2 \log (2-x)}} \left (e^x \left (9 x+3 x^2\right )+e^x \left (6 x-3 x^2\right ) \log (2-x)+e^x \left (4-6 x+2 x^2\right ) \log ^2(2-x)\right )\right )}{(-4+2 x) \log ^2(2-x)} \, dx=\text {Exception raised: RuntimeError} \end {dmath*}

input
integrate((((-4*x+8)*log(2-x)^2+(6*x-12)*log(2-x)-6*x-18)*exp(1/2*(3*x+9)/ 
log(2-x))^2+((2*x^2-6*x+4)*exp(x)*log(2-x)^2+(-3*x^2+6*x)*exp(x)*log(2-x)+ 
(3*x^2+9*x)*exp(x))*exp(1/2*(3*x+9)/log(2-x))+(x^2-2*x)*exp(x)^2*log(2-x)^ 
2)/(2*x-4)/exp(x)^2/log(2-x)^2,x, algorithm=\
 
output
Exception raised: RuntimeError >> ECL says: In function CAR, the value of 
the first argument is  0which is not of the expected type LIST
 
3.4.45.8 Giac [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 122 vs. \(2 (26) = 52\).

Time = 0.33 (sec) , antiderivative size = 122, normalized size of antiderivative = 3.49 \begin {dmath*} \int \frac {e^{-2 x} \left (e^{2 x} \left (-2 x+x^2\right ) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} \left (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x)\right )+e^{\frac {9+3 x}{2 \log (2-x)}} \left (e^x \left (9 x+3 x^2\right )+e^x \left (6 x-3 x^2\right ) \log (2-x)+e^x \left (4-6 x+2 x^2\right ) \log ^2(2-x)\right )\right )}{(-4+2 x) \log ^2(2-x)} \, dx=\frac {1}{4} \, {\left (x - 2\right )}^{2} - {\left (x - 2\right )} e^{\left (-\frac {2 \, {\left (x - 2\right )} \log \left (-x + 2\right ) - 3 \, x + 4 \, \log \left (-x + 2\right ) - 9}{2 \, \log \left (-x + 2\right )}\right )} + x - 2 \, e^{\left (-\frac {2 \, {\left (x - 2\right )} \log \left (-x + 2\right ) - 3 \, x + 4 \, \log \left (-x + 2\right ) - 9}{2 \, \log \left (-x + 2\right )}\right )} + e^{\left (-\frac {2 \, {\left (x - 2\right )} \log \left (-x + 2\right ) - 3 \, x + 4 \, \log \left (-x + 2\right ) - 9}{\log \left (-x + 2\right )}\right )} - 2 \end {dmath*}

input
integrate((((-4*x+8)*log(2-x)^2+(6*x-12)*log(2-x)-6*x-18)*exp(1/2*(3*x+9)/ 
log(2-x))^2+((2*x^2-6*x+4)*exp(x)*log(2-x)^2+(-3*x^2+6*x)*exp(x)*log(2-x)+ 
(3*x^2+9*x)*exp(x))*exp(1/2*(3*x+9)/log(2-x))+(x^2-2*x)*exp(x)^2*log(2-x)^ 
2)/(2*x-4)/exp(x)^2/log(2-x)^2,x, algorithm=\
 
output
1/4*(x - 2)^2 - (x - 2)*e^(-1/2*(2*(x - 2)*log(-x + 2) - 3*x + 4*log(-x + 
2) - 9)/log(-x + 2)) + x - 2*e^(-1/2*(2*(x - 2)*log(-x + 2) - 3*x + 4*log( 
-x + 2) - 9)/log(-x + 2)) + e^(-(2*(x - 2)*log(-x + 2) - 3*x + 4*log(-x + 
2) - 9)/log(-x + 2)) - 2
 
3.4.45.9 Mupad [F(-1)]

Timed out. \begin {dmath*} \int \frac {e^{-2 x} \left (e^{2 x} \left (-2 x+x^2\right ) \log ^2(2-x)+e^{\frac {9+3 x}{\log (2-x)}} \left (-18-6 x+(-12+6 x) \log (2-x)+(8-4 x) \log ^2(2-x)\right )+e^{\frac {9+3 x}{2 \log (2-x)}} \left (e^x \left (9 x+3 x^2\right )+e^x \left (6 x-3 x^2\right ) \log (2-x)+e^x \left (4-6 x+2 x^2\right ) \log ^2(2-x)\right )\right )}{(-4+2 x) \log ^2(2-x)} \, dx=-\int \frac {{\mathrm {e}}^{-2\,x}\,\left ({\mathrm {e}}^{\frac {2\,\left (\frac {3\,x}{2}+\frac {9}{2}\right )}{\ln \left (2-x\right )}}\,\left (\left (4\,x-8\right )\,{\ln \left (2-x\right )}^2+\left (12-6\,x\right )\,\ln \left (2-x\right )+6\,x+18\right )-{\mathrm {e}}^{\frac {\frac {3\,x}{2}+\frac {9}{2}}{\ln \left (2-x\right )}}\,\left ({\mathrm {e}}^x\,\left (2\,x^2-6\,x+4\right )\,{\ln \left (2-x\right )}^2+{\mathrm {e}}^x\,\left (6\,x-3\,x^2\right )\,\ln \left (2-x\right )+{\mathrm {e}}^x\,\left (3\,x^2+9\,x\right )\right )+{\mathrm {e}}^{2\,x}\,{\ln \left (2-x\right )}^2\,\left (2\,x-x^2\right )\right )}{{\ln \left (2-x\right )}^2\,\left (2\,x-4\right )} \,d x \end {dmath*}

input
int(-(exp(-2*x)*(exp((2*((3*x)/2 + 9/2))/log(2 - x))*(6*x - log(2 - x)*(6* 
x - 12) + log(2 - x)^2*(4*x - 8) + 18) - exp(((3*x)/2 + 9/2)/log(2 - x))*( 
exp(x)*(9*x + 3*x^2) + exp(x)*log(2 - x)*(6*x - 3*x^2) + exp(x)*log(2 - x) 
^2*(2*x^2 - 6*x + 4)) + exp(2*x)*log(2 - x)^2*(2*x - x^2)))/(log(2 - x)^2* 
(2*x - 4)),x)
 
output
-int((exp(-2*x)*(exp((2*((3*x)/2 + 9/2))/log(2 - x))*(6*x - log(2 - x)*(6* 
x - 12) + log(2 - x)^2*(4*x - 8) + 18) - exp(((3*x)/2 + 9/2)/log(2 - x))*( 
exp(x)*(9*x + 3*x^2) + exp(x)*log(2 - x)*(6*x - 3*x^2) + exp(x)*log(2 - x) 
^2*(2*x^2 - 6*x + 4)) + exp(2*x)*log(2 - x)^2*(2*x - x^2)))/(log(2 - x)^2* 
(2*x - 4)), x)