3.94.85 \(\int \frac {e^{4+2 e^{-\frac {1}{-4+x}}+16 \log ^2(x)} (-32+16 x+2 e^{-\frac {1}{-4+x}} x-2 x^2+(512-256 x+32 x^2) \log (x))}{16 x^3-8 x^4+x^5} \, dx\)

Optimal. Leaf size=27 \[ -5+\frac {e^{4+2 e^{\frac {1}{4-x}}+16 \log ^2(x)}}{x^2} \]

________________________________________________________________________________________

Rubi [B]  time = 1.14, antiderivative size = 83, normalized size of antiderivative = 3.07, number of steps used = 3, number of rules used = 3, integrand size = 73, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.041, Rules used = {1594, 27, 2288} \begin {gather*} \frac {e^{2 e^{\frac {1}{4-x}}+16 \log ^2(x)+4} \left (16 \left (x^2-8 x+16\right ) \log (x)+e^{\frac {1}{4-x}} x\right )}{(4-x)^2 x^3 \left (\frac {e^{\frac {1}{4-x}}}{(4-x)^2}+\frac {16 \log (x)}{x}\right )} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(E^(4 + 2/E^(-4 + x)^(-1) + 16*Log[x]^2)*(-32 + 16*x + (2*x)/E^(-4 + x)^(-1) - 2*x^2 + (512 - 256*x + 32*x
^2)*Log[x]))/(16*x^3 - 8*x^4 + x^5),x]

[Out]

(E^(4 + 2*E^(4 - x)^(-1) + 16*Log[x]^2)*(E^(4 - x)^(-1)*x + 16*(16 - 8*x + x^2)*Log[x]))/((4 - x)^2*x^3*(E^(4
- x)^(-1)/(4 - x)^2 + (16*Log[x])/x))

Rule 27

Int[(u_.)*((a_) + (b_.)*(x_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :> Int[u*Cancel[(b/2 + c*x)^(2*p)/c^p], x] /; Fr
eeQ[{a, b, c}, x] && EqQ[b^2 - 4*a*c, 0] && IntegerQ[p]

Rule 1594

Int[(u_.)*((a_.)*(x_)^(p_.) + (b_.)*(x_)^(q_.) + (c_.)*(x_)^(r_.))^(n_.), x_Symbol] :> Int[u*x^(n*p)*(a + b*x^
(q - p) + c*x^(r - p))^n, x] /; FreeQ[{a, b, c, p, q, r}, x] && IntegerQ[n] && PosQ[q - p] && PosQ[r - p]

Rule 2288

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]

Rubi steps

\begin {gather*} \begin {aligned} \text {integral} &=\int \frac {e^{4+2 e^{-\frac {1}{-4+x}}+16 \log ^2(x)} \left (-32+16 x+2 e^{-\frac {1}{-4+x}} x-2 x^2+\left (512-256 x+32 x^2\right ) \log (x)\right )}{x^3 \left (16-8 x+x^2\right )} \, dx\\ &=\int \frac {e^{4+2 e^{-\frac {1}{-4+x}}+16 \log ^2(x)} \left (-32+16 x+2 e^{-\frac {1}{-4+x}} x-2 x^2+\left (512-256 x+32 x^2\right ) \log (x)\right )}{(-4+x)^2 x^3} \, dx\\ &=\frac {e^{4+2 e^{\frac {1}{4-x}}+16 \log ^2(x)} \left (e^{\frac {1}{4-x}} x+16 \left (16-8 x+x^2\right ) \log (x)\right )}{(4-x)^2 x^3 \left (\frac {e^{\frac {1}{4-x}}}{(4-x)^2}+\frac {16 \log (x)}{x}\right )}\\ \end {aligned} \end {gather*}

________________________________________________________________________________________

Mathematica [A]  time = 1.07, size = 25, normalized size = 0.93 \begin {gather*} \frac {e^{4+2 e^{-\frac {1}{-4+x}}+16 \log ^2(x)}}{x^2} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(E^(4 + 2/E^(-4 + x)^(-1) + 16*Log[x]^2)*(-32 + 16*x + (2*x)/E^(-4 + x)^(-1) - 2*x^2 + (512 - 256*x
+ 32*x^2)*Log[x]))/(16*x^3 - 8*x^4 + x^5),x]

[Out]

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

________________________________________________________________________________________

fricas [A]  time = 0.81, size = 23, normalized size = 0.85 \begin {gather*} \frac {e^{\left (16 \, \log \relax (x)^{2} + 2 \, e^{\left (-\frac {1}{x - 4}\right )} + 4\right )}}{x^{2}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((32*x^2-256*x+512)*log(x)+2*x*exp(-1/(x-4))-2*x^2+16*x-32)*exp(exp(-1/(x-4))+2)^2*exp(4*log(x)^2)^4
/(x^5-8*x^4+16*x^3),x, algorithm="fricas")

[Out]

e^(16*log(x)^2 + 2*e^(-1/(x - 4)) + 4)/x^2

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int -\frac {2 \, {\left (x^{2} - x e^{\left (-\frac {1}{x - 4}\right )} - 16 \, {\left (x^{2} - 8 \, x + 16\right )} \log \relax (x) - 8 \, x + 16\right )} e^{\left (16 \, \log \relax (x)^{2} + 2 \, e^{\left (-\frac {1}{x - 4}\right )} + 4\right )}}{x^{5} - 8 \, x^{4} + 16 \, x^{3}}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((32*x^2-256*x+512)*log(x)+2*x*exp(-1/(x-4))-2*x^2+16*x-32)*exp(exp(-1/(x-4))+2)^2*exp(4*log(x)^2)^4
/(x^5-8*x^4+16*x^3),x, algorithm="giac")

