3.8.87 \(\int \frac {e^{\frac {2 (4-x^3 \log (-e^x-x+\log (-15+5 x)))}{\log (-e^x-x+\log (-15+5 x))}} (-32+8 x+e^x (-24+8 x)+(-18 x^3+6 x^4+e^x (-18 x^2+6 x^3)+(18 x^2-6 x^3) \log (-15+5 x)) \log ^2(-e^x-x+\log (-15+5 x)))}{(e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)) \log ^2(-e^x-x+\log (-15+5 x))} \, dx\) [787]

3.8.87.1 Optimal result
3.8.87.2 Mathematica [A] (verified)
3.8.87.3 Rubi [A] (verified)
3.8.87.4 Maple [A] (verified)
3.8.87.5 Fricas [A] (verification not implemented)
3.8.87.6 Sympy [F(-1)]
3.8.87.7 Maxima [F]
3.8.87.8 Giac [A] (verification not implemented)
3.8.87.9 Mupad [B] (verification not implemented)

3.8.87.1 Optimal result

Integrand size = 171, antiderivative size = 30 \[ \int \frac {e^{\frac {2 \left (4-x^3 \log \left (-e^x-x+\log (-15+5 x)\right )\right )}{\log \left (-e^x-x+\log (-15+5 x)\right )}} \left (-32+8 x+e^x (-24+8 x)+\left (-18 x^3+6 x^4+e^x \left (-18 x^2+6 x^3\right )+\left (18 x^2-6 x^3\right ) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )\right )}{\left (e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )} \, dx=2+e^{-2 x^3+\frac {8}{\log \left (-e^x-x+\log (5 (-3+x))\right )}} \]

output
2+exp(4/ln(ln(5*x-15)-exp(x)-x)-x^3)^2
 
3.8.87.2 Mathematica [A] (verified)

Time = 0.18 (sec) , antiderivative size = 28, normalized size of antiderivative = 0.93 \[ \int \frac {e^{\frac {2 \left (4-x^3 \log \left (-e^x-x+\log (-15+5 x)\right )\right )}{\log \left (-e^x-x+\log (-15+5 x)\right )}} \left (-32+8 x+e^x (-24+8 x)+\left (-18 x^3+6 x^4+e^x \left (-18 x^2+6 x^3\right )+\left (18 x^2-6 x^3\right ) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )\right )}{\left (e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )} \, dx=e^{-2 x^3+\frac {8}{\log \left (-e^x-x+\log (5 (-3+x))\right )}} \]

input
Integrate[(E^((2*(4 - x^3*Log[-E^x - x + Log[-15 + 5*x]]))/Log[-E^x - x + 
Log[-15 + 5*x]])*(-32 + 8*x + E^x*(-24 + 8*x) + (-18*x^3 + 6*x^4 + E^x*(-1 
8*x^2 + 6*x^3) + (18*x^2 - 6*x^3)*Log[-15 + 5*x])*Log[-E^x - x + Log[-15 + 
 5*x]]^2))/((E^x*(3 - x) + 3*x - x^2 + (-3 + x)*Log[-15 + 5*x])*Log[-E^x - 
 x + Log[-15 + 5*x]]^2),x]
 
output
E^(-2*x^3 + 8/Log[-E^x - x + Log[5*(-3 + x)]])
 
3.8.87.3 Rubi [A] (verified)

Time = 2.15 (sec) , antiderivative size = 30, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 4, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.023, Rules used = {7239, 27, 25, 7257}

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 {\left (\left (6 x^4-18 x^3+e^x \left (6 x^3-18 x^2\right )+\left (18 x^2-6 x^3\right ) \log (5 x-15)\right ) \log ^2\left (-x-e^x+\log (5 x-15)\right )+8 x+e^x (8 x-24)-32\right ) \exp \left (\frac {2 \left (4-x^3 \log \left (-x-e^x+\log (5 x-15)\right )\right )}{\log \left (-x-e^x+\log (5 x-15)\right )}\right )}{\left (-x^2+3 x+e^x (3-x)+(x-3) \log (5 x-15)\right ) \log ^2\left (-x-e^x+\log (5 x-15)\right )} \, dx\)

