3.82 \(\int \frac{c-2 d x}{(c+d x) \sqrt{c^3-8 d^3 x^3}} \, dx\)

Optimal. Leaf size=46 \[ -\frac{2 \tanh ^{-1}\left (\frac{(c-2 d x)^2}{3 \sqrt{c} \sqrt{c^3-8 d^3 x^3}}\right )}{3 \sqrt{c} d} \]

[Out]

(-2*ArcTanh[(c - 2*d*x)^2/(3*Sqrt[c]*Sqrt[c^3 - 8*d^3*x^3])])/(3*Sqrt[c]*d)

________________________________________________________________________________________

Rubi [A]  time = 0.115931, antiderivative size = 46, normalized size of antiderivative = 1., number of steps used = 2, number of rules used = 2, integrand size = 30, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.067, Rules used = {2138, 206} \[ -\frac{2 \tanh ^{-1}\left (\frac{(c-2 d x)^2}{3 \sqrt{c} \sqrt{c^3-8 d^3 x^3}}\right )}{3 \sqrt{c} d} \]

Antiderivative was successfully verified.

[In]

Int[(c - 2*d*x)/((c + d*x)*Sqrt[c^3 - 8*d^3*x^3]),x]

[Out]

(-2*ArcTanh[(c - 2*d*x)^2/(3*Sqrt[c]*Sqrt[c^3 - 8*d^3*x^3])])/(3*Sqrt[c]*d)

Rule 2138

Int[((e_) + (f_.)*(x_))/(((c_) + (d_.)*(x_))*Sqrt[(a_) + (b_.)*(x_)^3]), x_Symbol] :> Dist[(-2*e)/d, Subst[Int
[1/(9 - a*x^2), x], x, (1 + (f*x)/e)^2/Sqrt[a + b*x^3]], x] /; FreeQ[{a, b, c, d, e, f}, x] && NeQ[d*e - c*f,
0] && EqQ[b*c^3 + 8*a*d^3, 0] && EqQ[2*d*e + c*f, 0]

Rule 206

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(1*ArcTanh[(Rt[-b, 2]*x)/Rt[a, 2]])/(Rt[a, 2]*Rt[-b, 2]), x]
/; FreeQ[{a, b}, x] && NegQ[a/b] && (GtQ[a, 0] || LtQ[b, 0])

Rubi steps

\begin{align*} \int \frac{c-2 d x}{(c+d x) \sqrt{c^3-8 d^3 x^3}} \, dx &=-\frac{(2 c) \operatorname{Subst}\left (\int \frac{1}{9-c^3 x^2} \, dx,x,\frac{\left (1-\frac{2 d x}{c}\right )^2}{\sqrt{c^3-8 d^3 x^3}}\right )}{d}\\ &=-\frac{2 \tanh ^{-1}\left (\frac{(c-2 d x)^2}{3 \sqrt{c} \sqrt{c^3-8 d^3 x^3}}\right )}{3 \sqrt{c} d}\\ \end{align*}

Mathematica [A]  time = 0.0244973, size = 46, normalized size = 1. \[ -\frac{2 \tanh ^{-1}\left (\frac{(c-2 d x)^2}{3 \sqrt{c} \sqrt{c^3-8 d^3 x^3}}\right )}{3 \sqrt{c} d} \]

Antiderivative was successfully verified.

[In]

Integrate[(c - 2*d*x)/((c + d*x)*Sqrt[c^3 - 8*d^3*x^3]),x]

[Out]

(-2*ArcTanh[(c - 2*d*x)^2/(3*Sqrt[c]*Sqrt[c^3 - 8*d^3*x^3])])/(3*Sqrt[c]*d)

________________________________________________________________________________________

Maple [C]  time = 0.143, size = 650, normalized size = 14.1 \begin{align*} \text{result too large to display} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((-2*d*x+c)/(d*x+c)/(-8*d^3*x^3+c^3)^(1/2),x)

[Out]

-4*(1/2*(-1/2+1/2*I*3^(1/2))*c/d-1/2*(-1/2-1/2*I*3^(1/2))*c/d)*((x-1/2*(-1/2-1/2*I*3^(1/2))*c/d)/(1/2*(-1/2+1/
2*I*3^(1/2))*c/d-1/2*(-1/2-1/2*I*3^(1/2))*c/d))^(1/2)*((x-1/2*c/d)/(1/2*(-1/2-1/2*I*3^(1/2))*c/d-1/2*c/d))^(1/
2)*((x-1/2*(-1/2+1/2*I*3^(1/2))*c/d)/(1/2*(-1/2-1/2*I*3^(1/2))*c/d-1/2*(-1/2+1/2*I*3^(1/2))*c/d))^(1/2)/(-8*d^
3*x^3+c^3)^(1/2)*EllipticF(((x-1/2*(-1/2-1/2*I*3^(1/2))*c/d)/(1/2*(-1/2+1/2*I*3^(1/2))*c/d-1/2*(-1/2-1/2*I*3^(
1/2))*c/d))^(1/2),((1/2*(-1/2-1/2*I*3^(1/2))*c/d-1/2*(-1/2+1/2*I*3^(1/2))*c/d)/(1/2*(-1/2-1/2*I*3^(1/2))*c/d-1
/2*c/d))^(1/2))+6*c/d*(1/2*(-1/2+1/2*I*3^(1/2))*c/d-1/2*(-1/2-1/2*I*3^(1/2))*c/d)*((x-1/2*(-1/2-1/2*I*3^(1/2))
*c/d)/(1/2*(-1/2+1/2*I*3^(1/2))*c/d-1/2*(-1/2-1/2*I*3^(1/2))*c/d))^(1/2)*((x-1/2*c/d)/(1/2*(-1/2-1/2*I*3^(1/2)
)*c/d-1/2*c/d))^(1/2)*((x-1/2*(-1/2+1/2*I*3^(1/2))*c/d)/(1/2*(-1/2-1/2*I*3^(1/2))*c/d-1/2*(-1/2+1/2*I*3^(1/2))
*c/d))^(1/2)/(-8*d^3*x^3+c^3)^(1/2)/(1/2*(-1/2-1/2*I*3^(1/2))*c/d+c/d)*EllipticPi(((x-1/2*(-1/2-1/2*I*3^(1/2))
*c/d)/(1/2*(-1/2+1/2*I*3^(1/2))*c/d-1/2*(-1/2-1/2*I*3^(1/2))*c/d))^(1/2),(1/2*(-1/2-1/2*I*3^(1/2))*c/d-1/2*(-1
/2+1/2*I*3^(1/2))*c/d)/(1/2*(-1/2-1/2*I*3^(1/2))*c/d+c/d),((1/2*(-1/2-1/2*I*3^(1/2))*c/d-1/2*(-1/2+1/2*I*3^(1/
2))*c/d)/(1/2*(-1/2-1/2*I*3^(1/2))*c/d-1/2*c/d))^(1/2))