[Out]

integrate(-2*(x^2 - x*e^(-1/(x - 4)) - 16*(x^2 - 8*x + 16)*log(x) - 8*x + 16)*e^(16*log(x)^2 + 2*e^(-1/(x - 4)
) + 4)/(x^5 - 8*x^4 + 16*x^3), x)

________________________________________________________________________________________

maple [A]  time = 0.06, size = 24, normalized size = 0.89

method	result	size
risch	\(\frac {{\mathrm e}^{2 \,{\mathrm e}^{-\frac {1}{x -4}}+4+16 \ln \relax (x )^{2}}}{x^{2}}\)	\(24\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(((32*x^2-256*x+512)*ln(x)+2*x*exp(-1/(x-4))-2*x^2+16*x-32)*exp(exp(-1/(x-4))+2)^2*exp(4*ln(x)^2)^4/(x^5-8*
x^4+16*x^3),x,method=_RETURNVERBOSE)

[Out]

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

________________________________________________________________________________________

maxima [A]  time = 0.42, size = 23, normalized size = 0.85 \begin {gather*} \frac {e^{\left (16 \, \log \relax (x)^{2} + 2 \, e^{\left (-\frac {1}{x - 4}\right )} + 4\right )}}{x^{2}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((32*x^2-256*x+512)*log(x)+2*x*exp(-1/(x-4))-2*x^2+16*x-32)*exp(exp(-1/(x-4))+2)^2*exp(4*log(x)^2)^4
/(x^5-8*x^4+16*x^3),x, algorithm="maxima")

[Out]

e^(16*log(x)^2 + 2*e^(-1/(x - 4)) + 4)/x^2

________________________________________________________________________________________

mupad [B]  time = 7.54, size = 24, normalized size = 0.89 \begin {gather*} \frac {{\mathrm {e}}^{16\,{\ln \relax (x)}^2}\,{\mathrm {e}}^4\,{\mathrm {e}}^{2\,{\mathrm {e}}^{-\frac {1}{x-4}}}}{x^2} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((exp(16*log(x)^2)*exp(2*exp(-1/(x - 4)) + 4)*(16*x + log(x)*(32*x^2 - 256*x + 512) + 2*x*exp(-1/(x - 4)) -
2*x^2 - 32))/(16*x^3 - 8*x^4 + x^5),x)

[Out]

(exp(16*log(x)^2)*exp(4)*exp(2*exp(-1/(x - 4))))/x^2

________________________________________________________________________________________

sympy [A]  time = 1.09, size = 22, normalized size = 0.81 \begin {gather*} \frac {e^{4 + 2 e^{- \frac {1}{x - 4}}} e^{16 \log {\relax (x )}^{2}}}{x^{2}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((32*x**2-256*x+512)*ln(x)+2*x*exp(-1/(x-4))-2*x**2+16*x-32)*exp(exp(-1/(x-4))+2)**2*exp(4*ln(x)**2)
**4/(x**5-8*x**4+16*x**3),x)

[Out]

exp(4 + 2*exp(-1/(x - 4)))*exp(16*log(x)**2)/x**2

________________________________________________________________________________________