\(\int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+(-15 x^3 \log (3)+(-90 x^2+3 x^3) \log ^2(3)+(-135 x+18 x^2) \log ^3(3)+27 x \log ^4(3)) \log (x)+(-75 x^2 \log ^2(3)+(-225 x+30 x^2) \log ^3(3)+(90 x-3 x^2) \log ^4(3)-9 x \log ^5(3)) \log ^2(x)+(-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)) \log ^3(x)} \, dx\) [9959]

Optimal result

Integrand size = 177, antiderivative size = 20 \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\frac {16}{(x+\log (3) (3+(5-\log (3)) \log (x)))^2} \]

[Out]

16/(((5-ln(3))*ln(x)+3)*ln(3)+x)^2

Rubi [A] (verified)

Time = 0.19 (sec) , antiderivative size = 19, normalized size of antiderivative = 0.95, number of steps used = 3, number of rules used = 3, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.017, Rules used = {6820, 12, 6818} \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\frac {16}{(x+(5-\log (3)) \log (3) \log (x)+\log (27))^2} \]

[In]

Int[(32*x + 160*Log[3] - 32*Log[3]^2)/(-x^4 - 9*x^3*Log[3] - 27*x^2*Log[3]^2 - 27*x*Log[3]^3 + (-15*x^3*Log[3]
+ (-90*x^2 + 3*x^3)*Log[3]^2 + (-135*x + 18*x^2)*Log[3]^3 + 27*x*Log[3]^4)*Log[x] + (-75*x^2*Log[3]^2 + (-225
*x + 30*x^2)*Log[3]^3 + (90*x - 3*x^2)*Log[3]^4 - 9*x*Log[3]^5)*Log[x]^2 + (-125*x*Log[3]^3 + 75*x*Log[3]^4 -
15*x*Log[3]^5 + x*Log[3]^6)*Log[x]^3),x]

[Out]

16/(x + Log[27] + (5 - Log[3])*Log[3]*Log[x])^2

Rule 12

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

Rule 6818

Int[(u_)*(y_)^(m_.), x_Symbol] :> With[{q = DerivativeDivides[y, u, x]}, Simp[q*(y^(m + 1)/(m + 1)), x] /;  !F
alseQ[q]] /; FreeQ[m, x] && NeQ[m, -1]

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 {32 (-x+(-5+\log (3)) \log (3))}{x (x+\log (27)-(-5+\log (3)) \log (3) \log (x))^3} \, dx \\ & = 32 \int \frac {-x+(-5+\log (3)) \log (3)}{x (x+\log (27)-(-5+\log (3)) \log (3) \log (x))^3} \, dx \\ & = \frac {16}{(x+\log (27)+(5-\log (3)) \log (3) \log (x))^2} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.04 (sec) , antiderivative size = 18, normalized size of antiderivative = 0.90 \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\frac {16}{(x+\log (27)-(-5+\log (3)) \log (3) \log (x))^2} \]

[In]

Integrate[(32*x + 160*Log[3] - 32*Log[3]^2)/(-x^4 - 9*x^3*Log[3] - 27*x^2*Log[3]^2 - 27*x*Log[3]^3 + (-15*x^3*
Log[3] + (-90*x^2 + 3*x^3)*Log[3]^2 + (-135*x + 18*x^2)*Log[3]^3 + 27*x*Log[3]^4)*Log[x] + (-75*x^2*Log[3]^2 +
(-225*x + 30*x^2)*Log[3]^3 + (90*x - 3*x^2)*Log[3]^4 - 9*x*Log[3]^5)*Log[x]^2 + (-125*x*Log[3]^3 + 75*x*Log[3
]^4 - 15*x*Log[3]^5 + x*Log[3]^6)*Log[x]^3),x]

[Out]

16/(x + Log[27] - (-5 + Log[3])*Log[3]*Log[x])^2

Maple [A] (verified)

Time = 3.30 (sec) , antiderivative size = 26, normalized size of antiderivative = 1.30

