3.29.53 \(\int \frac {-a (a b+a c-2 b c)+2 (a^2-b c) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2)} \, dx\) [2853]

3.29.53.1 Optimal result
3.29.53.2 Mathematica [F]
3.29.53.3 Rubi [F]
3.29.53.4 Maple [F]
3.29.53.5 Fricas [F(-1)]
3.29.53.6 Sympy [F(-1)]
3.29.53.7 Maxima [F]
3.29.53.8 Giac [F]
3.29.53.9 Mupad [F(-1)]

3.29.53.1 Optimal result

Integrand size = 85, antiderivative size = 296 \[ \int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx=-\frac {\sqrt {3} \arctan \left (\frac {\sqrt {3} a \sqrt [3]{d}-\sqrt {3} \sqrt [3]{d} x}{a \sqrt [3]{d}-\sqrt [3]{d} x-2 \sqrt [3]{-a b c+(a b+a c+b c) x+(-a-b-c) x^2+x^3}}\right )}{d^{2/3}}-\frac {\log \left (a \sqrt [3]{d}-\sqrt [3]{d} x+\sqrt [3]{-a b c+(a b+a c+b c) x+(-a-b-c) x^2+x^3}\right )}{d^{2/3}}+\frac {\log \left (a^2 d^{2/3}-2 a d^{2/3} x+d^{2/3} x^2+\left (-a \sqrt [3]{d}+\sqrt [3]{d} x\right ) \sqrt [3]{-a b c+(a b+a c+b c) x+(-a-b-c) x^2+x^3}+\left (-a b c+(a b+a c+b c) x+(-a-b-c) x^2+x^3\right )^{2/3}\right )}{2 d^{2/3}} \]

output
-3^(1/2)*arctan((3^(1/2)*a*d^(1/3)-3^(1/2)*d^(1/3)*x)/(a*d^(1/3)-d^(1/3)*x 
-2*(-a*b*c+(a*b+a*c+b*c)*x+(-a-b-c)*x^2+x^3)^(1/3)))/d^(2/3)-ln(a*d^(1/3)- 
d^(1/3)*x+(-a*b*c+(a*b+a*c+b*c)*x+(-a-b-c)*x^2+x^3)^(1/3))/d^(2/3)+1/2*ln( 
a^2*d^(2/3)-2*a*d^(2/3)*x+d^(2/3)*x^2+(-a*d^(1/3)+d^(1/3)*x)*(-a*b*c+(a*b+ 
a*c+b*c)*x+(-a-b-c)*x^2+x^3)^(1/3)+(-a*b*c+(a*b+a*c+b*c)*x+(-a-b-c)*x^2+x^ 
3)^(2/3))/d^(2/3)
 
3.29.53.2 Mathematica [F]

\[ \int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx=\int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx \]

input
Integrate[(-(a*(a*b + a*c - 2*b*c)) + 2*(a^2 - b*c)*x + (-2*a + b + c)*x^2 
)/(((-a + x)*(-b + x)*(-c + x))^(2/3)*(-(b*c) + a^2*d + (b + c - 2*a*d)*x 
+ (-1 + d)*x^2)),x]
 
output
Integrate[(-(a*(a*b + a*c - 2*b*c)) + 2*(a^2 - b*c)*x + (-2*a + b + c)*x^2 
)/(((-a + x)*(-b + x)*(-c + x))^(2/3)*(-(b*c) + a^2*d + (b + c - 2*a*d)*x 
+ (-1 + d)*x^2)), x]
 
3.29.53.3 Rubi [F]

Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.

\(\displaystyle \int \frac {2 x \left (a^2-b c\right )+x^2 (-2 a+b+c)-a (a b+a c-2 b c)}{((x-a) (x-b) (x-c))^{2/3} \left (a^2 d+x (-2 a d+b+c)-b c+(d-1) x^2\right )} \, dx\)

\(\Big \downarrow \) 7269

