3.23.60 \(\int \frac {(-a+x) (-2 a+b+x)}{((-a+x) (-b+x)^2)^{3/4} (a+b^2 d-(1+2 b d) x+d x^2)} \, dx\)

Optimal. Leaf size=171 \[ -2 \sqrt [4]{d} \tan ^{-1}\left (\frac {\sqrt [4]{d} \left (x \left (2 a b+b^2\right )-a b^2+x^2 (-a-2 b)+x^3\right )^{3/4}}{(x-a) (b-x)}\right )+2 \sqrt [4]{d} \tanh ^{-1}\left (\frac {\sqrt [4]{d} \left (x \left (2 a b+b^2\right )-a b^2+x^2 (-a-2 b)+x^3\right )^{3/4}}{(x-a) (b-x)}\right )-\frac {4 \sqrt [4]{x \left (2 a b+b^2\right )-a b^2+x^2 (-a-2 b)+x^3}}{b-x} \]

________________________________________________________________________________________

Rubi [C]  time = 2.05, antiderivative size = 325, normalized size of antiderivative = 1.90, number of steps used = 7, number of rules used = 4, integrand size = 52, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.077, Rules used = {6719, 6728, 137, 136} \begin {gather*} \frac {4 (a-x)^2 (b-x) \left (1-\sqrt {-4 a d+4 b d+1}\right ) \sqrt {-\frac {b-x}{a-b}} F_1\left (\frac {5}{4};\frac {3}{2},1;\frac {9}{4};\frac {a-x}{a-b},-\frac {2 d (a-x)}{-2 a d+2 b d-\sqrt {-4 a d+4 b d+1}+1}\right )}{5 (a-b) \left (-\sqrt {-4 a d+4 b d+1}-2 a d+2 b d+1\right ) \left (-\left ((a-x) (b-x)^2\right )\right )^{3/4}}+\frac {4 (a-x)^2 (b-x) \left (\sqrt {-4 a d+4 b d+1}+1\right ) \sqrt {-\frac {b-x}{a-b}} F_1\left (\frac {5}{4};\frac {3}{2},1;\frac {9}{4};\frac {a-x}{a-b},-\frac {2 d (a-x)}{-2 a d+2 b d+\sqrt {-4 a d+4 b d+1}+1}\right )}{5 (a-b) \left (\sqrt {-4 a d+4 b d+1}-2 a d+2 b d+1\right ) \left (-\left ((a-x) (b-x)^2\right )\right )^{3/4}} \end {gather*}

Warning: Unable to verify antiderivative.

[In]

Int[((-a + x)*(-2*a + b + x))/(((-a + x)*(-b + x)^2)^(3/4)*(a + b^2*d - (1 + 2*b*d)*x + d*x^2)),x]

[Out]

(4*(1 - Sqrt[1 - 4*a*d + 4*b*d])*(a - x)^2*(b - x)*Sqrt[-((b - x)/(a - b))]*AppellF1[5/4, 3/2, 1, 9/4, (a - x)
/(a - b), (-2*d*(a - x))/(1 - 2*a*d + 2*b*d - Sqrt[1 - 4*a*d + 4*b*d])])/(5*(a - b)*(1 - 2*a*d + 2*b*d - Sqrt[
1 - 4*a*d + 4*b*d])*(-((a - x)*(b - x)^2))^(3/4)) + (4*(1 + Sqrt[1 - 4*a*d + 4*b*d])*(a - x)^2*(b - x)*Sqrt[-(
(b - x)/(a - b))]*AppellF1[5/4, 3/2, 1, 9/4, (a - x)/(a - b), (-2*d*(a - x))/(1 - 2*a*d + 2*b*d + Sqrt[1 - 4*a
*d + 4*b*d])])/(5*(a - b)*(1 - 2*a*d + 2*b*d + Sqrt[1 - 4*a*d + 4*b*d])*(-((a - x)*(b - x)^2))^(3/4))

Rule 136

Int[((a_) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_)*((e_.) + (f_.)*(x_))^(p_), x_Symbol] :> Simp[((b*e - a*
f)^p*(a + b*x)^(m + 1)*AppellF1[m + 1, -n, -p, m + 2, -((d*(a + b*x))/(b*c - a*d)), -((f*(a + b*x))/(b*e - a*f
))])/(b^(p + 1)*(m + 1)*(b/(b*c - a*d))^n), x] /; FreeQ[{a, b, c, d, e, f, m, n}, x] &&  !IntegerQ[m] &&  !Int
egerQ[n] && IntegerQ[p] && GtQ[b/(b*c - a*d), 0] &&  !(GtQ[d/(d*a - c*b), 0] && SimplerQ[c + d*x, a + b*x])

