3.98.40 \(\int \frac {32 x^2+24 x^3-8 x^4+(-8 x+7 x^2+3 x^3-2 x^4) \log (1-2 x+x^2) \log (\log ^4(1-2 x+x^2))}{(-5-5 x+5 x^2+5 x^3) \log (1-2 x+x^2)} \, dx\)

Optimal. Leaf size=28 \[ \frac {(4-x) x^2 \log \left (\log ^4\left ((1-x)^2\right )\right )}{5 (1+x)} \]

________________________________________________________________________________________

Rubi [F]  time = 1.13, antiderivative size = 0, normalized size of antiderivative = 0.00, number of steps used = 0, number of rules used = 0, integrand size = 0, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.000, Rules used = {} \begin {gather*} \int \frac {32 x^2+24 x^3-8 x^4+\left (-8 x+7 x^2+3 x^3-2 x^4\right ) \log \left (1-2 x+x^2\right ) \log \left (\log ^4\left (1-2 x+x^2\right )\right )}{\left (-5-5 x+5 x^2+5 x^3\right ) \log \left (1-2 x+x^2\right )} \, dx \end {gather*}

Verification is not applicable to the result.

[In]

Int[(32*x^2 + 24*x^3 - 8*x^4 + (-8*x + 7*x^2 + 3*x^3 - 2*x^4)*Log[1 - 2*x + x^2]*Log[Log[1 - 2*x + x^2]^4])/((
-5 - 5*x + 5*x^2 + 5*x^3)*Log[1 - 2*x + x^2]),x]

[Out]

(8*(1 - x)*ExpIntegralEi[Log[(-1 + x)^2]/2])/(5*Sqrt[(-1 + x)^2]) + (6*Log[Log[(-1 + x)^2]])/5 - (1 - x)*Log[L
og[(-1 + x)^2]^4] - (4*LogIntegral[(-1 + x)^2])/5 - 4*Defer[Int][1/((1 + x)*Log[(-1 + x)^2]), x] - (2*Defer[In
t][x*Log[Log[(-1 + x)^2]^4], x])/5 - Defer[Int][Log[Log[(-1 + x)^2]^4]/(1 + x)^2, x]

Rubi steps

