\(\int \frac {1-(-3+2 k) x-(4+k) x^2+3 k x^3}{\sqrt [3]{(1-x) x (1-k x)} (-1+(5+b) x-(10+b k) x^2+10 x^3-5 x^4+x^5)} \, dx\) [2578]

Optimal result

Integrand size = 74, antiderivative size = 222 \[ \int \frac {1-(-3+2 k) x-(4+k) x^2+3 k x^3}{\sqrt [3]{(1-x) x (1-k x)} \left (-1+(5+b) x-(10+b k) x^2+10 x^3-5 x^4+x^5\right )} \, dx=\frac {\sqrt {3} \arctan \left (\frac {\sqrt {3} \sqrt [3]{b} \sqrt [3]{x+(-1-k) x^2+k x^3}}{2-4 x+2 x^2+\sqrt [3]{b} \sqrt [3]{x+(-1-k) x^2+k x^3}}\right )}{b^{2/3}}+\frac {\log \left (1-2 x+x^2-\sqrt [3]{b} \sqrt [3]{x+(-1-k) x^2+k x^3}\right )}{b^{2/3}}-\frac {\log \left (1-4 x+6 x^2-4 x^3+x^4+\left (\sqrt [3]{b}-2 \sqrt [3]{b} x+\sqrt [3]{b} x^2\right ) \sqrt [3]{x+(-1-k) x^2+k x^3}+b^{2/3} \left (x+(-1-k) x^2+k x^3\right )^{2/3}\right )}{2 b^{2/3}} \]

[Out]

3^(1/2)*arctan(3^(1/2)*b^(1/3)*(x+(-1-k)*x^2+k*x^3)^(1/3)/(2-4*x+2*x^2+b^(1/3)*(x+(-1-k)*x^2+k*x^3)^(1/3)))/b^
(2/3)+ln(1-2*x+x^2-b^(1/3)*(x+(-1-k)*x^2+k*x^3)^(1/3))/b^(2/3)-1/2*ln(1-4*x+6*x^2-4*x^3+x^4+(b^(1/3)-2*b^(1/3)
*x+b^(1/3)*x^2)*(x+(-1-k)*x^2+k*x^3)^(1/3)+b^(2/3)*(x+(-1-k)*x^2+k*x^3)^(2/3))/b^(2/3)

Rubi [F]

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

[In]

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

[Out]

(-6*(2 - k)*(1 - x)^(1/3)*x^(1/3)*(1 - k*x)^(1/3)*Defer[Subst][Defer[Int][(x^4*(1 - x^3)^(2/3))/((1 - k*x^3)^(
1/3)*(1 - 5*(1 + b/5)*x^3 + 10*(1 + (b*k)/10)*x^6 - 10*x^9 + 5*x^12 - x^15)), x], x, x^(1/3)])/((1 - x)*x*(1 -
k*x))^(1/3) + (9*k*(1 - x)^(1/3)*x^(1/3)*(1 - k*x)^(1/3)*Defer[Subst][Defer[Int][(x^7*(1 - x^3)^(2/3))/((1 -
k*x^3)^(1/3)*(1 - 5*(1 + b/5)*x^3 + 10*(1 + (b*k)/10)*x^6 - 10*x^9 + 5*x^12 - x^15)), x], x, x^(1/3)])/((1 - x
)*x*(1 - k*x))^(1/3) + (3*(1 - x)^(1/3)*x^(1/3)*(1 - k*x)^(1/3)*Defer[Subst][Defer[Int][(x*(1 - x^3)^(2/3))/((
1 - k*x^3)^(1/3)*(-1 + 5*(1 + b/5)*x^3 - 10*(1 + (b*k)/10)*x^6 + 10*x^9 - 5*x^12 + x^15)), x], x, x^(1/3)])/((
1 - x)*x*(1 - k*x))^(1/3)

