\(\int \frac {e^{-1+e^{x^2}} (-10+e^{x^2} (40 x-20 x^2+e^x (8 x-4 x^2)))+e^{-1+e^{x^2}+x^2} (10 x+2 e^x x) \log (25+10 e^x+e^{2 x})}{5+e^x} \, dx\) [458]

Optimal result

Integrand size = 85, antiderivative size = 23 \[ \int \frac {e^{-1+e^{x^2}} \left (-10+e^{x^2} \left (40 x-20 x^2+e^x \left (8 x-4 x^2\right )\right )\right )+e^{-1+e^{x^2}+x^2} \left (10 x+2 e^x x\right ) \log \left (25+10 e^x+e^{2 x}\right )}{5+e^x} \, dx=e^{-1+e^{x^2}} \left (4-2 x+\log \left (\left (5+e^x\right )^2\right )\right ) \]

[Out]

exp(exp(x^2)-1)*(ln((exp(x)+5)^2)-2*x+4)

Rubi [B] (verified)

Leaf count is larger than twice the leaf count of optimal. \(74\) vs. \(2(23)=46\).

Time = 0.38 (sec) , antiderivative size = 74, normalized size of antiderivative = 3.22, number of steps used = 3, number of rules used = 3, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.035, Rules used = {6820, 12, 2326} \[ \int \frac {e^{-1+e^{x^2}} \left (-10+e^{x^2} \left (40 x-20 x^2+e^x \left (8 x-4 x^2\right )\right )\right )+e^{-1+e^{x^2}+x^2} \left (10 x+2 e^x x\right ) \log \left (25+10 e^x+e^{2 x}\right )}{5+e^x} \, dx=\frac {e^{-x^2+e^{x^2}-1} \left (10 e^{x^2} (2-x) x+2 e^{x^2+x} (2-x) x+e^{x^2} \left (e^x+5\right ) x \log \left (\left (e^x+5\right )^2\right )\right )}{\left (e^x+5\right ) x} \]

[In]

Int[(E^(-1 + E^x^2)*(-10 + E^x^2*(40*x - 20*x^2 + E^x*(8*x - 4*x^2))) + E^(-1 + E^x^2 + x^2)*(10*x + 2*E^x*x)*
Log[25 + 10*E^x + E^(2*x)])/(5 + E^x),x]

[Out]

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

Rule 12

Int[(a_)*(u_), x_Symbol] :> Dist[a, Int[u, x], x] /; FreeQ[a, x] &&  !MatchQ[u, (b_)*(v_) /; FreeQ[b, x]]

Rule 2326

Int[(y_.)*(F_)^(u_)*((v_) + (w_)), x_Symbol] :> With[{z = v*(y/(Log[F]*D[u, x]))}, Simp[F^u*z, x] /; EqQ[D[z,
x], w*y]] /; FreeQ[F, x]

Rule 6820

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

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

Mathematica [A] (verified)

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

[In]

Integrate[(E^(-1 + E^x^2)*(-10 + E^x^2*(40*x - 20*x^2 + E^x*(8*x - 4*x^2))) + E^(-1 + E^x^2 + x^2)*(10*x + 2*E
^x*x)*Log[25 + 10*E^x + E^(2*x)])/(5 + E^x),x]

[Out]

E^(-1 + E^x^2)*(4 - 2*x + Log[(5 + E^x)^2])

Maple [A] (verified)

Time = 0.36 (sec) , antiderivative size = 40, normalized size of antiderivative = 1.74

method	result	size
parallelrisch	\(-2 \,{\mathrm e}^{{\mathrm e}^{x^{2}}-1} x +\ln \left ({\mathrm e}^{2 x}+10 \,{\mathrm e}^{x}+25\right ) {\mathrm e}^{{\mathrm e}^{x^{2}}-1}+4 \,{\mathrm e}^{{\mathrm e}^{x^{2}}-1}\)	\(40\)
risch	\(2 \,{\mathrm e}^{{\mathrm e}^{x^{2}}-1} \ln \left ({\mathrm e}^{x}+5\right )-\frac {\left (i \pi {\operatorname {csgn}\left (i \left ({\mathrm e}^{x}+5\right )\right )}^{2} \operatorname {csgn}\left (i \left ({\mathrm e}^{x}+5\right )^{2}\right )-2 i \pi \,\operatorname {csgn}\left (i \left ({\mathrm e}^{x}+5\right )\right ) {\operatorname {csgn}\left (i \left ({\mathrm e}^{x}+5\right )^{2}\right )}^{2}+i \pi {\operatorname {csgn}\left (i \left ({\mathrm e}^{x}+5\right )^{2}\right )}^{3}+4 x -8\right ) {\mathrm e}^{{\mathrm e}^{x^{2}}-1}}{2}\)	\(94\)

[In]