________________________________________________________________________________________

Maxima [F]  time = 0., size = 0, normalized size = 0. \begin{align*} -\int \frac{2 \, d x - c}{\sqrt{-8 \, d^{3} x^{3} + c^{3}}{\left (d x + c\right )}}\,{d x} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-integrate((2*d*x - c)/(sqrt(-8*d^3*x^3 + c^3)*(d*x + c)), x)

________________________________________________________________________________________

Fricas [B]  time = 2.6736, size = 651, normalized size = 14.15 \begin{align*} \left [\frac{\log \left (\frac{8 \, d^{6} x^{6} - 240 \, c d^{5} x^{5} + 408 \, c^{2} d^{4} x^{4} + 88 \, c^{3} d^{3} x^{3} + 156 \, c^{4} d^{2} x^{2} + 12 \, c^{5} d x + 17 \, c^{6} - 3 \,{\left (8 \, d^{4} x^{4} - 52 \, c d^{3} x^{3} + 12 \, c^{2} d^{2} x^{2} - 4 \, c^{3} d x + 5 \, c^{4}\right )} \sqrt{-8 \, d^{3} x^{3} + c^{3}} \sqrt{c}}{d^{6} x^{6} + 6 \, c d^{5} x^{5} + 15 \, c^{2} d^{4} x^{4} + 20 \, c^{3} d^{3} x^{3} + 15 \, c^{4} d^{2} x^{2} + 6 \, c^{5} d x + c^{6}}\right )}{6 \, \sqrt{c} d}, -\frac{\sqrt{-c} \arctan \left (\frac{{\left (4 \, d^{3} x^{3} - 24 \, c d^{2} x^{2} - 6 \, c^{2} d x - 5 \, c^{3}\right )} \sqrt{-8 \, d^{3} x^{3} + c^{3}} \sqrt{-c}}{3 \,{\left (16 \, c d^{4} x^{4} - 8 \, c^{2} d^{3} x^{3} - 2 \, c^{4} d x + c^{5}\right )}}\right )}{3 \, c d}\right ] \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

[1/6*log((8*d^6*x^6 - 240*c*d^5*x^5 + 408*c^2*d^4*x^4 + 88*c^3*d^3*x^3 + 156*c^4*d^2*x^2 + 12*c^5*d*x + 17*c^6
- 3*(8*d^4*x^4 - 52*c*d^3*x^3 + 12*c^2*d^2*x^2 - 4*c^3*d*x + 5*c^4)*sqrt(-8*d^3*x^3 + c^3)*sqrt(c))/(d^6*x^6
+ 6*c*d^5*x^5 + 15*c^2*d^4*x^4 + 20*c^3*d^3*x^3 + 15*c^4*d^2*x^2 + 6*c^5*d*x + c^6))/(sqrt(c)*d), -1/3*sqrt(-c
)*arctan(1/3*(4*d^3*x^3 - 24*c*d^2*x^2 - 6*c^2*d*x - 5*c^3)*sqrt(-8*d^3*x^3 + c^3)*sqrt(-c)/(16*c*d^4*x^4 - 8*
c^2*d^3*x^3 - 2*c^4*d*x + c^5))/(c*d)]

________________________________________________________________________________________

Sympy [F]  time = 0., size = 0, normalized size = 0. \begin{align*} - \int - \frac{c}{c \sqrt{c^{3} - 8 d^{3} x^{3}} + d x \sqrt{c^{3} - 8 d^{3} x^{3}}}\, dx - \int \frac{2 d x}{c \sqrt{c^{3} - 8 d^{3} x^{3}} + d x \sqrt{c^{3} - 8 d^{3} x^{3}}}\, dx \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-2*d*x+c)/(d*x+c)/(-8*d**3*x**3+c**3)**(1/2),x)

[Out]

-Integral(-c/(c*sqrt(c**3 - 8*d**3*x**3) + d*x*sqrt(c**3 - 8*d**3*x**3)), x) - Integral(2*d*x/(c*sqrt(c**3 - 8
*d**3*x**3) + d*x*sqrt(c**3 - 8*d**3*x**3)), x)

________________________________________________________________________________________

Giac [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int -\frac{2 \, d x - c}{\sqrt{-8 \, d^{3} x^{3} + c^{3}}{\left (d x + c\right )}}\,{d x} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate(-(2*d*x - c)/(sqrt(-8*d^3*x^3 + c^3)*(d*x + c)), x)