Rule 137

Int[((a_) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_)*((e_.) + (f_.)*(x_))^(p_), x_Symbol] :> Dist[(c + d*x)^
FracPart[n]/((b/(b*c - a*d))^IntPart[n]*((b*(c + d*x))/(b*c - a*d))^FracPart[n]), Int[(a + b*x)^m*((b*c)/(b*c
- a*d) + (b*d*x)/(b*c - a*d))^n*(e + f*x)^p, x], x] /; FreeQ[{a, b, c, d, e, f, m, n}, x] &&  !IntegerQ[m] &&
!IntegerQ[n] && IntegerQ[p] &&  !GtQ[b/(b*c - a*d), 0] &&  !SimplerQ[c + d*x, a + b*x]

Rule 6719

Int[(u_.)*((a_.)*(v_)^(m_.)*(w_)^(n_.))^(p_), x_Symbol] :> Dist[(a^IntPart[p]*(a*v^m*w^n)^FracPart[p])/(v^(m*F
racPart[p])*w^(n*FracPart[p])), Int[u*v^(m*p)*w^(n*p), x], x] /; FreeQ[{a, m, n, p}, x] &&  !IntegerQ[p] &&  !
FreeQ[v, x] &&  !FreeQ[w, x]

Rule 6728

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] /; SumQ[v]] /; FreeQ[{a, b, c}, x] && EqQ[n2, 2*n] && IGtQ[n, 0]

Rubi steps

