3.7.11 \(\int \frac {-1+4 x-4 x^2+4 x^4}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} (1+2 x^2) (-1-4 x+12 x^2-8 x^3+4 x^4)} \, dx\)

Optimal. Leaf size=48 \[ \frac {\tanh ^{-1}\left (\frac {\sqrt {\frac {2}{3}} x-\sqrt {\frac {2}{3}}}{\sqrt {\frac {1-2 x^2}{2 x^2+1}}}\right )}{\sqrt {6}} \]

________________________________________________________________________________________

Rubi [F]  time = 2.58, 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 {-1+4 x-4 x^2+4 x^4}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \left (1+2 x^2\right ) \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx \end {gather*}

Verification is not applicable to the result.

[In]

Int[(-1 + 4*x - 4*x^2 + 4*x^4)/(Sqrt[(1 - 2*x^2)/(1 + 2*x^2)]*(1 + 2*x^2)*(-1 - 4*x + 12*x^2 - 8*x^3 + 4*x^4))
,x]

[Out]

(Sqrt[1 - 2*x^2]*EllipticF[ArcSin[Sqrt[2]*x], -1])/(Sqrt[2]*Sqrt[(1 - 2*x^2)/(1 + 2*x^2)]*Sqrt[1 + 2*x^2]) + (
8*Sqrt[1 - 2*x^2]*Defer[Int][x/(Sqrt[1 - 4*x^4]*(-1 - 4*x + 12*x^2 - 8*x^3 + 4*x^4)), x])/(Sqrt[(1 - 2*x^2)/(1
+ 2*x^2)]*Sqrt[1 + 2*x^2]) - (16*Sqrt[1 - 2*x^2]*Defer[Int][x^2/(Sqrt[1 - 4*x^4]*(-1 - 4*x + 12*x^2 - 8*x^3 +
4*x^4)), x])/(Sqrt[(1 - 2*x^2)/(1 + 2*x^2)]*Sqrt[1 + 2*x^2]) + (8*Sqrt[1 - 2*x^2]*Defer[Int][x^3/(Sqrt[1 - 4*
x^4]*(-1 - 4*x + 12*x^2 - 8*x^3 + 4*x^4)), x])/(Sqrt[(1 - 2*x^2)/(1 + 2*x^2)]*Sqrt[1 + 2*x^2])

Rubi steps

