\(\int \frac {e^{\frac {1}{3} (5-\log (6 x^2-x^3))} (-4+x)-18 x+3 x^2+(6 x-x^2) \log (20)}{-6 x+x^2} \, dx\) [4603]

Optimal result

Integrand size = 57, antiderivative size = 31 \[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=-e^{\frac {1}{3} \left (5-\log \left ((6-x) x^2\right )\right )}+3 x-x \log (20) \]

[Out]

3*x-exp(5/3-1/3*ln(x^2*(6-x)))-x*ln(20)

Rubi [A] (verified)

Time = 0.63 (sec) , antiderivative size = 31, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.053, Rules used = {1607, 6874, 1602} \[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=x (3-\log (20))-\frac {e^{5/3}}{\sqrt [3]{6 x^2-x^3}} \]

[In]

Int[(E^((5 - Log[6*x^2 - x^3])/3)*(-4 + x) - 18*x + 3*x^2 + (6*x - x^2)*Log[20])/(-6*x + x^2),x]

[Out]

-(E^(5/3)/(6*x^2 - x^3)^(1/3)) + x*(3 - Log[20])

Rule 1602

Int[(Pp_)*(Qq_)^(m_.), x_Symbol] :> With[{p = Expon[Pp, x], q = Expon[Qq, x]}, Simp[Coeff[Pp, x, p]*x^(p - q +
1)*(Qq^(m + 1)/((p + m*q + 1)*Coeff[Qq, x, q])), x] /; NeQ[p + m*q + 1, 0] && EqQ[(p + m*q + 1)*Coeff[Qq, x,
q]*Pp, Coeff[Pp, x, p]*x^(p - q)*((p - q + 1)*Qq + (m + 1)*x*D[Qq, x])]] /; FreeQ[m, x] && PolyQ[Pp, x] && Pol
yQ[Qq, x] && NeQ[m, -1]

Rule 1607

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

Rule 6874

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

Rubi steps \begin{align*} \text {integral}& = \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{(-6+x) x} \, dx \\ & = \int \left (\frac {e^{5/3} (4-x) x}{\left (6 x^2-x^3\right )^{4/3}}+3 \left (1-\frac {\log (20)}{3}\right )\right ) \, dx \\ & = x (3-\log (20))+e^{5/3} \int \frac {(4-x) x}{\left (6 x^2-x^3\right )^{4/3}} \, dx \\ & = -\frac {e^{5/3}}{\sqrt [3]{6 x^2-x^3}}+x (3-\log (20)) \\ \end{align*}

Mathematica [A] (verified)

Time = 0.19 (sec) , antiderivative size = 27, normalized size of antiderivative = 0.87 \[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=-\frac {e^{5/3}}{\sqrt [3]{-\left ((-6+x) x^2\right )}}-x (-3+\log (20)) \]

[In]

Integrate[(E^((5 - Log[6*x^2 - x^3])/3)*(-4 + x) - 18*x + 3*x^2 + (6*x - x^2)*Log[20])/(-6*x + x^2),x]

[Out]

-(E^(5/3)/(-((-6 + x)*x^2))^(1/3)) - x*(-3 + Log[20])

Maple [A] (verified)

Time = 0.11 (sec) , antiderivative size = 29, normalized size of antiderivative = 0.94

method	result	size
default	\(3 x -{\mathrm e}^{-\frac {\ln \left (-x^{3}+6 x^{2}\right )}{3}+\frac {5}{3}}-x \ln \left (20\right )\)	\(29\)
parts	\(3 x -{\mathrm e}^{-\frac {\ln \left (-x^{3}+6 x^{2}\right )}{3}+\frac {5}{3}}-x \ln \left (20\right )\)	\(29\)
parallelrisch	\(-x \ln \left (20\right )+36-12 \ln \left (20\right )+3 x -{\mathrm e}^{-\frac {\ln \left (-x^{3}+6 x^{2}\right )}{3}+\frac {5}{3}}\)	\(34\)

[In]

int(((x-4)*exp(-1/3*ln(-x^3+6*x^2)+5/3)+(-x^2+6*x)*ln(20)+3*x^2-18*x)/(x^2-6*x),x,method=_RETURNVERBOSE)

[Out]

3*x-exp(-1/3*ln(-x^3+6*x^2)+5/3)-x*ln(20)

Fricas [B] (verification not implemented)

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

Time = 0.25 (sec) , antiderivative size = 52, normalized size of antiderivative = 1.68 \[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=\frac {3 \, x^{4} - 18 \, x^{3} - {\left (x^{4} - 6 \, x^{3}\right )} \log \left (20\right ) + {\left (-x^{3} + 6 \, x^{2}\right )}^{\frac {2}{3}} e^{\frac {5}{3}}}{x^{3} - 6 \, x^{2}} \]

[In]

integrate(((x-4)*exp(-1/3*log(-x^3+6*x^2)+5/3)+(-x^2+6*x)*log(20)+3*x^2-18*x)/(x^2-6*x),x, algorithm="fricas")

[Out]

(3*x^4 - 18*x^3 - (x^4 - 6*x^3)*log(20) + (-x^3 + 6*x^2)^(2/3)*e^(5/3))/(x^3 - 6*x^2)

Sympy [F]

