\(\int \frac {(4+x^2+x^5) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 (-2-x^2+2 x^5)} \, dx\) [2254]

   Optimal result
   Rubi [F]
   Mathematica [A] (verified)
   Maple [F(-1)]
   Fricas [C] (verification not implemented)
   Sympy [F]
   Maxima [F]
   Giac [F]
   Mupad [F(-1)]

Optimal result

Integrand size = 47, antiderivative size = 170 \[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\frac {2 \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x}-\frac {\arctan \left (\frac {2^{3/4} x \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{\sqrt {2} x^2-\sqrt {-2-x^2-2 x^4+2 x^5}}\right )}{\sqrt [4]{2}}-\frac {\text {arctanh}\left (\frac {2 \sqrt [4]{2} x \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{2 x^2+\sqrt {2} \sqrt {-2-x^2-2 x^4+2 x^5}}\right )}{\sqrt [4]{2}} \]

[Out]

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

Rubi [F]

\[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx \]

[In]

Int[((4 + x^2 + x^5)*(-2 - x^2 - 2*x^4 + 2*x^5)^(1/4))/(x^2*(-2 - x^2 + 2*x^5)),x]

[Out]

-2*Defer[Int][(-2 - x^2 - 2*x^4 + 2*x^5)^(1/4)/x^2, x] + Defer[Int][(-2 - x^2 - 2*x^4 + 2*x^5)^(1/4)/(2 + x^2
- 2*x^5), x] + 5*Defer[Int][(x^3*(-2 - x^2 - 2*x^4 + 2*x^5)^(1/4))/(-2 - x^2 + 2*x^5), x]

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

Mathematica [A] (verified)

Time = 0.32 (sec) , antiderivative size = 159, normalized size of antiderivative = 0.94 \[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\frac {2 \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x}-\frac {\arctan \left (\frac {2^{3/4} x \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{\sqrt {2} x^2-\sqrt {-2-x^2-2 x^4+2 x^5}}\right )}{\sqrt [4]{2}}-\frac {\text {arctanh}\left (\frac {2 x \sqrt [4]{-4-2 x^2-4 x^4+4 x^5}}{2 x^2+\sqrt {-4-2 x^2-4 x^4+4 x^5}}\right )}{\sqrt [4]{2}} \]

[In]

Integrate[((4 + x^2 + x^5)*(-2 - x^2 - 2*x^4 + 2*x^5)^(1/4))/(x^2*(-2 - x^2 + 2*x^5)),x]

[Out]

(2*(-2 - x^2 - 2*x^4 + 2*x^5)^(1/4))/x - ArcTan[(2^(3/4)*x*(-2 - x^2 - 2*x^4 + 2*x^5)^(1/4))/(Sqrt[2]*x^2 - Sq
rt[-2 - x^2 - 2*x^4 + 2*x^5])]/2^(1/4) - ArcTanh[(2*x*(-4 - 2*x^2 - 4*x^4 + 4*x^5)^(1/4))/(2*x^2 + Sqrt[-4 - 2
*x^2 - 4*x^4 + 4*x^5])]/2^(1/4)

Maple [F(-1)]

Timed out.

\[\int \frac {\left (x^{5}+x^{2}+4\right ) \left (2 x^{5}-2 x^{4}-x^{2}-2\right )^{\frac {1}{4}}}{x^{2} \left (2 x^{5}-x^{2}-2\right )}d x\]

[In]

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

[Out]

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

Fricas [C] (verification not implemented)

Result contains complex when optimal does not.

Time = 49.95 (sec) , antiderivative size = 543, normalized size of antiderivative = 3.19 \[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\frac {\left (i + 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} x \log \left (\frac {\left (i + 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} \sqrt {2 \, x^{5} - 2 \, x^{4} - x^{2} - 2} x^{2} - 8 i \, \sqrt {2} {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {1}{4}} x^{3} + 8^{\frac {1}{4}} \sqrt {2} {\left (-\left (2 i - 2\right ) \, x^{5} + \left (4 i - 4\right ) \, x^{4} + \left (i - 1\right ) \, x^{2} + 2 i - 2\right )} - 8 \, {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {3}{4}} x}{2 \, x^{5} - x^{2} - 2}\right ) - \left (i - 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} x \log \left (\frac {-\left (i - 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} \sqrt {2 \, x^{5} - 2 \, x^{4} - x^{2} - 2} x^{2} + 8 i \, \sqrt {2} {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {1}{4}} x^{3} + 8^{\frac {1}{4}} \sqrt {2} {\left (\left (2 i + 2\right ) \, x^{5} - \left (4 i + 4\right ) \, x^{4} - \left (i + 1\right ) \, x^{2} - 2 i - 2\right )} - 8 \, {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {3}{4}} x}{2 \, x^{5} - x^{2} - 2}\right ) + \left (i - 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} x \log \left (\frac {\left (i - 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} \sqrt {2 \, x^{5} - 2 \, x^{4} - x^{2} - 2} x^{2} + 8 i \, \sqrt {2} {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {1}{4}} x^{3} + 8^{\frac {1}{4}} \sqrt {2} {\left (-\left (2 i + 2\right ) \, x^{5} + \left (4 i + 4\right ) \, x^{4} + \left (i + 1\right ) \, x^{2} + 2 i + 2\right )} - 8 \, {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {3}{4}} x}{2 \, x^{5} - x^{2} - 2}\right ) - \left (i + 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} x \log \left (\frac {-\left (i + 1\right ) \cdot 8^{\frac {3}{4}} \sqrt {2} \sqrt {2 \, x^{5} - 2 \, x^{4} - x^{2} - 2} x^{2} - 8 i \, \sqrt {2} {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {1}{4}} x^{3} + 8^{\frac {1}{4}} \sqrt {2} {\left (\left (2 i - 2\right ) \, x^{5} - \left (4 i - 4\right ) \, x^{4} - \left (i - 1\right ) \, x^{2} - 2 i + 2\right )} - 8 \, {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {3}{4}} x}{2 \, x^{5} - x^{2} - 2}\right ) + 64 \, {\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {1}{4}}}{32 \, x} \]

[In]

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

[Out]

1/32*((I + 1)*8^(3/4)*sqrt(2)*x*log(((I + 1)*8^(3/4)*sqrt(2)*sqrt(2*x^5 - 2*x^4 - x^2 - 2)*x^2 - 8*I*sqrt(2)*(
2*x^5 - 2*x^4 - x^2 - 2)^(1/4)*x^3 + 8^(1/4)*sqrt(2)*(-(2*I - 2)*x^5 + (4*I - 4)*x^4 + (I - 1)*x^2 + 2*I - 2)
- 8*(2*x^5 - 2*x^4 - x^2 - 2)^(3/4)*x)/(2*x^5 - x^2 - 2)) - (I - 1)*8^(3/4)*sqrt(2)*x*log((-(I - 1)*8^(3/4)*sq
rt(2)*sqrt(2*x^5 - 2*x^4 - x^2 - 2)*x^2 + 8*I*sqrt(2)*(2*x^5 - 2*x^4 - x^2 - 2)^(1/4)*x^3 + 8^(1/4)*sqrt(2)*((
2*I + 2)*x^5 - (4*I + 4)*x^4 - (I + 1)*x^2 - 2*I - 2) - 8*(2*x^5 - 2*x^4 - x^2 - 2)^(3/4)*x)/(2*x^5 - x^2 - 2)
) + (I - 1)*8^(3/4)*sqrt(2)*x*log(((I - 1)*8^(3/4)*sqrt(2)*sqrt(2*x^5 - 2*x^4 - x^2 - 2)*x^2 + 8*I*sqrt(2)*(2*
x^5 - 2*x^4 - x^2 - 2)^(1/4)*x^3 + 8^(1/4)*sqrt(2)*(-(2*I + 2)*x^5 + (4*I + 4)*x^4 + (I + 1)*x^2 + 2*I + 2) -
8*(2*x^5 - 2*x^4 - x^2 - 2)^(3/4)*x)/(2*x^5 - x^2 - 2)) - (I + 1)*8^(3/4)*sqrt(2)*x*log((-(I + 1)*8^(3/4)*sqrt
(2)*sqrt(2*x^5 - 2*x^4 - x^2 - 2)*x^2 - 8*I*sqrt(2)*(2*x^5 - 2*x^4 - x^2 - 2)^(1/4)*x^3 + 8^(1/4)*sqrt(2)*((2*
I - 2)*x^5 - (4*I - 4)*x^4 - (I - 1)*x^2 - 2*I + 2) - 8*(2*x^5 - 2*x^4 - x^2 - 2)^(3/4)*x)/(2*x^5 - x^2 - 2))
+ 64*(2*x^5 - 2*x^4 - x^2 - 2)^(1/4))/x

Sympy [F]

\[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\int \frac {\left (x^{5} + x^{2} + 4\right ) \sqrt [4]{2 x^{5} - 2 x^{4} - x^{2} - 2}}{x^{2} \cdot \left (2 x^{5} - x^{2} - 2\right )}\, dx \]

[In]

integrate((x**5+x**2+4)*(2*x**5-2*x**4-x**2-2)**(1/4)/x**2/(2*x**5-x**2-2),x)

[Out]

Integral((x**5 + x**2 + 4)*(2*x**5 - 2*x**4 - x**2 - 2)**(1/4)/(x**2*(2*x**5 - x**2 - 2)), x)

Maxima [F]

\[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\int { \frac {{\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {1}{4}} {\left (x^{5} + x^{2} + 4\right )}}{{\left (2 \, x^{5} - x^{2} - 2\right )} x^{2}} \,d x } \]

[In]

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

[Out]

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

Giac [F]

\[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\int { \frac {{\left (2 \, x^{5} - 2 \, x^{4} - x^{2} - 2\right )}^{\frac {1}{4}} {\left (x^{5} + x^{2} + 4\right )}}{{\left (2 \, x^{5} - x^{2} - 2\right )} x^{2}} \,d x } \]

[In]

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

[Out]

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

Mupad [F(-1)]

Timed out. \[ \int \frac {\left (4+x^2+x^5\right ) \sqrt [4]{-2-x^2-2 x^4+2 x^5}}{x^2 \left (-2-x^2+2 x^5\right )} \, dx=\int -\frac {\left (x^5+x^2+4\right )\,{\left (2\,x^5-2\,x^4-x^2-2\right )}^{1/4}}{x^2\,\left (-2\,x^5+x^2+2\right )} \,d x \]

[In]

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

[Out]

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