\(\int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{(-54 x+54 x^4-18 x^7+2 x^{10}) \log ^2(x)} \, dx\) [5359]

   Optimal result
   Rubi [A] (verified)
   Mathematica [A] (verified)
   Maple [A] (verified)
   Fricas [A] (verification not implemented)
   Sympy [A] (verification not implemented)
   Maxima [A] (verification not implemented)
   Giac [A] (verification not implemented)
   Mupad [B] (verification not implemented)

Optimal result

Integrand size = 52, antiderivative size = 26 \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=5+\frac {x^2}{36 \left (\frac {3}{x^2}-x\right )^2}+\frac {5}{\log (x)} \]

[Out]

x^2/(18/x^2-6*x)^2+5/ln(x)+5

Rubi [A] (verified)

Time = 0.24 (sec) , antiderivative size = 23, normalized size of antiderivative = 0.88, number of steps used = 7, number of rules used = 6, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.115, Rules used = {6820, 12, 6874, 270, 2339, 30} \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=\frac {x^6}{36 \left (3-x^3\right )^2}+\frac {5}{\log (x)} \]

[In]

Int[(270 - 270*x^3 + 90*x^6 - 10*x^9 - x^6*Log[x]^2)/((-54*x + 54*x^4 - 18*x^7 + 2*x^10)*Log[x]^2),x]

[Out]

x^6/(36*(3 - x^3)^2) + 5/Log[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 30

Int[(x_)^(m_.), x_Symbol] :> Simp[x^(m + 1)/(m + 1), x] /; FreeQ[m, x] && NeQ[m, -1]

Rule 270

Int[((c_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[(c*x)^(m + 1)*((a + b*x^n)^(p + 1)/(a*
c*(m + 1))), x] /; FreeQ[{a, b, c, m, n, p}, x] && EqQ[(m + 1)/n + p + 1, 0] && NeQ[m, -1]

Rule 2339

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)/(x_), x_Symbol] :> Dist[1/(b*n), Subst[Int[x^p, x], x, a + b*L
og[c*x^n]], x] /; FreeQ[{a, b, c, n, p}, x]

Rule 6820

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

Rule 6874

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

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

Mathematica [A] (verified)

Time = 0.06 (sec) , antiderivative size = 29, normalized size of antiderivative = 1.12 \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=\frac {1}{2} \left (-\frac {3-2 x^3}{6 \left (-3+x^3\right )^2}+\frac {10}{\log (x)}\right ) \]

[In]

Integrate[(270 - 270*x^3 + 90*x^6 - 10*x^9 - x^6*Log[x]^2)/((-54*x + 54*x^4 - 18*x^7 + 2*x^10)*Log[x]^2),x]

[Out]

(-1/6*(3 - 2*x^3)/(-3 + x^3)^2 + 10/Log[x])/2

Maple [A] (verified)

Time = 0.12 (sec) , antiderivative size = 26, normalized size of antiderivative = 1.00

method result size
default \(\frac {5}{\ln \left (x \right )}+\frac {1}{4 \left (x^{3}-3\right )^{2}}+\frac {1}{6 x^{3}-18}\) \(26\)
parts \(\frac {5}{\ln \left (x \right )}+\frac {1}{4 \left (x^{3}-3\right )^{2}}+\frac {1}{6 x^{3}-18}\) \(26\)
risch \(\frac {2 x^{3}-3}{12 x^{6}-72 x^{3}+108}+\frac {5}{\ln \left (x \right )}\) \(29\)
parallelrisch \(\frac {1620+x^{6} \ln \left (x \right )+180 x^{6}-1080 x^{3}}{36 \ln \left (x \right ) \left (x^{6}-6 x^{3}+9\right )}\) \(37\)

[In]

int((-x^6*ln(x)^2-10*x^9+90*x^6-270*x^3+270)/(2*x^10-18*x^7+54*x^4-54*x)/ln(x)^2,x,method=_RETURNVERBOSE)

[Out]

5/ln(x)+1/4/(x^3-3)^2+1/6/(x^3-3)

Fricas [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 40, normalized size of antiderivative = 1.54 \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=\frac {60 \, x^{6} - 360 \, x^{3} + {\left (2 \, x^{3} - 3\right )} \log \left (x\right ) + 540}{12 \, {\left (x^{6} - 6 \, x^{3} + 9\right )} \log \left (x\right )} \]

[In]

integrate((-x^6*log(x)^2-10*x^9+90*x^6-270*x^3+270)/(2*x^10-18*x^7+54*x^4-54*x)/log(x)^2,x, algorithm="fricas"
)

[Out]

1/12*(60*x^6 - 360*x^3 + (2*x^3 - 3)*log(x) + 540)/((x^6 - 6*x^3 + 9)*log(x))

Sympy [A] (verification not implemented)

Time = 0.09 (sec) , antiderivative size = 22, normalized size of antiderivative = 0.85 \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=- \frac {3 - 2 x^{3}}{12 x^{6} - 72 x^{3} + 108} + \frac {5}{\log {\left (x \right )}} \]

[In]

integrate((-x**6*ln(x)**2-10*x**9+90*x**6-270*x**3+270)/(2*x**10-18*x**7+54*x**4-54*x)/ln(x)**2,x)

[Out]

-(3 - 2*x**3)/(12*x**6 - 72*x**3 + 108) + 5/log(x)

Maxima [A] (verification not implemented)

none

Time = 0.31 (sec) , antiderivative size = 40, normalized size of antiderivative = 1.54 \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=\frac {60 \, x^{6} - 360 \, x^{3} + {\left (2 \, x^{3} - 3\right )} \log \left (x\right ) + 540}{12 \, {\left (x^{6} - 6 \, x^{3} + 9\right )} \log \left (x\right )} \]

[In]

integrate((-x^6*log(x)^2-10*x^9+90*x^6-270*x^3+270)/(2*x^10-18*x^7+54*x^4-54*x)/log(x)^2,x, algorithm="maxima"
)

[Out]

1/12*(60*x^6 - 360*x^3 + (2*x^3 - 3)*log(x) + 540)/((x^6 - 6*x^3 + 9)*log(x))

Giac [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 28, normalized size of antiderivative = 1.08 \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=\frac {2 \, x^{3} - 3}{12 \, {\left (x^{6} - 6 \, x^{3} + 9\right )}} + \frac {5}{\log \left (x\right )} \]

[In]

integrate((-x^6*log(x)^2-10*x^9+90*x^6-270*x^3+270)/(2*x^10-18*x^7+54*x^4-54*x)/log(x)^2,x, algorithm="giac")

[Out]

1/12*(2*x^3 - 3)/(x^6 - 6*x^3 + 9) + 5/log(x)

Mupad [B] (verification not implemented)

Time = 12.38 (sec) , antiderivative size = 27, normalized size of antiderivative = 1.04 \[ \int \frac {270-270 x^3+90 x^6-10 x^9-x^6 \log ^2(x)}{\left (-54 x+54 x^4-18 x^7+2 x^{10}\right ) \log ^2(x)} \, dx=\frac {5}{\ln \left (x\right )}+\frac {\frac {x^3}{6}-\frac {1}{4}}{x^6-6\,x^3+9} \]

[In]

int((x^6*log(x)^2 + 270*x^3 - 90*x^6 + 10*x^9 - 270)/(log(x)^2*(54*x - 54*x^4 + 18*x^7 - 2*x^10)),x)

[Out]

5/log(x) + (x^3/6 - 1/4)/(x^6 - 6*x^3 + 9)