\(\int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+(x-3 x^3+2 x^2 \log (4)) \log (x^2)+(4 x^2+2 x^2 \log (x^2)) \log (2+\log (x^2))}{2 x^2-2 x^4+2 x^3 \log (4)+(x^2-x^4+x^3 \log (4)) \log (x^2)+(-2 x+2 x^3+(-x+x^3) \log (x^2)) \log (2+\log (x^2))} \, dx\) [1345]

Optimal result

Integrand size = 134, antiderivative size = 30 \[ \int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+\left (x-3 x^3+2 x^2 \log (4)\right ) \log \left (x^2\right )+\left (4 x^2+2 x^2 \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )}{2 x^2-2 x^4+2 x^3 \log (4)+\left (x^2-x^4+x^3 \log (4)\right ) \log \left (x^2\right )+\left (-2 x+2 x^3+\left (-x+x^3\right ) \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )} \, dx=\log \left (x^2 \log (4)+\frac {\left (x-x^3\right ) \left (x-\log \left (2+\log \left (x^2\right )\right )\right )}{x}\right ) \]

[Out]

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

Rubi [A] (verified)

Time = 0.29 (sec) , antiderivative size = 34, normalized size of antiderivative = 1.13, number of steps used = 3, number of rules used = 3, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.022, Rules used = {6, 6873, 6816} \[ \int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+\left (x-3 x^3+2 x^2 \log (4)\right ) \log \left (x^2\right )+\left (4 x^2+2 x^2 \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )}{2 x^2-2 x^4+2 x^3 \log (4)+\left (x^2-x^4+x^3 \log (4)\right ) \log \left (x^2\right )+\left (-2 x+2 x^3+\left (-x+x^3\right ) \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )} \, dx=\log \left (-x^3+x^2 \log \left (\log \left (x^2\right )+2\right )+x^2 \log (4)-\log \left (\log \left (x^2\right )+2\right )+x\right ) \]

[In]

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

[Out]

Log[x - x^3 + x^2*Log[4] - Log[2 + Log[x^2]] + x^2*Log[2 + Log[x^2]]]

Rule 6

Int[(u_.)*((w_.) + (a_.)*(v_) + (b_.)*(v_))^(p_.), x_Symbol] :> Int[u*((a + b)*v + w)^p, x] /; FreeQ[{a, b}, x
] &&  !FreeQ[v, x]

Rule 6816

Int[(u_)/(y_), x_Symbol] :> With[{q = DerivativeDivides[y, u, x]}, Simp[q*Log[RemoveContent[y, x]], x] /;  !Fa
lseQ[q]]

Rule 6873

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

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

Mathematica [A] (verified)

Time = 0.07 (sec) , antiderivative size = 34, normalized size of antiderivative = 1.13 \[ \int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+\left (x-3 x^3+2 x^2 \log (4)\right ) \log \left (x^2\right )+\left (4 x^2+2 x^2 \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )}{2 x^2-2 x^4+2 x^3 \log (4)+\left (x^2-x^4+x^3 \log (4)\right ) \log \left (x^2\right )+\left (-2 x+2 x^3+\left (-x+x^3\right ) \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )} \, dx=\log \left (-x+x^3-x^2 \log (4)+\log \left (2+\log \left (x^2\right )\right )-x^2 \log \left (2+\log \left (x^2\right )\right )\right ) \]

[In]

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

[Out]

Log[-x + x^3 - x^2*Log[4] + Log[2 + Log[x^2]] - x^2*Log[2 + Log[x^2]]]

Maple [A] (verified)

Time = 1.23 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.17

method	result	size
parallelrisch	\(\ln \left (-2 x^{2} \ln \left (2\right )+x^{3}-\ln \left (2+\ln \left (x^{2}\right )\right ) x^{2}-x +\ln \left (2+\ln \left (x^{2}\right )\right )\right )\)	\(35\)

[In]