\(\displaystyle \frac {(x-a)^{2/3} (x-b)^{2/3} (x-c)^{2/3} \int -\frac {-\left ((2 a-b-c) x^2\right )+2 \left (a^2-b c\right ) x+a (2 b c-a (b+c))}{(x-a)^{2/3} (x-b)^{2/3} (x-c)^{2/3} \left (-d a^2+(1-d) x^2+b c-(b+c-2 a d) x\right )}dx}{(-((a-x) (b-x) (c-x)))^{2/3}}\)

\(\Big \downarrow \) 25

\(\displaystyle -\frac {(x-a)^{2/3} (x-b)^{2/3} (x-c)^{2/3} \int \frac {-\left ((2 a-b-c) x^2\right )+2 \left (a^2-b c\right ) x+a (2 b c-a (b+c))}{(x-a)^{2/3} (x-b)^{2/3} (x-c)^{2/3} \left (-d a^2+(1-d) x^2+b c-(b+c-2 a d) x\right )}dx}{(-((a-x) (b-x) (c-x)))^{2/3}}\)

\(\Big \downarrow \) 2004

\(\displaystyle -\frac {(x-a)^{2/3} (x-b)^{2/3} (x-c)^{2/3} \int \frac {\sqrt [3]{x-a} (-2 b c+a (b+c)+(-2 a+b+c) x)}{(x-b)^{2/3} (x-c)^{2/3} \left (-d a^2+(1-d) x^2+b c-(b+c-2 a d) x\right )}dx}{(-((a-x) (b-x) (c-x)))^{2/3}}\)

\(\Big \downarrow \) 7279

\(\displaystyle -\frac {(x-a)^{2/3} (x-b)^{2/3} (x-c)^{2/3} \int \left (\frac {\sqrt [3]{x-a} \left (-2 a+b+c-\sqrt {4 d a^2-4 b d a-4 c d a+b^2+c^2-2 b c+4 b c d}\right )}{(x-b)^{2/3} (x-c)^{2/3} \left (-b-c+2 a d+2 (1-d) x+\sqrt {4 d a^2-4 b d a-4 c d a+b^2+c^2-2 b c+4 b c d}\right )}+\frac {\left (-2 a+b+c+\sqrt {4 d a^2-4 b d a-4 c d a+b^2+c^2-2 b c+4 b c d}\right ) \sqrt [3]{x-a}}{(x-b)^{2/3} (x-c)^{2/3} \left (-b-c+2 a d+2 (1-d) x-\sqrt {4 d a^2-4 b d a-4 c d a+b^2+c^2-2 b c+4 b c d}\right )}\right )dx}{(-((a-x) (b-x) (c-x)))^{2/3}}\)

\(\Big \downarrow \) 2009

\(\displaystyle -\frac {(x-a)^{2/3} (x-b)^{2/3} (x-c)^{2/3} \left (-\left (\left (-\sqrt {4 a^2 d-2 b (2 a d-2 c d+c)-4 a c d+b^2+c^2}+2 a-b-c\right ) \int \frac {\sqrt [3]{x-a}}{(x-b)^{2/3} (x-c)^{2/3} \left (-b-c+2 a d+2 (1-d) x-\sqrt {4 d a^2-4 b d a-4 c d a+b^2+c^2-2 b c+4 b c d}\right )}dx\right )-\left (\sqrt {4 a^2 d-2 b (2 a d-2 c d+c)-4 a c d+b^2+c^2}+2 a-b-c\right ) \int \frac {\sqrt [3]{x-a}}{(x-b)^{2/3} (x-c)^{2/3} \left (-b-c+2 a d+2 (1-d) x+\sqrt {4 d a^2-4 b d a-4 c d a+b^2+c^2-2 b c+4 b c d}\right )}dx\right )}{(-((a-x) (b-x) (c-x)))^{2/3}}\)

input
Int[(-(a*(a*b + a*c - 2*b*c)) + 2*(a^2 - b*c)*x + (-2*a + b + c)*x^2)/(((- 
a + x)*(-b + x)*(-c + x))^(2/3)*(-(b*c) + a^2*d + (b + c - 2*a*d)*x + (-1 
+ d)*x^2)),x]
 