method	result	size
default	\(\frac {16}{\left (\ln \left (3\right )^{2} \ln \left (x \right )-5 \ln \left (3\right ) \ln \left (x \right )-3 \ln \left (3\right )-x \right )^{2}}\)	\(26\)
norman	\(\frac {16}{\left (\ln \left (3\right )^{2} \ln \left (x \right )-5 \ln \left (3\right ) \ln \left (x \right )-3 \ln \left (3\right )-x \right )^{2}}\)	\(26\)
risch	\(\frac {16}{\left (\ln \left (3\right )^{2} \ln \left (x \right )-5 \ln \left (3\right ) \ln \left (x \right )-3 \ln \left (3\right )-x \right )^{2}}\)	\(26\)
parallelrisch	\(\frac {16}{\ln \left (x \right )^{2} \ln \left (3\right )^{4}-10 \ln \left (3\right )^{3} \ln \left (x \right )^{2}-6 \ln \left (x \right ) \ln \left (3\right )^{3}-2 x \ln \left (x \right ) \ln \left (3\right )^{2}+25 \ln \left (3\right )^{2} \ln \left (x \right )^{2}+30 \ln \left (3\right )^{2} \ln \left (x \right )+10 x \ln \left (3\right ) \ln \left (x \right )+9 \ln \left (3\right )^{2}+6 x \ln \left (3\right )+x^{2}}\)	\(81\)

[In]

int((-32*ln(3)^2+160*ln(3)+32*x)/((x*ln(3)^6-15*x*ln(3)^5+75*x*ln(3)^4-125*x*ln(3)^3)*ln(x)^3+(-9*x*ln(3)^5+(-
3*x^2+90*x)*ln(3)^4+(30*x^2-225*x)*ln(3)^3-75*x^2*ln(3)^2)*ln(x)^2+(27*x*ln(3)^4+(18*x^2-135*x)*ln(3)^3+(3*x^3
-90*x^2)*ln(3)^2-15*x^3*ln(3))*ln(x)-27*x*ln(3)^3-27*x^2*ln(3)^2-9*x^3*ln(3)-x^4),x,method=_RETURNVERBOSE)

[Out]

16/(ln(3)^2*ln(x)-5*ln(3)*ln(x)-3*ln(3)-x)^2

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 65 vs. \(2 (20) = 40\).

Time = 0.27 (sec) , antiderivative size = 65, normalized size of antiderivative = 3.25 \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\frac {16}{{\left (\log \left (3\right )^{4} - 10 \, \log \left (3\right )^{3} + 25 \, \log \left (3\right )^{2}\right )} \log \left (x\right )^{2} + x^{2} + 6 \, x \log \left (3\right ) + 9 \, \log \left (3\right )^{2} - 2 \, {\left ({\left (x - 15\right )} \log \left (3\right )^{2} + 3 \, \log \left (3\right )^{3} - 5 \, x \log \left (3\right )\right )} \log \left (x\right )} \]

[In]

integrate((-32*log(3)^2+160*log(3)+32*x)/((x*log(3)^6-15*x*log(3)^5+75*x*log(3)^4-125*x*log(3)^3)*log(x)^3+(-9
*x*log(3)^5+(-3*x^2+90*x)*log(3)^4+(30*x^2-225*x)*log(3)^3-75*x^2*log(3)^2)*log(x)^2+(27*x*log(3)^4+(18*x^2-13
5*x)*log(3)^3+(3*x^3-90*x^2)*log(3)^2-15*x^3*log(3))*log(x)-27*x*log(3)^3-27*x^2*log(3)^2-9*x^3*log(3)-x^4),x,
algorithm="fricas")

[Out]

16/((log(3)^4 - 10*log(3)^3 + 25*log(3)^2)*log(x)^2 + x^2 + 6*x*log(3) + 9*log(3)^2 - 2*((x - 15)*log(3)^2 + 3
*log(3)^3 - 5*x*log(3))*log(x))

Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 73 vs. \(2 (17) = 34\).

Time = 0.22 (sec) , antiderivative size = 73, normalized size of antiderivative = 3.65 \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\frac {16}{x^{2} + 6 x \log {\left (3 \right )} + \left (- 2 x \log {\left (3 \right )}^{2} + 10 x \log {\left (3 \right )} - 6 \log {\left (3 \right )}^{3} + 30 \log {\left (3 \right )}^{2}\right ) \log {\left (x \right )} + \left (- 10 \log {\left (3 \right )}^{3} + \log {\left (3 \right )}^{4} + 25 \log {\left (3 \right )}^{2}\right ) \log {\left (x \right )}^{2} + 9 \log {\left (3 \right )}^{2}} \]

[In]

integrate((-32*ln(3)**2+160*ln(3)+32*x)/((x*ln(3)**6-15*x*ln(3)**5+75*x*ln(3)**4-125*x*ln(3)**3)*ln(x)**3+(-9*
x*ln(3)**5+(-3*x**2+90*x)*ln(3)**4+(30*x**2-225*x)*ln(3)**3-75*x**2*ln(3)**2)*ln(x)**2+(27*x*ln(3)**4+(18*x**2
-135*x)*ln(3)**3+(3*x**3-90*x**2)*ln(3)**2-15*x**3*ln(3))*ln(x)-27*x*ln(3)**3-27*x**2*ln(3)**2-9*x**3*ln(3)-x*
*4),x)