int(((2*x^2*ln(x^2)+4*x^2)*ln(2+ln(x^2))+(4*x^2*ln(2)-3*x^3+x)*ln(x^2)+8*x^2*ln(2)-6*x^3+2*x^2+2*x-2)/(((x^3-x
)*ln(x^2)+2*x^3-2*x)*ln(2+ln(x^2))+(2*x^3*ln(2)-x^4+x^2)*ln(x^2)+4*x^3*ln(2)-2*x^4+2*x^2),x,method=_RETURNVERB
OSE)

[Out]

ln(-2*x^2*ln(2)+x^3-ln(2+ln(x^2))*x^2-x+ln(2+ln(x^2)))

Fricas [A] (verification not implemented)

none

Time = 0.27 (sec) , antiderivative size = 45, normalized size of antiderivative = 1.50 \[ \int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+\left (x-3 x^3+2 x^2 \log (4)\right ) \log \left (x^2\right )+\left (4 x^2+2 x^2 \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )}{2 x^2-2 x^4+2 x^3 \log (4)+\left (x^2-x^4+x^3 \log (4)\right ) \log \left (x^2\right )+\left (-2 x+2 x^3+\left (-x+x^3\right ) \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )} \, dx=\log \left (x^{2} - 1\right ) + \log \left (-\frac {x^{3} - 2 \, x^{2} \log \left (2\right ) - {\left (x^{2} - 1\right )} \log \left (\log \left (x^{2}\right ) + 2\right ) - x}{x^{2} - 1}\right ) \]

[In]

integrate(((2*x^2*log(x^2)+4*x^2)*log(2+log(x^2))+(4*x^2*log(2)-3*x^3+x)*log(x^2)+8*x^2*log(2)-6*x^3+2*x^2+2*x
-2)/(((x^3-x)*log(x^2)+2*x^3-2*x)*log(2+log(x^2))+(2*x^3*log(2)-x^4+x^2)*log(x^2)+4*x^3*log(2)-2*x^4+2*x^2),x,
algorithm="fricas")

[Out]

log(x^2 - 1) + log(-(x^3 - 2*x^2*log(2) - (x^2 - 1)*log(log(x^2) + 2) - x)/(x^2 - 1))

Sympy [A] (verification not implemented)

Time = 0.59 (sec) , antiderivative size = 34, normalized size of antiderivative = 1.13 \[ \int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+\left (x-3 x^3+2 x^2 \log (4)\right ) \log \left (x^2\right )+\left (4 x^2+2 x^2 \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )}{2 x^2-2 x^4+2 x^3 \log (4)+\left (x^2-x^4+x^3 \log (4)\right ) \log \left (x^2\right )+\left (-2 x+2 x^3+\left (-x+x^3\right ) \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )} \, dx=\log {\left (x^{2} - 1 \right )} + \log {\left (\log {\left (\log {\left (x^{2} \right )} + 2 \right )} + \frac {- x^{3} + 2 x^{2} \log {\left (2 \right )} + x}{x^{2} - 1} \right )} \]

[In]

integrate(((2*x**2*ln(x**2)+4*x**2)*ln(2+ln(x**2))+(4*x**2*ln(2)-3*x**3+x)*ln(x**2)+8*x**2*ln(2)-6*x**3+2*x**2
+2*x-2)/(((x**3-x)*ln(x**2)+2*x**3-2*x)*ln(2+ln(x**2))+(2*x**3*ln(2)-x**4+x**2)*ln(x**2)+4*x**3*ln(2)-2*x**4+2
*x**2),x)

[Out]

log(x**2 - 1) + log(log(log(x**2) + 2) + (-x**3 + 2*x**2*log(2) + x)/(x**2 - 1))

Maxima [A] (verification not implemented)

none