output
$Aborted
 

3.29.53.3.1 Defintions of rubi rules used

rule 25
Int[-(Fx_), x_Symbol] :> Simp[Identity[-1]   Int[Fx, x], x]
 

rule 2004
Int[(u_)*((d_) + (e_.)*(x_))^(q_.)*((a_) + (b_.)*(x_) + (c_.)*(x_)^2)^(p_.) 
, x_Symbol] :> Int[u*(d + e*x)^(p + q)*(a/d + (c/e)*x)^p, x] /; FreeQ[{a, b 
, c, d, e, q}, x] && EqQ[c*d^2 - b*d*e + a*e^2, 0] && IntegerQ[p]
 

rule 2009
Int[u_, x_Symbol] :> Simp[IntSum[u, x], x] /; SumQ[u]
 

rule 7269
Int[(u_.)*((a_.)*(v_)^(m_.)*(w_)^(n_.)*(z_)^(q_.))^(p_), x_Symbol] :> Simp[ 
a^IntPart[p]*((a*v^m*w^n*z^q)^FracPart[p]/(v^(m*FracPart[p])*w^(n*FracPart[ 
p])*z^(q*FracPart[p])))   Int[u*v^(m*p)*w^(n*p)*z^(p*q), x], x] /; FreeQ[{a 
, m, n, p, q}, x] &&  !IntegerQ[p] &&  !FreeQ[v, x] &&  !FreeQ[w, x] &&  !F 
reeQ[z, x]
 

rule 7279
Int[(u_)/((a_.) + (b_.)*(x_)^(n_.) + (c_.)*(x_)^(n2_.)), x_Symbol] :> With[ 
{v = RationalFunctionExpand[u/(a + b*x^n + c*x^(2*n)), x]}, Int[v, x] /; Su 
mQ[v]] /; FreeQ[{a, b, c}, x] && EqQ[n2, 2*n] && IGtQ[n, 0]
 
3.29.53.4 Maple [F]

\[\int \frac {-a \left (a b +a c -2 b c \right )+2 \left (a^{2}-b c \right ) x +\left (-2 a +b +c \right ) x^{2}}{\left (\left (-a +x \right ) \left (-b +x \right ) \left (-c +x \right )\right )^{\frac {2}{3}} \left (-b c +a^{2} d +\left (-2 a d +b +c \right ) x +\left (-1+d \right ) x^{2}\right )}d x\]

input
int((-a*(a*b+a*c-2*b*c)+2*(a^2-b*c)*x+(-2*a+b+c)*x^2)/((-a+x)*(-b+x)*(-c+x 
))^(2/3)/(-b*c+a^2*d+(-2*a*d+b+c)*x+(-1+d)*x^2),x)
 
output
int((-a*(a*b+a*c-2*b*c)+2*(a^2-b*c)*x+(-2*a+b+c)*x^2)/((-a+x)*(-b+x)*(-c+x 
))^(2/3)/(-b*c+a^2*d+(-2*a*d+b+c)*x+(-1+d)*x^2),x)
 
3.29.53.5 Fricas [F(-1)]

Timed out. \[ \int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx=\text {Timed out} \]