\begin {align*} \int \frac {-1+4 x-4 x^2+4 x^4}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \left (1+2 x^2\right ) \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx &=\frac {\sqrt {1-2 x^2} \int \frac {-1+4 x-4 x^2+4 x^4}{\sqrt {1-2 x^2} \sqrt {1+2 x^2} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}\\ &=\frac {\sqrt {1-2 x^2} \int \left (\frac {1}{\sqrt {1-2 x^2} \sqrt {1+2 x^2}}+\frac {8 x \left (1-2 x+x^2\right )}{\sqrt {1-2 x^2} \sqrt {1+2 x^2} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )}\right ) \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}\\ &=\frac {\sqrt {1-2 x^2} \int \frac {1}{\sqrt {1-2 x^2} \sqrt {1+2 x^2}} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}+\frac {\left (8 \sqrt {1-2 x^2}\right ) \int \frac {x \left (1-2 x+x^2\right )}{\sqrt {1-2 x^2} \sqrt {1+2 x^2} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}\\ &=\frac {\sqrt {1-2 x^2} \int \frac {1}{\sqrt {1-4 x^4}} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}+\frac {\left (8 \sqrt {1-2 x^2}\right ) \int \frac {(-1+x)^2 x}{\sqrt {1-2 x^2} \sqrt {1+2 x^2} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}\\ &=\frac {\sqrt {1-2 x^2} F\left (\left .\sin ^{-1}\left (\sqrt {2} x\right )\right |-1\right )}{\sqrt {2} \sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}+\frac {\left (8 \sqrt {1-2 x^2}\right ) \int \frac {(1-x)^2 x}{\sqrt {1-4 x^4} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}\\ &=\frac {\sqrt {1-2 x^2} F\left (\left .\sin ^{-1}\left (\sqrt {2} x\right )\right |-1\right )}{\sqrt {2} \sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}+\frac {\left (8 \sqrt {1-2 x^2}\right ) \int \left (\frac {x}{\sqrt {1-4 x^4} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )}-\frac {2 x^2}{\sqrt {1-4 x^4} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )}+\frac {x^3}{\sqrt {1-4 x^4} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )}\right ) \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}\\ &=\frac {\sqrt {1-2 x^2} F\left (\left .\sin ^{-1}\left (\sqrt {2} x\right )\right |-1\right )}{\sqrt {2} \sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}+\frac {\left (8 \sqrt {1-2 x^2}\right ) \int \frac {x}{\sqrt {1-4 x^4} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}+\frac {\left (8 \sqrt {1-2 x^2}\right ) \int \frac {x^3}{\sqrt {1-4 x^4} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}-\frac {\left (16 \sqrt {1-2 x^2}\right ) \int \frac {x^2}{\sqrt {1-4 x^4} \left (-1-4 x+12 x^2-8 x^3+4 x^4\right )} \, dx}{\sqrt {\frac {1-2 x^2}{1+2 x^2}} \sqrt {1+2 x^2}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [C]  time = 13.04, size = 10080, normalized size = 210.00 \begin {gather*} \text {Result too large to show} \end {gather*}

Warning: Unable to verify antiderivative.

[In]

Integrate[(-1 + 4*x - 4*x^2 + 4*x^4)/(Sqrt[(1 - 2*x^2)/(1 + 2*x^2)]*(1 + 2*x^2)*(-1 - 4*x + 12*x^2 - 8*x^3 + 4
*x^4)),x]

[Out]

Result too large to show

________________________________________________________________________________________

IntegrateAlgebraic [A]  time = 0.31, size = 48, normalized size = 1.00 \begin {gather*} \frac {\tanh ^{-1}\left (\frac {-\sqrt {\frac {2}{3}}+\sqrt {\frac {2}{3}} x}{\sqrt {\frac {1-2 x^2}{1+2 x^2}}}\right )}{\sqrt {6}} \end {gather*}

Antiderivative was successfully verified.

[In]

IntegrateAlgebraic[(-1 + 4*x - 4*x^2 + 4*x^4)/(Sqrt[(1 - 2*x^2)/(1 + 2*x^2)]*(1 + 2*x^2)*(-1 - 4*x + 12*x^2 -
8*x^3 + 4*x^4)),x]

[Out]

ArcTanh[(-Sqrt[2/3] + Sqrt[2/3]*x)/Sqrt[(1 - 2*x^2)/(1 + 2*x^2)]]/Sqrt[6]

________________________________________________________________________________________

fricas [B]  time = 0.55, size = 150, normalized size = 3.12 \begin {gather*} \frac {1}{24} \, \sqrt {6} \log \left (-\frac {16 \, x^{8} - 64 \, x^{7} - 32 \, x^{6} + 160 \, x^{5} + 8 \, x^{4} - 80 \, x^{3} + 40 \, x^{2} + 4 \, \sqrt {6} {\left (8 \, x^{7} - 24 \, x^{6} + 20 \, x^{5} - 20 \, x^{4} + 26 \, x^{3} - 14 \, x^{2} + 9 \, x - 5\right )} \sqrt {-\frac {2 \, x^{2} - 1}{2 \, x^{2} + 1}} - 88 \, x + 49}{16 \, x^{8} - 64 \, x^{7} + 160 \, x^{6} - 224 \, x^{5} + 200 \, x^{4} - 80 \, x^{3} - 8 \, x^{2} + 8 \, x + 1}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

1/24*sqrt(6)*log(-(16*x^8 - 64*x^7 - 32*x^6 + 160*x^5 + 8*x^4 - 80*x^3 + 40*x^2 + 4*sqrt(6)*(8*x^7 - 24*x^6 +
20*x^5 - 20*x^4 + 26*x^3 - 14*x^2 + 9*x - 5)*sqrt(-(2*x^2 - 1)/(2*x^2 + 1)) - 88*x + 49)/(16*x^8 - 64*x^7 + 16
0*x^6 - 224*x^5 + 200*x^4 - 80*x^3 - 8*x^2 + 8*x + 1))

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate((4*x^4 - 4*x^2 + 4*x - 1)/((4*x^4 - 8*x^3 + 12*x^2 - 4*x - 1)*(2*x^2 + 1)*sqrt(-(2*x^2 - 1)/(2*x^2 +
1))), x)

________________________________________________________________________________________

maple [C]  time = 0.46, size = 168, normalized size = 3.50

method	result	size
trager	\(-\frac {\RootOf \left (\textit {\_Z}^{2}-6\right ) \ln \left (\frac {4 \RootOf \left (\textit {\_Z}^{2}-6\right ) x^{4}-8 \RootOf \left (\textit {\_Z}^{2}-6\right ) x^{3}-24 \sqrt {-\frac {2 x^{2}-1}{2 x^{2}+1}}\, x^{3}+24 \sqrt {-\frac {2 x^{2}-1}{2 x^{2}+1}}\, x^{2}-4 \RootOf \left (\textit {\_Z}^{2}-6\right ) x -12 x \sqrt {-\frac {2 x^{2}-1}{2 x^{2}+1}}+5 \RootOf \left (\textit {\_Z}^{2}-6\right )+12 \sqrt {-\frac {2 x^{2}-1}{2 x^{2}+1}}}{4 x^{4}-8 x^{3}+12 x^{2}-4 x -1}\right )}{12}\)	\(168\)
default	\(-\frac {\left (2 x^{2}-1\right ) \left (24 \sqrt {2}\, \sqrt {-2 x^{2}+1}\, \sqrt {2 x^{2}+1}\, \EllipticF \left (\sqrt {2}\, x , i\right )+\left (\munderset {\underline {\hspace {1.25 ex}}\alpha =\RootOf \left (4 \textit {\_Z}^{4}-8 \textit {\_Z}^{3}+12 \textit {\_Z}^{2}-4 \textit {\_Z} -1\right )}{\sum }\frac {\left (2 \underline {\hspace {1.25 ex}}\alpha ^{3}-2 \underline {\hspace {1.25 ex}}\alpha ^{2}+\underline {\hspace {1.25 ex}}\alpha -1\right ) \left (16 \sqrt {2}\, \sqrt {-2 \underline {\hspace {1.25 ex}}\alpha ^{3}+3 \underline {\hspace {1.25 ex}}\alpha ^{2}-\underline {\hspace {1.25 ex}}\alpha }\, \sqrt {-2 x^{2}+1}\, \sqrt {2 x^{2}+1}\, \EllipticPi \left (\sqrt {2}\, x , -8 \underline {\hspace {1.25 ex}}\alpha ^{3}+18 \underline {\hspace {1.25 ex}}\alpha ^{2}-28 \underline {\hspace {1.25 ex}}\alpha +14, \frac {\sqrt {-2}\, \sqrt {2}}{2}\right ) \underline {\hspace {1.25 ex}}\alpha ^{3}-32 \sqrt {2}\, \sqrt {-2 \underline {\hspace {1.25 ex}}\alpha ^{3}+3 \underline {\hspace {1.25 ex}}\alpha ^{2}-\underline {\hspace {1.25 ex}}\alpha }\, \sqrt {-2 x^{2}+1}\, \sqrt {2 x^{2}+1}\, \EllipticPi \left (\sqrt {2}\, x , -8 \underline {\hspace {1.25 ex}}\alpha ^{3}+18 \underline {\hspace {1.25 ex}}\alpha ^{2}-28 \underline {\hspace {1.25 ex}}\alpha +14, \frac {\sqrt {-2}\, \sqrt {2}}{2}\right ) \underline {\hspace {1.25 ex}}\alpha ^{2}+48 \sqrt {2}\, \sqrt {-2 \underline {\hspace {1.25 ex}}\alpha ^{3}+3 \underline {\hspace {1.25 ex}}\alpha ^{2}-\underline {\hspace {1.25 ex}}\alpha }\, \sqrt {-2 x^{2}+1}\, \sqrt {2 x^{2}+1}\, \EllipticPi \left (\sqrt {2}\, x , -8 \underline {\hspace {1.25 ex}}\alpha ^{3}+18 \underline {\hspace {1.25 ex}}\alpha ^{2}-28 \underline {\hspace {1.25 ex}}\alpha +14, \frac {\sqrt {-2}\, \sqrt {2}}{2}\right ) \underline {\hspace {1.25 ex}}\alpha -16 \sqrt {2}\, \sqrt {-2 x^{2}+1}\, \sqrt {2 x^{2}+1}\, \EllipticPi \left (\sqrt {2}\, x , -8 \underline {\hspace {1.25 ex}}\alpha ^{3}+18 \underline {\hspace {1.25 ex}}\alpha ^{2}-28 \underline {\hspace {1.25 ex}}\alpha +14, \frac {\sqrt {-2}\, \sqrt {2}}{2}\right ) \sqrt {-2 \underline {\hspace {1.25 ex}}\alpha ^{3}+3 \underline {\hspace {1.25 ex}}\alpha ^{2}-\underline {\hspace {1.25 ex}}\alpha }-\sqrt {4}\, \arctanh \left (\frac {2 \underline {\hspace {1.25 ex}}\alpha ^{2} \left (4 \underline {\hspace {1.25 ex}}\alpha ^{3}-9 \underline {\hspace {1.25 ex}}\alpha ^{2}+x^{2}+14 \underline {\hspace {1.25 ex}}\alpha -7\right )}{\sqrt {-2 \underline {\hspace {1.25 ex}}\alpha ^{3}+3 \underline {\hspace {1.25 ex}}\alpha ^{2}-\underline {\hspace {1.25 ex}}\alpha }\, \sqrt {-4 x^{4}+1}}\right ) \sqrt {-4 x^{4}+1}\right )}{\sqrt {-2 \underline {\hspace {1.25 ex}}\alpha ^{3}+3 \underline {\hspace {1.25 ex}}\alpha ^{2}-\underline {\hspace {1.25 ex}}\alpha }\, \sqrt {-4 x^{4}+1}}\right ) \sqrt {-4 x^{4}+1}\right )}{48 \sqrt {-\frac {2 x^{2}-1}{2 x^{2}+1}}\, \sqrt {-\left (2 x^{2}+1\right ) \left (2 x^{2}-1\right )}\, \sqrt {-4 x^{4}+1}}\)	\(505\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-1/12*RootOf(_Z^2-6)*ln((4*RootOf(_Z^2-6)*x^4-8*RootOf(_Z^2-6)*x^3-24*(-(2*x^2-1)/(2*x^2+1))^(1/2)*x^3+24*(-(2
*x^2-1)/(2*x^2+1))^(1/2)*x^2-4*RootOf(_Z^2-6)*x-12*x*(-(2*x^2-1)/(2*x^2+1))^(1/2)+5*RootOf(_Z^2-6)+12*(-(2*x^2
-1)/(2*x^2+1))^(1/2))/(4*x^4-8*x^3+12*x^2-4*x-1))

________________________________________________________________________________________

maxima [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {4 \, x^{4} - 4 \, x^{2} + 4 \, x - 1}{{\left (4 \, x^{4} - 8 \, x^{3} + 12 \, x^{2} - 4 \, x - 1\right )} {\left (2 \, x^{2} + 1\right )} \sqrt {-\frac {2 \, x^{2} - 1}{2 \, x^{2} + 1}}}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate((4*x^4 - 4*x^2 + 4*x - 1)/((4*x^4 - 8*x^3 + 12*x^2 - 4*x - 1)*(2*x^2 + 1)*sqrt(-(2*x^2 - 1)/(2*x^2 +
1))), x)

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.02 \begin {gather*} -\int \frac {4\,x^4-4\,x^2+4\,x-1}{\left (2\,x^2+1\right )\,\sqrt {-\frac {2\,x^2-1}{2\,x^2+1}}\,\left (-4\,x^4+8\,x^3-12\,x^2+4\,x+1\right )} \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(-(4*x - 4*x^2 + 4*x^4 - 1)/((2*x^2 + 1)*(-(2*x^2 - 1)/(2*x^2 + 1))^(1/2)*(4*x - 12*x^2 + 8*x^3 - 4*x^4 + 1
)),x)

[Out]

-int((4*x - 4*x^2 + 4*x^4 - 1)/((2*x^2 + 1)*(-(2*x^2 - 1)/(2*x^2 + 1))^(1/2)*(4*x - 12*x^2 + 8*x^3 - 4*x^4 + 1
)), x)

________________________________________________________________________________________

sympy [F(-1)]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Timed out} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((4*x**4-4*x**2+4*x-1)/((-2*x**2+1)/(2*x**2+1))**(1/2)/(2*x**2+1)/(4*x**4-8*x**3+12*x**2-4*x-1),x)

[Out]

Timed out

________________________________________________________________________________________