[Out]

16/(x**2 + 6*x*log(3) + (-2*x*log(3)**2 + 10*x*log(3) - 6*log(3)**3 + 30*log(3)**2)*log(x) + (-10*log(3)**3 +
log(3)**4 + 25*log(3)**2)*log(x)**2 + 9*log(3)**2)

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 69 vs. \(2 (20) = 40\).

Time = 0.34 (sec) , antiderivative size = 69, normalized size of antiderivative = 3.45 \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\frac {16}{{\left (\log \left (3\right )^{4} - 10 \, \log \left (3\right )^{3} + 25 \, \log \left (3\right )^{2}\right )} \log \left (x\right )^{2} + x^{2} + 6 \, x \log \left (3\right ) + 9 \, \log \left (3\right )^{2} - 2 \, {\left (3 \, \log \left (3\right )^{3} + {\left (\log \left (3\right )^{2} - 5 \, \log \left (3\right )\right )} x - 15 \, \log \left (3\right )^{2}\right )} \log \left (x\right )} \]

[In]

integrate((-32*log(3)^2+160*log(3)+32*x)/((x*log(3)^6-15*x*log(3)^5+75*x*log(3)^4-125*x*log(3)^3)*log(x)^3+(-9
*x*log(3)^5+(-3*x^2+90*x)*log(3)^4+(30*x^2-225*x)*log(3)^3-75*x^2*log(3)^2)*log(x)^2+(27*x*log(3)^4+(18*x^2-13
5*x)*log(3)^3+(3*x^3-90*x^2)*log(3)^2-15*x^3*log(3))*log(x)-27*x*log(3)^3-27*x^2*log(3)^2-9*x^3*log(3)-x^4),x,
algorithm="maxima")

[Out]

16/((log(3)^4 - 10*log(3)^3 + 25*log(3)^2)*log(x)^2 + x^2 + 6*x*log(3) + 9*log(3)^2 - 2*(3*log(3)^3 + (log(3)^
2 - 5*log(3))*x - 15*log(3)^2)*log(x))

Giac [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 206 vs. \(2 (20) = 40\).

Time = 0.29 (sec) , antiderivative size = 206, normalized size of antiderivative = 10.30 \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\frac {16 \, {\left (\log \left (3\right )^{2} - x - 5 \, \log \left (3\right )\right )}}{\log \left (3\right )^{6} \log \left (x\right )^{2} - x \log \left (3\right )^{4} \log \left (x\right )^{2} - 15 \, \log \left (3\right )^{5} \log \left (x\right )^{2} - 2 \, x \log \left (3\right )^{4} \log \left (x\right ) - 6 \, \log \left (3\right )^{5} \log \left (x\right ) + 10 \, x \log \left (3\right )^{3} \log \left (x\right )^{2} + 75 \, \log \left (3\right )^{4} \log \left (x\right )^{2} + 2 \, x^{2} \log \left (3\right )^{2} \log \left (x\right ) + 26 \, x \log \left (3\right )^{3} \log \left (x\right ) + 60 \, \log \left (3\right )^{4} \log \left (x\right ) - 25 \, x \log \left (3\right )^{2} \log \left (x\right )^{2} - 125 \, \log \left (3\right )^{3} \log \left (x\right )^{2} + x^{2} \log \left (3\right )^{2} + 6 \, x \log \left (3\right )^{3} + 9 \, \log \left (3\right )^{4} - 10 \, x^{2} \log \left (3\right ) \log \left (x\right ) - 80 \, x \log \left (3\right )^{2} \log \left (x\right ) - 150 \, \log \left (3\right )^{3} \log \left (x\right ) - x^{3} - 11 \, x^{2} \log \left (3\right ) - 39 \, x \log \left (3\right )^{2} - 45 \, \log \left (3\right )^{3}} \]

[In]

integrate((-32*log(3)^2+160*log(3)+32*x)/((x*log(3)^6-15*x*log(3)^5+75*x*log(3)^4-125*x*log(3)^3)*log(x)^3+(-9
*x*log(3)^5+(-3*x^2+90*x)*log(3)^4+(30*x^2-225*x)*log(3)^3-75*x^2*log(3)^2)*log(x)^2+(27*x*log(3)^4+(18*x^2-13
5*x)*log(3)^3+(3*x^3-90*x^2)*log(3)^2-15*x^3*log(3))*log(x)-27*x*log(3)^3-27*x^2*log(3)^2-9*x^3*log(3)-x^4),x,
algorithm="giac")