\[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=- \int \frac {4 e^{\frac {5}{3}}}{x^{2} \sqrt [3]{- x^{3} + 6 x^{2}} - 6 x \sqrt [3]{- x^{3} + 6 x^{2}}}\, dx - \int \frac {18 x \sqrt [3]{- x^{3} + 6 x^{2}}}{x^{2} \sqrt [3]{- x^{3} + 6 x^{2}} - 6 x \sqrt [3]{- x^{3} + 6 x^{2}}}\, dx - \int \left (- \frac {x e^{\frac {5}{3}}}{x^{2} \sqrt [3]{- x^{3} + 6 x^{2}} - 6 x \sqrt [3]{- x^{3} + 6 x^{2}}}\right )\, dx - \int \left (- \frac {3 x^{2} \sqrt [3]{- x^{3} + 6 x^{2}}}{x^{2} \sqrt [3]{- x^{3} + 6 x^{2}} - 6 x \sqrt [3]{- x^{3} + 6 x^{2}}}\right )\, dx - \int \left (- \frac {6 x \sqrt [3]{- x^{3} + 6 x^{2}} \log {\left (20 \right )}}{x^{2} \sqrt [3]{- x^{3} + 6 x^{2}} - 6 x \sqrt [3]{- x^{3} + 6 x^{2}}}\right )\, dx - \int \frac {x^{2} \sqrt [3]{- x^{3} + 6 x^{2}} \log {\left (20 \right )}}{x^{2} \sqrt [3]{- x^{3} + 6 x^{2}} - 6 x \sqrt [3]{- x^{3} + 6 x^{2}}}\, dx \]

[In]

integrate(((x-4)*exp(-1/3*ln(-x**3+6*x**2)+5/3)+(-x**2+6*x)*ln(20)+3*x**2-18*x)/(x**2-6*x),x)

[Out]

-Integral(4*exp(5/3)/(x**2*(-x**3 + 6*x**2)**(1/3) - 6*x*(-x**3 + 6*x**2)**(1/3)), x) - Integral(18*x*(-x**3 +
6*x**2)**(1/3)/(x**2*(-x**3 + 6*x**2)**(1/3) - 6*x*(-x**3 + 6*x**2)**(1/3)), x) - Integral(-x*exp(5/3)/(x**2*
(-x**3 + 6*x**2)**(1/3) - 6*x*(-x**3 + 6*x**2)**(1/3)), x) - Integral(-3*x**2*(-x**3 + 6*x**2)**(1/3)/(x**2*(-
x**3 + 6*x**2)**(1/3) - 6*x*(-x**3 + 6*x**2)**(1/3)), x) - Integral(-6*x*(-x**3 + 6*x**2)**(1/3)*log(20)/(x**2
*(-x**3 + 6*x**2)**(1/3) - 6*x*(-x**3 + 6*x**2)**(1/3)), x) - Integral(x**2*(-x**3 + 6*x**2)**(1/3)*log(20)/(x
**2*(-x**3 + 6*x**2)**(1/3) - 6*x*(-x**3 + 6*x**2)**(1/3)), x)

Maxima [F]

\[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=\int { \frac {3 \, x^{2} + {\left (x - 4\right )} e^{\left (-\frac {1}{3} \, \log \left (-x^{3} + 6 \, x^{2}\right ) + \frac {5}{3}\right )} - {\left (x^{2} - 6 \, x\right )} \log \left (20\right ) - 18 \, x}{x^{2} - 6 \, x} \,d x } \]

[In]

integrate(((x-4)*exp(-1/3*log(-x^3+6*x^2)+5/3)+(-x^2+6*x)*log(20)+3*x^2-18*x)/(x^2-6*x),x, algorithm="maxima")

[Out]

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

Giac [A] (verification not implemented)

none

Time = 0.30 (sec) , antiderivative size = 27, normalized size of antiderivative = 0.87 \[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=-x {\left (\log \left (20\right ) - 3\right )} - e^{\left (-\frac {1}{3} \, \log \left (-x^{3} + 6 \, x^{2}\right ) + \frac {5}{3}\right )} \]

[In]

integrate(((x-4)*exp(-1/3*log(-x^3+6*x^2)+5/3)+(-x^2+6*x)*log(20)+3*x^2-18*x)/(x^2-6*x),x, algorithm="giac")

[Out]

-x*(log(20) - 3) - e^(-1/3*log(-x^3 + 6*x^2) + 5/3)

Mupad [F(-1)]

Timed out. \[ \int \frac {e^{\frac {1}{3} \left (5-\log \left (6 x^2-x^3\right )\right )} (-4+x)-18 x+3 x^2+\left (6 x-x^2\right ) \log (20)}{-6 x+x^2} \, dx=-\int \frac {\ln \left (20\right )\,\left (6\,x-x^2\right )-18\,x+{\mathrm {e}}^{\frac {5}{3}-\frac {\ln \left (6\,x^2-x^3\right )}{3}}\,\left (x-4\right )+3\,x^2}{6\,x-x^2} \,d x \]

[In]

int(-(log(20)*(6*x - x^2) - 18*x + exp(5/3 - log(6*x^2 - x^3)/3)*(x - 4) + 3*x^2)/(6*x - x^2),x)

[Out]

-int((log(20)*(6*x - x^2) - 18*x + exp(5/3 - log(6*x^2 - x^3)/3)*(x - 4) + 3*x^2)/(6*x - x^2), x)