3.63.1 \(\int \frac {e^{\frac {1}{12} e^{-5+2 x}} (-2-\frac {1}{3} e^{-5+2 x} x \log (x))}{25 x-10 e^{\frac {1}{12} e^{-5+2 x}} x \log (x)+e^{\frac {1}{6} e^{-5+2 x}} x \log ^2(x)} \, dx\) [6201]

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

[Out]

2/(ln(x)*exp(exp(-ln(12)+2*x-5))-5)

________________________________________________________________________________________

Rubi [A]
time = 1.08, antiderivative size = 23, normalized size of antiderivative = 1.05, 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 = {6873, 6840, 32} \begin {gather*} -\frac {2}{5-e^{\frac {1}{12} e^{2 x-5}} \log (x)} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(E^(E^(-5 + 2*x)/12)*(-2 - (E^(-5 + 2*x)*x*Log[x])/3))/(25*x - 10*E^(E^(-5 + 2*x)/12)*x*Log[x] + E^(E^(-5
+ 2*x)/6)*x*Log[x]^2),x]

[Out]

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

Rule 32

Int[((a_.) + (b_.)*(x_))^(m_), x_Symbol] :> Simp[(a + b*x)^(m + 1)/(b*(m + 1)), x] /; FreeQ[{a, b, m}, x] && N
eQ[m, -1]

Rule 6840

Int[(u_)*((a_) + (b_.)*(v_)^(p_.)*(w_)^(p_.))^(m_.), x_Symbol] :> With[{c = Simplify[u/(w*D[v, x] + v*D[w, x])
]}, Dist[c, Subst[Int[(a + b*x^p)^m, x], x, v*w], x] /; FreeQ[c, x]] /; FreeQ[{a, b, m, p}, x] && IntegerQ[p]

Rule 6873

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

Rubi steps

\begin {gather*} \begin {aligned} \text {integral} &=\int \frac {e^{\frac {1}{12} e^{-5+2 x}} \left (-2-\frac {1}{3} e^{-5+2 x} x \log (x)\right )}{x \left (5-e^{\frac {1}{12} e^{-5+2 x}} \log (x)\right )^2} \, dx\\ &=-\left (2 \text {Subst}\left (\int \frac {1}{(5-x)^2} \, dx,x,e^{\frac {1}{12} e^{-5+2 x}} \log (x)\right )\right )\\ &=-\frac {2}{5-e^{\frac {1}{12} e^{-5+2 x}} \log (x)}\\ \end {aligned} \end {gather*}

________________________________________________________________________________________

Mathematica [A]
time = 0.12, size = 23, normalized size = 1.05 \begin {gather*} -\frac {2}{5-e^{\frac {1}{12} e^{-5+2 x}} \log (x)} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(E^(E^(-5 + 2*x)/12)*(-2 - (E^(-5 + 2*x)*x*Log[x])/3))/(25*x - 10*E^(E^(-5 + 2*x)/12)*x*Log[x] + E^(
E^(-5 + 2*x)/6)*x*Log[x]^2),x]

[Out]

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

________________________________________________________________________________________

Maple [A]
time = 0.04, size = 19, normalized size = 0.86

method	result	size
risch	\(\frac {2}{\ln \left (x \right ) {\mathrm e}^{\frac {{\mathrm e}^{2 x -5}}{12}}-5}\)	\(19\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((-4*x*exp(-ln(12)+2*x-5)*ln(x)-2)*exp(exp(-ln(12)+2*x-5))/(x*ln(x)^2*exp(exp(-ln(12)+2*x-5))^2-10*x*ln(x)*
exp(exp(-ln(12)+2*x-5))+25*x),x,method=_RETURNVERBOSE)

[Out]

2/(ln(x)*exp(1/12*exp(2*x-5))-5)

________________________________________________________________________________________

Maxima [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Failed to integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

Fricas [A]
time = 0.38, size = 20, normalized size = 0.91 \begin {gather*} \frac {2}{e^{\left (e^{\left (2 \, x - \log \left (12\right ) - 5\right )}\right )} \log \left (x\right ) - 5} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

2/(e^(e^(2*x - log(12) - 5))*log(x) - 5)

________________________________________________________________________________________

Sympy [A]
time = 0.09, size = 15, normalized size = 0.68 \begin {gather*} \frac {2}{e^{\frac {e^{2 x - 5}}{12}} \log {\left (x \right )} - 5} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-4*x*exp(-ln(12)+2*x-5)*ln(x)-2)*exp(exp(-ln(12)+2*x-5))/(x*ln(x)**2*exp(exp(-ln(12)+2*x-5))**2-10*
x*ln(x)*exp(exp(-ln(12)+2*x-5))+25*x),x)

[Out]

2/(exp(exp(2*x - 5)/12)*log(x) - 5)

________________________________________________________________________________________

Giac [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

Mupad [B]
time = 4.16, size = 18, normalized size = 0.82 \begin {gather*} \frac {2}{{\mathrm {e}}^{\frac {{\mathrm {e}}^{2\,x}\,{\mathrm {e}}^{-5}}{12}}\,\ln \left (x\right )-5} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(-(exp(exp(2*x - log(12) - 5))*(4*x*exp(2*x - log(12) - 5)*log(x) + 2))/(25*x + x*exp(2*exp(2*x - log(12) -
5))*log(x)^2 - 10*x*exp(exp(2*x - log(12) - 5))*log(x)),x)

[Out]

2/(exp((exp(2*x)*exp(-5))/12)*log(x) - 5)

________________________________________________________________________________________