\(\Big \downarrow \) 7239

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

\(\Big \downarrow \) 27

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

\(\Big \downarrow \) 25

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

\(\Big \downarrow \) 7257

\(\displaystyle \exp \left (\frac {8}{\log \left (-x-e^x+\log (-5 (3-x))\right )}-2 x^3\right )\)

input
Int[(E^((2*(4 - x^3*Log[-E^x - x + Log[-15 + 5*x]]))/Log[-E^x - x + Log[-1 
5 + 5*x]])*(-32 + 8*x + E^x*(-24 + 8*x) + (-18*x^3 + 6*x^4 + E^x*(-18*x^2 
+ 6*x^3) + (18*x^2 - 6*x^3)*Log[-15 + 5*x])*Log[-E^x - x + Log[-15 + 5*x]] 
^2))/((E^x*(3 - x) + 3*x - x^2 + (-3 + x)*Log[-15 + 5*x])*Log[-E^x - x + L 
og[-15 + 5*x]]^2),x]
 
output
E^(-2*x^3 + 8/Log[-E^x - x + Log[-5*(3 - x)]])
 

3.8.87.3.1 Defintions of rubi rules used

rule 25
Int[-(Fx_), x_Symbol] :> Simp[Identity[-1]   Int[Fx, x], x]
 

rule 27
Int[(a_)*(Fx_), x_Symbol] :> Simp[a   Int[Fx, x], x] /; FreeQ[a, x] &&  !Ma 
tchQ[Fx, (b_)*(Gx_) /; FreeQ[b, x]]
 

rule 7239
Int[u_, x_Symbol] :> With[{v = SimplifyIntegrand[u, x]}, Int[v, x] /; Simpl 
erIntegrandQ[v, u, x]]
 

rule 7257
Int[(F_)^(v_)*(u_), x_Symbol] :> With[{q = DerivativeDivides[v, u, x]}, Sim 
p[q*(F^v/Log[F]), x] /;  !FalseQ[q]] /; FreeQ[F, x]
 
3.8.87.4 Maple [A] (verified)

Time = 0.04 (sec) , antiderivative size = 42, normalized size of antiderivative = 1.40

\[{\mathrm e}^{-\frac {2 \left (x^{3} \ln \left (\ln \left (5 x -15\right )-{\mathrm e}^{x}-x \right )-4\right )}{\ln \left (\ln \left (5 x -15\right )-{\mathrm e}^{x}-x \right )}}\]

input
int((((-6*x^3+18*x^2)*ln(5*x-15)+(6*x^3-18*x^2)*exp(x)+6*x^4-18*x^3)*ln(ln 
(5*x-15)-exp(x)-x)^2+(8*x-24)*exp(x)+8*x-32)*exp((-x^3*ln(ln(5*x-15)-exp(x 
)-x)+4)/ln(ln(5*x-15)-exp(x)-x))^2/((-3+x)*ln(5*x-15)+(-x+3)*exp(x)-x^2+3* 
x)/ln(ln(5*x-15)-exp(x)-x)^2,x)
 
output
exp(-2*(x^3*ln(ln(5*x-15)-exp(x)-x)-4)/ln(ln(5*x-15)-exp(x)-x))
 
3.8.87.5 Fricas [A] (verification not implemented)

Time = 0.26 (sec) , antiderivative size = 41, normalized size of antiderivative = 1.37 \[ \int \frac {e^{\frac {2 \left (4-x^3 \log \left (-e^x-x+\log (-15+5 x)\right )\right )}{\log \left (-e^x-x+\log (-15+5 x)\right )}} \left (-32+8 x+e^x (-24+8 x)+\left (-18 x^3+6 x^4+e^x \left (-18 x^2+6 x^3\right )+\left (18 x^2-6 x^3\right ) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )\right )}{\left (e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )} \, dx=e^{\left (-\frac {2 \, {\left (x^{3} \log \left (-x - e^{x} + \log \left (5 \, x - 15\right )\right ) - 4\right )}}{\log \left (-x - e^{x} + \log \left (5 \, x - 15\right )\right )}\right )} \]