Rubi steps \begin{align*} \text {integral}& = \frac {\left (\sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x}\right ) \int \frac {1-(-3+2 k) x-(4+k) x^2+3 k x^3}{\sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x} \left (-1+(5+b) x-(10+b k) x^2+10 x^3-5 x^4+x^5\right )} \, dx}{\sqrt [3]{(1-x) x (1-k x)}} \\ & = \frac {\left (\sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x}\right ) \int \frac {(1-x)^{2/3} \left (1+(4-2 k) x-3 k x^2\right )}{\sqrt [3]{x} \sqrt [3]{1-k x} \left (-1+(5+b) x-(10+b k) x^2+10 x^3-5 x^4+x^5\right )} \, dx}{\sqrt [3]{(1-x) x (1-k x)}} \\ & = \frac {\left (3 \sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x}\right ) \text {Subst}\left (\int \frac {x \left (1-x^3\right )^{2/3} \left (1+(4-2 k) x^3-3 k x^6\right )}{\sqrt [3]{1-k x^3} \left (-1+(5+b) x^3-(10+b k) x^6+10 x^9-5 x^{12}+x^{15}\right )} \, dx,x,\sqrt [3]{x}\right )}{\sqrt [3]{(1-x) x (1-k x)}} \\ & = \frac {\left (3 \sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x}\right ) \text {Subst}\left (\int \left (\frac {2 (-2+k) x^4 \left (1-x^3\right )^{2/3}}{\sqrt [3]{1-k x^3} \left (1-5 \left (1+\frac {b}{5}\right ) x^3+10 \left (1+\frac {b k}{10}\right ) x^6-10 x^9+5 x^{12}-x^{15}\right )}+\frac {3 k x^7 \left (1-x^3\right )^{2/3}}{\sqrt [3]{1-k x^3} \left (1-5 \left (1+\frac {b}{5}\right ) x^3+10 \left (1+\frac {b k}{10}\right ) x^6-10 x^9+5 x^{12}-x^{15}\right )}+\frac {x \left (1-x^3\right )^{2/3}}{\sqrt [3]{1-k x^3} \left (-1+5 \left (1+\frac {b}{5}\right ) x^3-10 \left (1+\frac {b k}{10}\right ) x^6+10 x^9-5 x^{12}+x^{15}\right )}\right ) \, dx,x,\sqrt [3]{x}\right )}{\sqrt [3]{(1-x) x (1-k x)}} \\ & = \frac {\left (3 \sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x}\right ) \text {Subst}\left (\int \frac {x \left (1-x^3\right )^{2/3}}{\sqrt [3]{1-k x^3} \left (-1+5 \left (1+\frac {b}{5}\right ) x^3-10 \left (1+\frac {b k}{10}\right ) x^6+10 x^9-5 x^{12}+x^{15}\right )} \, dx,x,\sqrt [3]{x}\right )}{\sqrt [3]{(1-x) x (1-k x)}}-\frac {\left (6 (2-k) \sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x}\right ) \text {Subst}\left (\int \frac {x^4 \left (1-x^3\right )^{2/3}}{\sqrt [3]{1-k x^3} \left (1-5 \left (1+\frac {b}{5}\right ) x^3+10 \left (1+\frac {b k}{10}\right ) x^6-10 x^9+5 x^{12}-x^{15}\right )} \, dx,x,\sqrt [3]{x}\right )}{\sqrt [3]{(1-x) x (1-k x)}}+\frac {\left (9 k \sqrt [3]{1-x} \sqrt [3]{x} \sqrt [3]{1-k x}\right ) \text {Subst}\left (\int \frac {x^7 \left (1-x^3\right )^{2/3}}{\sqrt [3]{1-k x^3} \left (1-5 \left (1+\frac {b}{5}\right ) x^3+10 \left (1+\frac {b k}{10}\right ) x^6-10 x^9+5 x^{12}-x^{15}\right )} \, dx,x,\sqrt [3]{x}\right )}{\sqrt [3]{(1-x) x (1-k x)}} \\ \end{align*}

Mathematica [F]

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

[In]

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

[Out]

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

Maple [F]

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

[In]

int((1-(-3+2*k)*x-(4+k)*x^2+3*k*x^3)/((1-x)*x*(-k*x+1))^(1/3)/(-1+(5+b)*x-(b*k+10)*x^2+10*x^3-5*x^4+x^5),x)

[Out]

int((1-(-3+2*k)*x-(4+k)*x^2+3*k*x^3)/((1-x)*x*(-k*x+1))^(1/3)/(-1+(5+b)*x-(b*k+10)*x^2+10*x^3-5*x^4+x^5),x)

Fricas [F(-1)]

Timed out. \[ \int \frac {1-(-3+2 k) x-(4+k) x^2+3 k x^3}{\sqrt [3]{(1-x) x (1-k x)} \left (-1+(5+b) x-(10+b k) x^2+10 x^3-5 x^4+x^5\right )} \, dx=\text {Timed out} \]

[In]

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

[Out]

Timed out

Sympy [F]

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

[In]

integrate((1-(-3+2*k)*x-(4+k)*x**2+3*k*x**3)/((1-x)*x*(-k*x+1))**(1/3)/(-1+(5+b)*x-(b*k+10)*x**2+10*x**3-5*x**
4+x**5),x)

[Out]

Integral((x - 1)*(3*k*x**2 + 2*k*x - 4*x - 1)/((x*(x - 1)*(k*x - 1))**(1/3)*(-b*k*x**2 + b*x + x**5 - 5*x**4 +
10*x**3 - 10*x**2 + 5*x - 1)), x)

Maxima [F]

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

[In]

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

[Out]

integrate((3*k*x^3 - (k + 4)*x^2 - (2*k - 3)*x + 1)/((x^5 - 5*x^4 - (b*k + 10)*x^2 + 10*x^3 + (b + 5)*x - 1)*(
(k*x - 1)*(x - 1)*x)^(1/3)), x)

Giac [F]

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

[In]

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

[Out]

integrate((3*k*x^3 - (k + 4)*x^2 - (2*k - 3)*x + 1)/((x^5 - 5*x^4 - (b*k + 10)*x^2 + 10*x^3 + (b + 5)*x - 1)*(
(k*x - 1)*(x - 1)*x)^(1/3)), x)

Mupad [F(-1)]

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

[In]

int(-(x*(2*k - 3) + x^2*(k + 4) - 3*k*x^3 - 1)/((x*(k*x - 1)*(x - 1))^(1/3)*(x*(b + 5) - x^2*(b*k + 10) + 10*x
^3 - 5*x^4 + x^5 - 1)),x)

[Out]

int(-(x*(2*k - 3) + x^2*(k + 4) - 3*k*x^3 - 1)/((x*(k*x - 1)*(x - 1))^(1/3)*(x*(b + 5) - x^2*(b*k + 10) + 10*x
^3 - 5*x^4 + x^5 - 1)), x)