[Out]

16*(log(3)^2 - x - 5*log(3))/(log(3)^6*log(x)^2 - x*log(3)^4*log(x)^2 - 15*log(3)^5*log(x)^2 - 2*x*log(3)^4*lo
g(x) - 6*log(3)^5*log(x) + 10*x*log(3)^3*log(x)^2 + 75*log(3)^4*log(x)^2 + 2*x^2*log(3)^2*log(x) + 26*x*log(3)
^3*log(x) + 60*log(3)^4*log(x) - 25*x*log(3)^2*log(x)^2 - 125*log(3)^3*log(x)^2 + x^2*log(3)^2 + 6*x*log(3)^3
+ 9*log(3)^4 - 10*x^2*log(3)*log(x) - 80*x*log(3)^2*log(x) - 150*log(3)^3*log(x) - x^3 - 11*x^2*log(3) - 39*x*
log(3)^2 - 45*log(3)^3)

Mupad [F(-1)]

Timed out. \[ \int \frac {32 x+160 \log (3)-32 \log ^2(3)}{-x^4-9 x^3 \log (3)-27 x^2 \log ^2(3)-27 x \log ^3(3)+\left (-15 x^3 \log (3)+\left (-90 x^2+3 x^3\right ) \log ^2(3)+\left (-135 x+18 x^2\right ) \log ^3(3)+27 x \log ^4(3)\right ) \log (x)+\left (-75 x^2 \log ^2(3)+\left (-225 x+30 x^2\right ) \log ^3(3)+\left (90 x-3 x^2\right ) \log ^4(3)-9 x \log ^5(3)\right ) \log ^2(x)+\left (-125 x \log ^3(3)+75 x \log ^4(3)-15 x \log ^5(3)+x \log ^6(3)\right ) \log ^3(x)} \, dx=\int -\frac {32\,x+160\,\ln \left (3\right )-32\,{\ln \left (3\right )}^2}{27\,x^2\,{\ln \left (3\right )}^2+\ln \left (x\right )\,\left ({\ln \left (3\right )}^3\,\left (135\,x-18\,x^2\right )+15\,x^3\,\ln \left (3\right )-27\,x\,{\ln \left (3\right )}^4+{\ln \left (3\right )}^2\,\left (90\,x^2-3\,x^3\right )\right )+{\ln \left (x\right )}^3\,\left (125\,x\,{\ln \left (3\right )}^3-75\,x\,{\ln \left (3\right )}^4+15\,x\,{\ln \left (3\right )}^5-x\,{\ln \left (3\right )}^6\right )+27\,x\,{\ln \left (3\right )}^3+9\,x^3\,\ln \left (3\right )+x^4+{\ln \left (x\right )}^2\,\left (75\,x^2\,{\ln \left (3\right )}^2-{\ln \left (3\right )}^4\,\left (90\,x-3\,x^2\right )+{\ln \left (3\right )}^3\,\left (225\,x-30\,x^2\right )+9\,x\,{\ln \left (3\right )}^5\right )} \,d x \]

[In]

int(-(32*x + 160*log(3) - 32*log(3)^2)/(27*x^2*log(3)^2 + log(x)*(log(3)^3*(135*x - 18*x^2) + 15*x^3*log(3) -
27*x*log(3)^4 + log(3)^2*(90*x^2 - 3*x^3)) + log(x)^3*(125*x*log(3)^3 - 75*x*log(3)^4 + 15*x*log(3)^5 - x*log(
3)^6) + 27*x*log(3)^3 + 9*x^3*log(3) + x^4 + log(x)^2*(75*x^2*log(3)^2 - log(3)^4*(90*x - 3*x^2) + log(3)^3*(2
25*x - 30*x^2) + 9*x*log(3)^5)),x)

[Out]

int(-(32*x + 160*log(3) - 32*log(3)^2)/(27*x^2*log(3)^2 + log(x)*(log(3)^3*(135*x - 18*x^2) + 15*x^3*log(3) -
27*x*log(3)^4 + log(3)^2*(90*x^2 - 3*x^3)) + log(x)^3*(125*x*log(3)^3 - 75*x*log(3)^4 + 15*x*log(3)^5 - x*log(
3)^6) + 27*x*log(3)^3 + 9*x^3*log(3) + x^4 + log(x)^2*(75*x^2*log(3)^2 - log(3)^4*(90*x - 3*x^2) + log(3)^3*(2
25*x - 30*x^2) + 9*x*log(3)^5)), x)