input
integrate((((-6*x^3+18*x^2)*log(5*x-15)+(6*x^3-18*x^2)*exp(x)+6*x^4-18*x^3 
)*log(log(5*x-15)-exp(x)-x)^2+(8*x-24)*exp(x)+8*x-32)*exp((-x^3*log(log(5* 
x-15)-exp(x)-x)+4)/log(log(5*x-15)-exp(x)-x))^2/((-3+x)*log(5*x-15)+(-x+3) 
*exp(x)-x^2+3*x)/log(log(5*x-15)-exp(x)-x)^2,x, algorithm=\
 
output
e^(-2*(x^3*log(-x - e^x + log(5*x - 15)) - 4)/log(-x - e^x + log(5*x - 15) 
))
 
3.8.87.6 Sympy [F(-1)]

Timed out. \[ \int \frac {e^{\frac {2 \left (4-x^3 \log \left (-e^x-x+\log (-15+5 x)\right )\right )}{\log \left (-e^x-x+\log (-15+5 x)\right )}} \left (-32+8 x+e^x (-24+8 x)+\left (-18 x^3+6 x^4+e^x \left (-18 x^2+6 x^3\right )+\left (18 x^2-6 x^3\right ) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )\right )}{\left (e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )} \, dx=\text {Timed out} \]

input
integrate((((-6*x**3+18*x**2)*ln(5*x-15)+(6*x**3-18*x**2)*exp(x)+6*x**4-18 
*x**3)*ln(ln(5*x-15)-exp(x)-x)**2+(8*x-24)*exp(x)+8*x-32)*exp((-x**3*ln(ln 
(5*x-15)-exp(x)-x)+4)/ln(ln(5*x-15)-exp(x)-x))**2/((-3+x)*ln(5*x-15)+(-x+3 
)*exp(x)-x**2+3*x)/ln(ln(5*x-15)-exp(x)-x)**2,x)
 
output
Timed out
 
3.8.87.7 Maxima [F]

\[ \int \frac {e^{\frac {2 \left (4-x^3 \log \left (-e^x-x+\log (-15+5 x)\right )\right )}{\log \left (-e^x-x+\log (-15+5 x)\right )}} \left (-32+8 x+e^x (-24+8 x)+\left (-18 x^3+6 x^4+e^x \left (-18 x^2+6 x^3\right )+\left (18 x^2-6 x^3\right ) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )\right )}{\left (e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )} \, dx=\int { -\frac {2 \, {\left (3 \, {\left (x^{4} - 3 \, x^{3} + {\left (x^{3} - 3 \, x^{2}\right )} e^{x} - {\left (x^{3} - 3 \, x^{2}\right )} \log \left (5 \, x - 15\right )\right )} \log \left (-x - e^{x} + \log \left (5 \, x - 15\right )\right )^{2} + 4 \, {\left (x - 3\right )} e^{x} + 4 \, x - 16\right )} e^{\left (-\frac {2 \, {\left (x^{3} \log \left (-x - e^{x} + \log \left (5 \, x - 15\right )\right ) - 4\right )}}{\log \left (-x - e^{x} + \log \left (5 \, x - 15\right )\right )}\right )}}{{\left (x^{2} + {\left (x - 3\right )} e^{x} - {\left (x - 3\right )} \log \left (5 \, x - 15\right ) - 3 \, x\right )} \log \left (-x - e^{x} + \log \left (5 \, x - 15\right )\right )^{2}} \,d x } \]

input
integrate((((-6*x^3+18*x^2)*log(5*x-15)+(6*x^3-18*x^2)*exp(x)+6*x^4-18*x^3 
)*log(log(5*x-15)-exp(x)-x)^2+(8*x-24)*exp(x)+8*x-32)*exp((-x^3*log(log(5* 
x-15)-exp(x)-x)+4)/log(log(5*x-15)-exp(x)-x))^2/((-3+x)*log(5*x-15)+(-x+3) 
*exp(x)-x^2+3*x)/log(log(5*x-15)-exp(x)-x)^2,x, algorithm=\
 
output
x*e^(-2*x^3 + x + 8/log(-x - e^x + log(5) + log(x - 3)))/((x - 3)*e^x + x 
- 4) + x*e^(-2*x^3 + 8/log(-x - e^x + log(5) + log(x - 3)))/((x - 3)*e^x + 
 x - 4) - 3*e^(-2*x^3 + x + 8/log(-x - e^x + log(5) + log(x - 3)))/((x - 3 
)*e^x + x - 4) - 4*e^(-2*x^3 + 8/log(-x - e^x + log(5) + log(x - 3)))/((x 
- 3)*e^x + x - 4) - 6*integrate(x^2*e^(-2*x^3 + 8/log(-x - e^x + log(5) + 
log(x - 3))), x)
 
3.8.87.8 Giac [A] (verification not implemented)

Time = 13.51 (sec) , antiderivative size = 26, normalized size of antiderivative = 0.87 \[ \int \frac {e^{\frac {2 \left (4-x^3 \log \left (-e^x-x+\log (-15+5 x)\right )\right )}{\log \left (-e^x-x+\log (-15+5 x)\right )}} \left (-32+8 x+e^x (-24+8 x)+\left (-18 x^3+6 x^4+e^x \left (-18 x^2+6 x^3\right )+\left (18 x^2-6 x^3\right ) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )\right )}{\left (e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )} \, dx=e^{\left (-2 \, x^{3} + \frac {8}{\log \left (-x - e^{x} + \log \left (5 \, x - 15\right )\right )}\right )} \]

input
integrate((((-6*x^3+18*x^2)*log(5*x-15)+(6*x^3-18*x^2)*exp(x)+6*x^4-18*x^3 
)*log(log(5*x-15)-exp(x)-x)^2+(8*x-24)*exp(x)+8*x-32)*exp((-x^3*log(log(5* 
x-15)-exp(x)-x)+4)/log(log(5*x-15)-exp(x)-x))^2/((-3+x)*log(5*x-15)+(-x+3) 
*exp(x)-x^2+3*x)/log(log(5*x-15)-exp(x)-x)^2,x, algorithm=\
 
output
e^(-2*x^3 + 8/log(-x - e^x + log(5*x - 15)))
 
3.8.87.9 Mupad [B] (verification not implemented)

Time = 8.14 (sec) , antiderivative size = 27, normalized size of antiderivative = 0.90 \[ \int \frac {e^{\frac {2 \left (4-x^3 \log \left (-e^x-x+\log (-15+5 x)\right )\right )}{\log \left (-e^x-x+\log (-15+5 x)\right )}} \left (-32+8 x+e^x (-24+8 x)+\left (-18 x^3+6 x^4+e^x \left (-18 x^2+6 x^3\right )+\left (18 x^2-6 x^3\right ) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )\right )}{\left (e^x (3-x)+3 x-x^2+(-3+x) \log (-15+5 x)\right ) \log ^2\left (-e^x-x+\log (-15+5 x)\right )} \, dx={\mathrm {e}}^{-2\,x^3}\,{\mathrm {e}}^{\frac {8}{\ln \left (\ln \left (5\,x-15\right )-x-{\mathrm {e}}^x\right )}} \]

input
int((exp(-(2*(x^3*log(log(5*x - 15) - x - exp(x)) - 4))/log(log(5*x - 15) 
- x - exp(x)))*(8*x + exp(x)*(8*x - 24) - log(log(5*x - 15) - x - exp(x))^ 
2*(exp(x)*(18*x^2 - 6*x^3) - log(5*x - 15)*(18*x^2 - 6*x^3) + 18*x^3 - 6*x 
^4) - 32))/(log(log(5*x - 15) - x - exp(x))^2*(3*x - exp(x)*(x - 3) - x^2 
+ log(5*x - 15)*(x - 3))),x)
 
output
exp(-2*x^3)*exp(8/log(log(5*x - 15) - x - exp(x)))