\begin {gather*} \begin {aligned} \text {integral} &=\int \left (\frac {32 x^2}{5 (-1+x) (1+x)^2 \log \left ((-1+x)^2\right )}+\frac {24 x^3}{5 (-1+x) (1+x)^2 \log \left ((-1+x)^2\right )}-\frac {8 x^4}{5 (-1+x) (1+x)^2 \log \left ((-1+x)^2\right )}-\frac {x \left (-8-x+2 x^2\right ) \log \left (\log ^4\left ((-1+x)^2\right )\right )}{5 (1+x)^2}\right ) \, dx\\ &=-\left (\frac {1}{5} \int \frac {x \left (-8-x+2 x^2\right ) \log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2} \, dx\right )-\frac {8}{5} \int \frac {x^4}{(-1+x) (1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {x^3}{(-1+x) (1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {32}{5} \int \frac {x^2}{(-1+x) (1+x)^2 \log \left ((-1+x)^2\right )} \, dx\\ &=-\left (\frac {1}{5} \int \left (-5 \log \left (\log ^4\left ((-1+x)^2\right )\right )+2 x \log \left (\log ^4\left ((-1+x)^2\right )\right )+\frac {5 \log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2}\right ) \, dx\right )-\frac {8}{5} \int \left (-\frac {1}{\log \left ((-1+x)^2\right )}+\frac {1}{4 (-1+x) \log \left ((-1+x)^2\right )}+\frac {x}{\log \left ((-1+x)^2\right )}-\frac {1}{2 (1+x)^2 \log \left ((-1+x)^2\right )}+\frac {7}{4 (1+x) \log \left ((-1+x)^2\right )}\right ) \, dx+\frac {24}{5} \int \left (\frac {1}{\log \left ((-1+x)^2\right )}+\frac {1}{4 (-1+x) \log \left ((-1+x)^2\right )}+\frac {1}{2 (1+x)^2 \log \left ((-1+x)^2\right )}-\frac {5}{4 (1+x) \log \left ((-1+x)^2\right )}\right ) \, dx+\frac {32}{5} \int \left (\frac {1}{4 (-1+x) \log \left ((-1+x)^2\right )}-\frac {1}{2 (1+x)^2 \log \left ((-1+x)^2\right )}+\frac {3}{4 (1+x) \log \left ((-1+x)^2\right )}\right ) \, dx\\ &=-\left (\frac {2}{5} \int \frac {1}{(-1+x) \log \left ((-1+x)^2\right )} \, dx\right )-\frac {2}{5} \int x \log \left (\log ^4\left ((-1+x)^2\right )\right ) \, dx+\frac {4}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {6}{5} \int \frac {1}{(-1+x) \log \left ((-1+x)^2\right )} \, dx+\frac {8}{5} \int \frac {1}{\log \left ((-1+x)^2\right )} \, dx+\frac {8}{5} \int \frac {1}{(-1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {8}{5} \int \frac {x}{\log \left ((-1+x)^2\right )} \, dx+\frac {12}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {14}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {16}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {1}{\log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-6 \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx+\int \log \left (\log ^4\left ((-1+x)^2\right )\right ) \, dx-\int \frac {\log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2} \, dx\\ &=-\left (\frac {2}{5} \int x \log \left (\log ^4\left ((-1+x)^2\right )\right ) \, dx\right )-\frac {2}{5} \operatorname {Subst}\left (\int \frac {1}{x \log \left (x^2\right )} \, dx,x,-1+x\right )+\frac {4}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {6}{5} \operatorname {Subst}\left (\int \frac {1}{x \log \left (x^2\right )} \, dx,x,-1+x\right )-\frac {8}{5} \int \left (\frac {1}{\log \left ((-1+x)^2\right )}+\frac {-1+x}{\log \left ((-1+x)^2\right )}\right ) \, dx+\frac {8}{5} \operatorname {Subst}\left (\int \frac {1}{\log \left (x^2\right )} \, dx,x,-1+x\right )+\frac {8}{5} \operatorname {Subst}\left (\int \frac {1}{x \log \left (x^2\right )} \, dx,x,-1+x\right )+\frac {12}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {14}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {16}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \operatorname {Subst}\left (\int \frac {1}{\log \left (x^2\right )} \, dx,x,-1+x\right )-6 \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\int \frac {\log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2} \, dx+\operatorname {Subst}\left (\int \log \left (\log ^4\left (x^2\right )\right ) \, dx,x,-1+x\right )\\ &=(-1+x) \log \left (\log ^4\left ((-1+x)^2\right )\right )-\frac {1}{5} \operatorname {Subst}\left (\int \frac {1}{x} \, dx,x,\log \left ((-1+x)^2\right )\right )-\frac {2}{5} \int x \log \left (\log ^4\left ((-1+x)^2\right )\right ) \, dx+\frac {3}{5} \operatorname {Subst}\left (\int \frac {1}{x} \, dx,x,\log \left ((-1+x)^2\right )\right )+\frac {4}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {4}{5} \operatorname {Subst}\left (\int \frac {1}{x} \, dx,x,\log \left ((-1+x)^2\right )\right )-\frac {8}{5} \int \frac {1}{\log \left ((-1+x)^2\right )} \, dx-\frac {8}{5} \int \frac {-1+x}{\log \left ((-1+x)^2\right )} \, dx+\frac {12}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {14}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {16}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-6 \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-8 \operatorname {Subst}\left (\int \frac {1}{\log \left (x^2\right )} \, dx,x,-1+x\right )+\frac {(4 (-1+x)) \operatorname {Subst}\left (\int \frac {e^{x/2}}{x} \, dx,x,\log \left ((-1+x)^2\right )\right )}{5 \sqrt {(-1+x)^2}}+\frac {(12 (-1+x)) \operatorname {Subst}\left (\int \frac {e^{x/2}}{x} \, dx,x,\log \left ((-1+x)^2\right )\right )}{5 \sqrt {(-1+x)^2}}-\int \frac {\log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2} \, dx\\ &=-\frac {16 (1-x) \text {Ei}\left (\frac {1}{2} \log \left ((-1+x)^2\right )\right )}{5 \sqrt {(-1+x)^2}}+\frac {6}{5} \log \left (\log \left ((-1+x)^2\right )\right )+(-1+x) \log \left (\log ^4\left ((-1+x)^2\right )\right )-\frac {2}{5} \int x \log \left (\log ^4\left ((-1+x)^2\right )\right ) \, dx+\frac {4}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {8}{5} \operatorname {Subst}\left (\int \frac {1}{\log \left (x^2\right )} \, dx,x,-1+x\right )-\frac {8}{5} \operatorname {Subst}\left (\int \frac {x}{\log \left (x^2\right )} \, dx,x,-1+x\right )+\frac {12}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {14}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {16}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-6 \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {(4 (-1+x)) \operatorname {Subst}\left (\int \frac {e^{x/2}}{x} \, dx,x,\log \left ((-1+x)^2\right )\right )}{\sqrt {(-1+x)^2}}-\int \frac {\log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2} \, dx\\ &=\frac {4 (1-x) \text {Ei}\left (\frac {1}{2} \log \left ((-1+x)^2\right )\right )}{5 \sqrt {(-1+x)^2}}+\frac {6}{5} \log \left (\log \left ((-1+x)^2\right )\right )+(-1+x) \log \left (\log ^4\left ((-1+x)^2\right )\right )-\frac {2}{5} \int x \log \left (\log ^4\left ((-1+x)^2\right )\right ) \, dx+\frac {4}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {4}{5} \operatorname {Subst}\left (\int \frac {1}{\log (x)} \, dx,x,(-1+x)^2\right )+\frac {12}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {14}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {16}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-6 \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {(4 (-1+x)) \operatorname {Subst}\left (\int \frac {e^{x/2}}{x} \, dx,x,\log \left ((-1+x)^2\right )\right )}{5 \sqrt {(-1+x)^2}}-\int \frac {\log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2} \, dx\\ &=\frac {8 (1-x) \text {Ei}\left (\frac {1}{2} \log \left ((-1+x)^2\right )\right )}{5 \sqrt {(-1+x)^2}}+\frac {6}{5} \log \left (\log \left ((-1+x)^2\right )\right )+(-1+x) \log \left (\log ^4\left ((-1+x)^2\right )\right )-\frac {4}{5} \text {li}\left ((-1+x)^2\right )-\frac {2}{5} \int x \log \left (\log ^4\left ((-1+x)^2\right )\right ) \, dx+\frac {4}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {12}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx-\frac {14}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\frac {16}{5} \int \frac {1}{(1+x)^2 \log \left ((-1+x)^2\right )} \, dx+\frac {24}{5} \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-6 \int \frac {1}{(1+x) \log \left ((-1+x)^2\right )} \, dx-\int \frac {\log \left (\log ^4\left ((-1+x)^2\right )\right )}{(1+x)^2} \, dx\\ \end {aligned} \end {gather*}

________________________________________________________________________________________

Mathematica [A]  time = 0.16, size = 43, normalized size = 1.54 \begin {gather*} \frac {1}{5} \left (-20 \log \left (\log \left ((-1+x)^2\right )\right )-\frac {\left (-5-5 x-4 x^2+x^3\right ) \log \left (\log ^4\left ((-1+x)^2\right )\right )}{1+x}\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(32*x^2 + 24*x^3 - 8*x^4 + (-8*x + 7*x^2 + 3*x^3 - 2*x^4)*Log[1 - 2*x + x^2]*Log[Log[1 - 2*x + x^2]^
4])/((-5 - 5*x + 5*x^2 + 5*x^3)*Log[1 - 2*x + x^2]),x]

[Out]

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

________________________________________________________________________________________

fricas [A]  time = 0.78, size = 28, normalized size = 1.00 \begin {gather*} -\frac {{\left (x^{3} - 4 \, x^{2}\right )} \log \left (\log \left (x^{2} - 2 \, x + 1\right )^{4}\right )}{5 \, {\left (x + 1\right )}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((-2*x^4+3*x^3+7*x^2-8*x)*log(x^2-2*x+1)*log(log(x^2-2*x+1)^4)-8*x^4+24*x^3+32*x^2)/(5*x^3+5*x^2-5*x
-5)/log(x^2-2*x+1),x, algorithm="fricas")

[Out]

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

________________________________________________________________________________________

giac [A]  time = 0.63, size = 41, normalized size = 1.46 \begin {gather*} -\frac {1}{5} \, {\left (x^{2} - 5 \, x - \frac {5}{x + 1}\right )} \log \left (\log \left (x^{2} - 2 \, x + 1\right )^{4}\right ) - 4 \, \log \left (\log \left (x^{2} - 2 \, x + 1\right )\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((-2*x^4+3*x^3+7*x^2-8*x)*log(x^2-2*x+1)*log(log(x^2-2*x+1)^4)-8*x^4+24*x^3+32*x^2)/(5*x^3+5*x^2-5*x
-5)/log(x^2-2*x+1),x, algorithm="giac")

[Out]

-1/5*(x^2 - 5*x - 5/(x + 1))*log(log(x^2 - 2*x + 1)^4) - 4*log(log(x^2 - 2*x + 1))

________________________________________________________________________________________

maple [F]  time = 0.07, size = 0, normalized size = 0.00 \[\int \frac {\left (-2 x^{4}+3 x^{3}+7 x^{2}-8 x \right ) \ln \left (x^{2}-2 x +1\right ) \ln \left (\ln \left (x^{2}-2 x +1\right )^{4}\right )-8 x^{4}+24 x^{3}+32 x^{2}}{\left (5 x^{3}+5 x^{2}-5 x -5\right ) \ln \left (x^{2}-2 x +1\right )}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(((-2*x^4+3*x^3+7*x^2-8*x)*ln(x^2-2*x+1)*ln(ln(x^2-2*x+1)^4)-8*x^4+24*x^3+32*x^2)/(5*x^3+5*x^2-5*x-5)/ln(x^
2-2*x+1),x)

[Out]

int(((-2*x^4+3*x^3+7*x^2-8*x)*ln(x^2-2*x+1)*ln(ln(x^2-2*x+1)^4)-8*x^4+24*x^3+32*x^2)/(5*x^3+5*x^2-5*x-5)/ln(x^
2-2*x+1),x)

________________________________________________________________________________________

maxima [B]  time = 0.49, size = 45, normalized size = 1.61 \begin {gather*} -\frac {4 \, {\left (x^{3} \log \relax (2) - 4 \, x^{2} \log \relax (2) - 5 \, x \log \relax (2) + {\left (x^{3} - 4 \, x^{2}\right )} \log \left (\log \left (x - 1\right )\right ) - 5 \, \log \relax (2)\right )}}{5 \, {\left (x + 1\right )}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((-2*x^4+3*x^3+7*x^2-8*x)*log(x^2-2*x+1)*log(log(x^2-2*x+1)^4)-8*x^4+24*x^3+32*x^2)/(5*x^3+5*x^2-5*x
-5)/log(x^2-2*x+1),x, algorithm="maxima")

[Out]

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

________________________________________________________________________________________

mupad [B]  time = 6.17, size = 27, normalized size = 0.96 \begin {gather*} -\frac {x^2\,\ln \left ({\ln \left (x^2-2\,x+1\right )}^4\right )\,\left (x-4\right )}{5\,\left (x+1\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(-(32*x^2 + 24*x^3 - 8*x^4 - log(log(x^2 - 2*x + 1)^4)*log(x^2 - 2*x + 1)*(8*x - 7*x^2 - 3*x^3 + 2*x^4))/(l
og(x^2 - 2*x + 1)*(5*x - 5*x^2 - 5*x^3 + 5)),x)

[Out]

-(x^2*log(log(x^2 - 2*x + 1)^4)*(x - 4))/(5*(x + 1))

________________________________________________________________________________________

sympy [B]  time = 0.50, size = 44, normalized size = 1.57 \begin {gather*} - 4 \log {\left (\log {\left (x^{2} - 2 x + 1 \right )} \right )} + \frac {\left (- x^{3} + 4 x^{2} + 5 x + 5\right ) \log {\left (\log {\left (x^{2} - 2 x + 1 \right )}^{4} \right )}}{5 x + 5} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(((-2*x**4+3*x**3+7*x**2-8*x)*ln(x**2-2*x+1)*ln(ln(x**2-2*x+1)**4)-8*x**4+24*x**3+32*x**2)/(5*x**3+5*
x**2-5*x-5)/ln(x**2-2*x+1),x)

[Out]

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

________________________________________________________________________________________