int(((2*exp(x)*x+10*x)*exp(x^2)*exp(exp(x^2)-1)*ln(exp(x)^2+10*exp(x)+25)+(((-4*x^2+8*x)*exp(x)-20*x^2+40*x)*e
xp(x^2)-10)*exp(exp(x^2)-1))/(exp(x)+5),x,method=_RETURNVERBOSE)

[Out]

-2*exp(exp(x^2)-1)*x+ln(exp(x)^2+10*exp(x)+25)*exp(exp(x^2)-1)+4*exp(exp(x^2)-1)

Fricas [B] (verification not implemented)

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

Time = 0.25 (sec) , antiderivative size = 47, normalized size of antiderivative = 2.04 \[ \int \frac {e^{-1+e^{x^2}} \left (-10+e^{x^2} \left (40 x-20 x^2+e^x \left (8 x-4 x^2\right )\right )\right )+e^{-1+e^{x^2}+x^2} \left (10 x+2 e^x x\right ) \log \left (25+10 e^x+e^{2 x}\right )}{5+e^x} \, dx=-{\left (2 \, {\left (x - 2\right )} e^{\left (x^{2} + e^{\left (x^{2}\right )} - 1\right )} - e^{\left (x^{2} + e^{\left (x^{2}\right )} - 1\right )} \log \left (e^{\left (2 \, x\right )} + 10 \, e^{x} + 25\right )\right )} e^{\left (-x^{2}\right )} \]

[In]

integrate(((2*exp(x)*x+10*x)*exp(x^2)*exp(exp(x^2)-1)*log(exp(x)^2+10*exp(x)+25)+(((-4*x^2+8*x)*exp(x)-20*x^2+
40*x)*exp(x^2)-10)*exp(exp(x^2)-1))/(exp(x)+5),x, algorithm="fricas")

[Out]

-(2*(x - 2)*e^(x^2 + e^(x^2) - 1) - e^(x^2 + e^(x^2) - 1)*log(e^(2*x) + 10*e^x + 25))*e^(-x^2)

Sympy [F(-1)]

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

[In]

integrate(((2*exp(x)*x+10*x)*exp(x**2)*exp(exp(x**2)-1)*ln(exp(x)**2+10*exp(x)+25)+(((-4*x**2+8*x)*exp(x)-20*x
**2+40*x)*exp(x**2)-10)*exp(exp(x**2)-1))/(exp(x)+5),x)

[Out]

Timed out

Maxima [A] (verification not implemented)

none

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

[In]

integrate(((2*exp(x)*x+10*x)*exp(x^2)*exp(exp(x^2)-1)*log(exp(x)^2+10*exp(x)+25)+(((-4*x^2+8*x)*exp(x)-20*x^2+
40*x)*exp(x^2)-10)*exp(exp(x^2)-1))/(exp(x)+5),x, algorithm="maxima")

[Out]

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

Giac [F]

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

[In]

integrate(((2*exp(x)*x+10*x)*exp(x^2)*exp(exp(x^2)-1)*log(exp(x)^2+10*exp(x)+25)+(((-4*x^2+8*x)*exp(x)-20*x^2+
40*x)*exp(x^2)-10)*exp(exp(x^2)-1))/(exp(x)+5),x, algorithm="giac")

[Out]

integrate(2*((x*e^x + 5*x)*e^(x^2 + e^(x^2) - 1)*log(e^(2*x) + 10*e^x + 25) - (2*(5*x^2 + (x^2 - 2*x)*e^x - 10
*x)*e^(x^2) + 5)*e^(e^(x^2) - 1))/(e^x + 5), x)

Mupad [B] (verification not implemented)

Time = 8.42 (sec) , antiderivative size = 24, normalized size of antiderivative = 1.04 \[ \int \frac {e^{-1+e^{x^2}} \left (-10+e^{x^2} \left (40 x-20 x^2+e^x \left (8 x-4 x^2\right )\right )\right )+e^{-1+e^{x^2}+x^2} \left (10 x+2 e^x x\right ) \log \left (25+10 e^x+e^{2 x}\right )}{5+e^x} \, dx={\mathrm {e}}^{{\mathrm {e}}^{x^2}-1}\,\left (\ln \left ({\mathrm {e}}^{2\,x}+10\,{\mathrm {e}}^x+25\right )-2\,x+4\right ) \]

[In]

int((exp(exp(x^2) - 1)*(exp(x^2)*(40*x + exp(x)*(8*x - 4*x^2) - 20*x^2) - 10) + log(exp(2*x) + 10*exp(x) + 25)
*exp(exp(x^2) - 1)*exp(x^2)*(10*x + 2*x*exp(x)))/(exp(x) + 5),x)

[Out]

exp(exp(x^2) - 1)*(log(exp(2*x) + 10*exp(x) + 25) - 2*x + 4)