3.71.24 \(\int \frac {4+2 \log (x^2)+2 \log (x^2) \log (x \log (x^2))-2 \log (x^2) \log (x \log (x^2)) \log (3 \log (x \log (x^2)))}{(-2 x-3 x^2) \log (x^2) \log (x \log (x^2))+2 x \log (x^2) \log (x \log (x^2)) \log (3 \log (x \log (x^2)))} \, dx\)

Optimal. Leaf size=23 \[ \log \left (-3-\frac {2}{x}+\frac {2 \log \left (3 \log \left (x \log \left (x^2\right )\right )\right )}{x}\right ) \]

________________________________________________________________________________________

Rubi [A]  time = 0.92, antiderivative size = 23, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 93, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.032, Rules used = {6688, 6742, 6684} \begin {gather*} \log \left (-2 \log \left (3 \log \left (x \log \left (x^2\right )\right )\right )+3 x+2\right )-\log (x) \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

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

Rule 6684

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

Rule 6688

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

Rule 6742

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

Rubi steps

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

________________________________________________________________________________________

Mathematica [A]  time = 0.42, size = 23, normalized size = 1.00 \begin {gather*} -\log (x)+\log \left (2+3 x-2 \log \left (3 \log \left (x \log \left (x^2\right )\right )\right )\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

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

________________________________________________________________________________________

fricas [A]  time = 0.62, size = 25, normalized size = 1.09 \begin {gather*} -\frac {1}{2} \, \log \left (x^{2}\right ) + \log \left (-3 \, x + 2 \, \log \left (3 \, \log \left (x \log \left (x^{2}\right )\right )\right ) - 2\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int -\frac {2 \, {\left (\log \left (x^{2}\right ) \log \left (x \log \left (x^{2}\right )\right ) \log \left (3 \, \log \left (x \log \left (x^{2}\right )\right )\right ) - \log \left (x^{2}\right ) \log \left (x \log \left (x^{2}\right )\right ) - \log \left (x^{2}\right ) - 2\right )}}{2 \, x \log \left (x^{2}\right ) \log \left (x \log \left (x^{2}\right )\right ) \log \left (3 \, \log \left (x \log \left (x^{2}\right )\right )\right ) - {\left (3 \, x^{2} + 2 \, x\right )} \log \left (x^{2}\right ) \log \left (x \log \left (x^{2}\right )\right )}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate(-2*(log(x^2)*log(x*log(x^2))*log(3*log(x*log(x^2))) - log(x^2)*log(x*log(x^2)) - log(x^2) - 2)/(2*x*
log(x^2)*log(x*log(x^2))*log(3*log(x*log(x^2))) - (3*x^2 + 2*x)*log(x^2)*log(x*log(x^2))), x)

________________________________________________________________________________________

maple [F]  time = 0.02, size = 0, normalized size = 0.00 \[\int \frac {-2 \ln \left (x^{2}\right ) \ln \left (x \ln \left (x^{2}\right )\right ) \ln \left (3 \ln \left (x \ln \left (x^{2}\right )\right )\right )+2 \ln \left (x^{2}\right ) \ln \left (x \ln \left (x^{2}\right )\right )+2 \ln \left (x^{2}\right )+4}{2 x \ln \left (x^{2}\right ) \ln \left (x \ln \left (x^{2}\right )\right ) \ln \left (3 \ln \left (x \ln \left (x^{2}\right )\right )\right )+\left (-3 x^{2}-2 x \right ) \ln \left (x^{2}\right ) \ln \left (x \ln \left (x^{2}\right )\right )}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((-2*ln(x^2)*ln(x*ln(x^2))*ln(3*ln(x*ln(x^2)))+2*ln(x^2)*ln(x*ln(x^2))+2*ln(x^2)+4)/(2*x*ln(x^2)*ln(x*ln(x^
2))*ln(3*ln(x*ln(x^2)))+(-3*x^2-2*x)*ln(x^2)*ln(x*ln(x^2))),x)

[Out]

int((-2*ln(x^2)*ln(x*ln(x^2))*ln(3*ln(x*ln(x^2)))+2*ln(x^2)*ln(x*ln(x^2))+2*ln(x^2)+4)/(2*x*ln(x^2)*ln(x*ln(x^
2))*ln(3*ln(x*ln(x^2)))+(-3*x^2-2*x)*ln(x^2)*ln(x*ln(x^2))),x)

________________________________________________________________________________________

maxima [A]  time = 0.52, size = 22, normalized size = 0.96 \begin {gather*} -\log \relax (x) + \log \left (-\frac {3}{2} \, x + \log \relax (3) + \log \left (\log \relax (2) + \log \relax (x) + \log \left (\log \relax (x)\right )\right ) - 1\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

mupad [B]  time = 4.80, size = 21, normalized size = 0.91 \begin {gather*} \ln \left (\ln \relax (3)-\frac {3\,x}{2}+\ln \left (\ln \left (x\,\ln \left (x^2\right )\right )\right )-1\right )-\ln \relax (x) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

sympy [A]  time = 0.57, size = 22, normalized size = 0.96 \begin {gather*} - \log {\relax (x )} + \log {\left (- \frac {3 x}{2} + \log {\left (3 \log {\left (x \log {\left (x^{2} \right )} \right )} \right )} - 1 \right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________