\begin {align*} \int \frac {(-a+x) (-2 a+b+x)}{\left ((-a+x) (-b+x)^2\right )^{3/4} \left (a+b^2 d-(1+2 b d) x+d x^2\right )} \, dx &=\frac {\left ((-a+x)^{3/4} (-b+x)^{3/2}\right ) \int \frac {\sqrt [4]{-a+x} (-2 a+b+x)}{(-b+x)^{3/2} \left (a+b^2 d-(1+2 b d) x+d x^2\right )} \, dx}{\left ((-a+x) (-b+x)^2\right )^{3/4}}\\ &=\frac {\left ((-a+x)^{3/4} (-b+x)^{3/2}\right ) \int \left (\frac {\left (1+\sqrt {1-4 a d+4 b d}\right ) \sqrt [4]{-a+x}}{(-b+x)^{3/2} \left (-1-2 b d-\sqrt {1-4 a d+4 b d}+2 d x\right )}+\frac {\left (1-\sqrt {1-4 a d+4 b d}\right ) \sqrt [4]{-a+x}}{(-b+x)^{3/2} \left (-1-2 b d+\sqrt {1-4 a d+4 b d}+2 d x\right )}\right ) \, dx}{\left ((-a+x) (-b+x)^2\right )^{3/4}}\\ &=\frac {\left (\left (1-\sqrt {1-4 a d+4 b d}\right ) (-a+x)^{3/4} (-b+x)^{3/2}\right ) \int \frac {\sqrt [4]{-a+x}}{(-b+x)^{3/2} \left (-1-2 b d+\sqrt {1-4 a d+4 b d}+2 d x\right )} \, dx}{\left ((-a+x) (-b+x)^2\right )^{3/4}}+\frac {\left (\left (1+\sqrt {1-4 a d+4 b d}\right ) (-a+x)^{3/4} (-b+x)^{3/2}\right ) \int \frac {\sqrt [4]{-a+x}}{(-b+x)^{3/2} \left (-1-2 b d-\sqrt {1-4 a d+4 b d}+2 d x\right )} \, dx}{\left ((-a+x) (-b+x)^2\right )^{3/4}}\\ &=\frac {\left (\left (1-\sqrt {1-4 a d+4 b d}\right ) (-a+x)^{3/4} (-b+x) \sqrt {\frac {-b+x}{a-b}}\right ) \int \frac {\sqrt [4]{-a+x}}{\left (-\frac {b}{a-b}+\frac {x}{a-b}\right )^{3/2} \left (-1-2 b d+\sqrt {1-4 a d+4 b d}+2 d x\right )} \, dx}{(a-b) \left ((-a+x) (-b+x)^2\right )^{3/4}}+\frac {\left (\left (1+\sqrt {1-4 a d+4 b d}\right ) (-a+x)^{3/4} (-b+x) \sqrt {\frac {-b+x}{a-b}}\right ) \int \frac {\sqrt [4]{-a+x}}{\left (-\frac {b}{a-b}+\frac {x}{a-b}\right )^{3/2} \left (-1-2 b d-\sqrt {1-4 a d+4 b d}+2 d x\right )} \, dx}{(a-b) \left ((-a+x) (-b+x)^2\right )^{3/4}}\\ &=\frac {4 \left (1-\sqrt {1-4 a d+4 b d}\right ) (a-x)^2 (b-x) \sqrt {-\frac {b-x}{a-b}} F_1\left (\frac {5}{4};\frac {3}{2},1;\frac {9}{4};\frac {a-x}{a-b},-\frac {2 d (a-x)}{1-2 a d+2 b d-\sqrt {1-4 a d+4 b d}}\right )}{5 (a-b) \left (1-2 a d+2 b d-\sqrt {1-4 a d+4 b d}\right ) \left (-\left ((a-x) (b-x)^2\right )\right )^{3/4}}+\frac {4 \left (1+\sqrt {1-4 a d+4 b d}\right ) (a-x)^2 (b-x) \sqrt {-\frac {b-x}{a-b}} F_1\left (\frac {5}{4};\frac {3}{2},1;\frac {9}{4};\frac {a-x}{a-b},-\frac {2 d (a-x)}{1-2 a d+2 b d+\sqrt {1-4 a d+4 b d}}\right )}{5 (a-b) \left (1-2 a d+2 b d+\sqrt {1-4 a d+4 b d}\right ) \left (-\left ((a-x) (b-x)^2\right )\right )^{3/4}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [C]  time = 1.66, size = 492, normalized size = 2.88 \begin {gather*} \frac {2 (b-x) \left ((x-a)^{3/4} \left (\sqrt [4]{b-a} \sqrt {\frac {x-b}{a-b}} \Pi \left (-\frac {\sqrt {2} \sqrt {a-b} \sqrt {d}}{\sqrt {2 a d-2 b d-\sqrt {-4 a d+4 b d+1}-1}};\left .\sin ^{-1}\left (\frac {\sqrt [4]{x-a}}{\sqrt [4]{b-a}}\right )\right |-1\right )+\sqrt [4]{b-a} \sqrt {\frac {x-b}{a-b}} \Pi \left (\frac {\sqrt {2} \sqrt {a-b} \sqrt {d}}{\sqrt {2 a d-2 b d-\sqrt {-4 a d+4 b d+1}-1}};\left .\sin ^{-1}\left (\frac {\sqrt [4]{x-a}}{\sqrt [4]{b-a}}\right )\right |-1\right )+\sqrt [4]{b-a} \sqrt {\frac {x-b}{a-b}} \Pi \left (-\frac {\sqrt {2} \sqrt {a-b} \sqrt {d}}{\sqrt {2 a d-2 b d+\sqrt {-4 a d+4 b d+1}-1}};\left .\sin ^{-1}\left (\frac {\sqrt [4]{x-a}}{\sqrt [4]{b-a}}\right )\right |-1\right )+\sqrt [4]{b-a} \sqrt {\frac {x-b}{a-b}} \Pi \left (\frac {\sqrt {2} \sqrt {a-b} \sqrt {d}}{\sqrt {2 a d-2 b d+\sqrt {-4 a d+4 b d+1}-1}};\left .\sin ^{-1}\left (\frac {\sqrt [4]{x-a}}{\sqrt [4]{b-a}}\right )\right |-1\right )+\frac {(b-x) \left (\frac {a-x}{a-b}\right )^{3/4} \, _2F_1\left (\frac {1}{2},\frac {3}{4};\frac {3}{2};\frac {x-b}{a-b}\right )}{(x-a)^{3/4}}\right )+2 (a-x)\right )}{\left ((x-a) (b-x)^2\right )^{3/4}} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[((-a + x)*(-2*a + b + x))/(((-a + x)*(-b + x)^2)^(3/4)*(a + b^2*d - (1 + 2*b*d)*x + d*x^2)),x]

[Out]

(2*(b - x)*(2*(a - x) + (-a + x)^(3/4)*((-a + b)^(1/4)*Sqrt[(-b + x)/(a - b)]*EllipticPi[-((Sqrt[2]*Sqrt[a - b
]*Sqrt[d])/Sqrt[-1 + 2*a*d - 2*b*d - Sqrt[1 - 4*a*d + 4*b*d]]), ArcSin[(-a + x)^(1/4)/(-a + b)^(1/4)], -1] + (
-a + b)^(1/4)*Sqrt[(-b + x)/(a - b)]*EllipticPi[(Sqrt[2]*Sqrt[a - b]*Sqrt[d])/Sqrt[-1 + 2*a*d - 2*b*d - Sqrt[1
- 4*a*d + 4*b*d]], ArcSin[(-a + x)^(1/4)/(-a + b)^(1/4)], -1] + (-a + b)^(1/4)*Sqrt[(-b + x)/(a - b)]*Ellipti
cPi[-((Sqrt[2]*Sqrt[a - b]*Sqrt[d])/Sqrt[-1 + 2*a*d - 2*b*d + Sqrt[1 - 4*a*d + 4*b*d]]), ArcSin[(-a + x)^(1/4)
/(-a + b)^(1/4)], -1] + (-a + b)^(1/4)*Sqrt[(-b + x)/(a - b)]*EllipticPi[(Sqrt[2]*Sqrt[a - b]*Sqrt[d])/Sqrt[-1
+ 2*a*d - 2*b*d + Sqrt[1 - 4*a*d + 4*b*d]], ArcSin[(-a + x)^(1/4)/(-a + b)^(1/4)], -1] + (((a - x)/(a - b))^(
3/4)*(b - x)*Hypergeometric2F1[1/2, 3/4, 3/2, (-b + x)/(a - b)])/(-a + x)^(3/4))))/((b - x)^2*(-a + x))^(3/4)

________________________________________________________________________________________

IntegrateAlgebraic [A]  time = 4.07, size = 171, normalized size = 1.00 \begin {gather*} -\frac {4 \sqrt [4]{-a b^2+\left (2 a b+b^2\right ) x+(-a-2 b) x^2+x^3}}{b-x}-2 \sqrt [4]{d} \tan ^{-1}\left (\frac {\sqrt [4]{d} \left (-a b^2+\left (2 a b+b^2\right ) x+(-a-2 b) x^2+x^3\right )^{3/4}}{(b-x) (-a+x)}\right )+2 \sqrt [4]{d} \tanh ^{-1}\left (\frac {\sqrt [4]{d} \left (-a b^2+\left (2 a b+b^2\right ) x+(-a-2 b) x^2+x^3\right )^{3/4}}{(b-x) (-a+x)}\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

IntegrateAlgebraic[((-a + x)*(-2*a + b + x))/(((-a + x)*(-b + x)^2)^(3/4)*(a + b^2*d - (1 + 2*b*d)*x + d*x^2))
,x]

[Out]

(-4*(-(a*b^2) + (2*a*b + b^2)*x + (-a - 2*b)*x^2 + x^3)^(1/4))/(b - x) - 2*d^(1/4)*ArcTan[(d^(1/4)*(-(a*b^2) +
(2*a*b + b^2)*x + (-a - 2*b)*x^2 + x^3)^(3/4))/((b - x)*(-a + x))] + 2*d^(1/4)*ArcTanh[(d^(1/4)*(-(a*b^2) + (
2*a*b + b^2)*x + (-a - 2*b)*x^2 + x^3)^(3/4))/((b - x)*(-a + x))]

________________________________________________________________________________________

fricas [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((-a+x)*(-2*a+b+x)/((-a+x)*(-b+x)^2)^(3/4)/(a+b^2*d-(2*b*d+1)*x+d*x^2),x, algorithm="fricas")

[Out]

Timed out

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-a+x)*(-2*a+b+x)/((-a+x)*(-b+x)^2)^(3/4)/(a+b^2*d-(2*b*d+1)*x+d*x^2),x, algorithm="giac")

[Out]

integrate((2*a - b - x)*(a - x)/((-(a - x)*(b - x)^2)^(3/4)*(b^2*d + d*x^2 - (2*b*d + 1)*x + a)), x)

________________________________________________________________________________________

maple [F]  time = 0.12, size = 0, normalized size = 0.00 \[\int \frac {\left (-a +x \right ) \left (-2 a +b +x \right )}{\left (\left (-a +x \right ) \left (-b +x \right )^{2}\right )^{\frac {3}{4}} \left (a +b^{2} d -\left (2 b d +1\right ) x +d \,x^{2}\right )}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-a+x)*(-2*a+b+x)/((-a+x)*(-b+x)^2)^(3/4)/(a+b^2*d-(2*b*d+1)*x+d*x^2),x, algorithm="maxima")

[Out]

integrate((2*a - b - x)*(a - x)/((-(a - x)*(b - x)^2)^(3/4)*(b^2*d + d*x^2 - (2*b*d + 1)*x + a)), x)

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

int(-((a - x)*(b - 2*a + x))/((-(a - x)*(b - x)^2)^(3/4)*(a - x*(2*b*d + 1) + b^2*d + d*x^2)), 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((-a+x)*(-2*a+b+x)/((-a+x)*(-b+x)**2)**(3/4)/(a+b**2*d-(2*b*d+1)*x+d*x**2),x)

[Out]

Timed out

________________________________________________________________________________________