input
integrate((-a*(a*b+a*c-2*b*c)+2*(a^2-b*c)*x+(-2*a+b+c)*x^2)/((-a+x)*(-b+x) 
*(-c+x))^(2/3)/(-b*c+a^2*d+(-2*a*d+b+c)*x+(-1+d)*x^2),x, algorithm="fricas 
")
 
output
Timed out
 
3.29.53.6 Sympy [F(-1)]

Timed out. \[ \int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx=\text {Timed out} \]

input
integrate((-a*(a*b+a*c-2*b*c)+2*(a**2-b*c)*x+(-2*a+b+c)*x**2)/((-a+x)*(-b+ 
x)*(-c+x))**(2/3)/(-b*c+a**2*d+(-2*a*d+b+c)*x+(-1+d)*x**2),x)
 
output
Timed out
 
3.29.53.7 Maxima [F]

\[ \int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx=\int { -\frac {{\left (2 \, a - b - c\right )} x^{2} + {\left (a b + a c - 2 \, b c\right )} a - 2 \, {\left (a^{2} - b c\right )} x}{\left (-{\left (a - x\right )} {\left (b - x\right )} {\left (c - x\right )}\right )^{\frac {2}{3}} {\left (a^{2} d + {\left (d - 1\right )} x^{2} - b c - {\left (2 \, a d - b - c\right )} x\right )}} \,d x } \]

input
integrate((-a*(a*b+a*c-2*b*c)+2*(a^2-b*c)*x+(-2*a+b+c)*x^2)/((-a+x)*(-b+x) 
*(-c+x))^(2/3)/(-b*c+a^2*d+(-2*a*d+b+c)*x+(-1+d)*x^2),x, algorithm="maxima 
")
 
output
-integrate(((2*a - b - c)*x^2 + (a*b + a*c - 2*b*c)*a - 2*(a^2 - b*c)*x)/( 
(-(a - x)*(b - x)*(c - x))^(2/3)*(a^2*d + (d - 1)*x^2 - b*c - (2*a*d - b - 
 c)*x)), x)
 
3.29.53.8 Giac [F]

\[ \int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx=\int { -\frac {{\left (2 \, a - b - c\right )} x^{2} + {\left (a b + a c - 2 \, b c\right )} a - 2 \, {\left (a^{2} - b c\right )} x}{\left (-{\left (a - x\right )} {\left (b - x\right )} {\left (c - x\right )}\right )^{\frac {2}{3}} {\left (a^{2} d + {\left (d - 1\right )} x^{2} - b c - {\left (2 \, a d - b - c\right )} x\right )}} \,d x } \]

input
integrate((-a*(a*b+a*c-2*b*c)+2*(a^2-b*c)*x+(-2*a+b+c)*x^2)/((-a+x)*(-b+x) 
*(-c+x))^(2/3)/(-b*c+a^2*d+(-2*a*d+b+c)*x+(-1+d)*x^2),x, algorithm="giac")
 
output
integrate(-((2*a - b - c)*x^2 + (a*b + a*c - 2*b*c)*a - 2*(a^2 - b*c)*x)/( 
(-(a - x)*(b - x)*(c - x))^(2/3)*(a^2*d + (d - 1)*x^2 - b*c - (2*a*d - b - 
 c)*x)), x)
 
3.29.53.9 Mupad [F(-1)]

Timed out. \[ \int \frac {-a (a b+a c-2 b c)+2 \left (a^2-b c\right ) x+(-2 a+b+c) x^2}{((-a+x) (-b+x) (-c+x))^{2/3} \left (-b c+a^2 d+(b+c-2 a d) x+(-1+d) x^2\right )} \, dx=-\int \frac {2\,x\,\left (b\,c-a^2\right )-x^2\,\left (b-2\,a+c\right )+a\,\left (a\,b+a\,c-2\,b\,c\right )}{{\left (-\left (a-x\right )\,\left (b-x\right )\,\left (c-x\right )\right )}^{2/3}\,\left (x\,\left (b+c-2\,a\,d\right )-b\,c+a^2\,d+x^2\,\left (d-1\right )\right )} \,d x \]

input
int(-(2*x*(b*c - a^2) - x^2*(b - 2*a + c) + a*(a*b + a*c - 2*b*c))/((-(a - 
 x)*(b - x)*(c - x))^(2/3)*(x*(b + c - 2*a*d) - b*c + a^2*d + x^2*(d - 1)) 
),x)
 
output
-int((2*x*(b*c - a^2) - x^2*(b - 2*a + c) + a*(a*b + a*c - 2*b*c))/((-(a - 
 x)*(b - x)*(c - x))^(2/3)*(x*(b + c - 2*a*d) - b*c + a^2*d + x^2*(d - 1)) 
), x)