Time = 0.32 (sec) , antiderivative size = 47, normalized size of antiderivative = 1.57 \[ \int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+\left (x-3 x^3+2 x^2 \log (4)\right ) \log \left (x^2\right )+\left (4 x^2+2 x^2 \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )}{2 x^2-2 x^4+2 x^3 \log (4)+\left (x^2-x^4+x^3 \log (4)\right ) \log \left (x^2\right )+\left (-2 x+2 x^3+\left (-x+x^3\right ) \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )} \, dx=\log \left (x + 1\right ) + \log \left (x - 1\right ) + \log \left (-\frac {x^{3} - 3 \, x^{2} \log \left (2\right ) - {\left (x^{2} - 1\right )} \log \left (\log \left (x\right ) + 1\right ) - x + \log \left (2\right )}{x^{2} - 1}\right ) \]

[In]

integrate(((2*x^2*log(x^2)+4*x^2)*log(2+log(x^2))+(4*x^2*log(2)-3*x^3+x)*log(x^2)+8*x^2*log(2)-6*x^3+2*x^2+2*x
-2)/(((x^3-x)*log(x^2)+2*x^3-2*x)*log(2+log(x^2))+(2*x^3*log(2)-x^4+x^2)*log(x^2)+4*x^3*log(2)-2*x^4+2*x^2),x,
algorithm="maxima")

[Out]

log(x + 1) + log(x - 1) + log(-(x^3 - 3*x^2*log(2) - (x^2 - 1)*log(log(x) + 1) - x + log(2))/(x^2 - 1))

Giac [A] (verification not implemented)

none

Time = 0.30 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.17 \[ \int \frac {-2+2 x+2 x^2-6 x^3+4 x^2 \log (4)+\left (x-3 x^3+2 x^2 \log (4)\right ) \log \left (x^2\right )+\left (4 x^2+2 x^2 \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )}{2 x^2-2 x^4+2 x^3 \log (4)+\left (x^2-x^4+x^3 \log (4)\right ) \log \left (x^2\right )+\left (-2 x+2 x^3+\left (-x+x^3\right ) \log \left (x^2\right )\right ) \log \left (2+\log \left (x^2\right )\right )} \, dx=\log \left (-x^{3} + 2 \, x^{2} \log \left (2\right ) + x^{2} \log \left (\log \left (x^{2}\right ) + 2\right ) + x - \log \left (\log \left (x^{2}\right ) + 2\right )\right ) \]

[In]

integrate(((2*x^2*log(x^2)+4*x^2)*log(2+log(x^2))+(4*x^2*log(2)-3*x^3+x)*log(x^2)+8*x^2*log(2)-6*x^3+2*x^2+2*x
-2)/(((x^3-x)*log(x^2)+2*x^3-2*x)*log(2+log(x^2))+(2*x^3*log(2)-x^4+x^2)*log(x^2)+4*x^3*log(2)-2*x^4+2*x^2),x,
algorithm="giac")

[Out]

log(-x^3 + 2*x^2*log(2) + x^2*log(log(x^2) + 2) + x - log(log(x^2) + 2))

Mupad [F(-1)]

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

[In]

int((2*x + log(x^2)*(x + 4*x^2*log(2) - 3*x^3) + log(log(x^2) + 2)*(2*x^2*log(x^2) + 4*x^2) + 8*x^2*log(2) + 2
*x^2 - 6*x^3 - 2)/(4*x^3*log(2) - log(log(x^2) + 2)*(2*x + log(x^2)*(x - x^3) - 2*x^3) + log(x^2)*(2*x^3*log(2
) + x^2 - x^4) + 2*x^2 - 2*x^4),x)

[Out]

int((2*x + log(x^2)*(x + 4*x^2*log(2) - 3*x^3) + log(log(x^2) + 2)*(2*x^2*log(x^2) + 4*x^2) + 8*x^2*log(2) + 2
*x^2 - 6*x^3 - 2)/(4*x^3*log(2) - log(log(x^2) + 2)*(2*x + log(x^2)*(x - x^3) - 2*x^3) + log(x^2)*(2*x^3*log(2
) + x^2 - x^4) + 2*x^2 - 2*x^4), x)