3.11.14 \(\int \frac {\sqrt {x (-a x+b \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}})}}{x \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}} \, dx\) [1014]

Optimal. Leaf size=46 \[ \frac {\sqrt {2} b \sin ^{-1}\left (\frac {a x-b \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}}{\sqrt {a}}\right )}{\sqrt {a}} \]

[Out]

b*arcsin((a*x-b*(a/b^2+a^2*x^2/b^2)^(1/2))/a^(1/2))*2^(1/2)/a^(1/2)

________________________________________________________________________________________

Rubi [A]
time = 0.76, antiderivative size = 46, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 3, integrand size = 57, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.053, Rules used = {2156, 2155, 222} \begin {gather*} \frac {\sqrt {2} b \text {ArcSin}\left (\frac {a x-b \sqrt {\frac {a^2 x^2}{b^2}+\frac {a}{b^2}}}{\sqrt {a}}\right )}{\sqrt {a}} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[Sqrt[x*(-(a*x) + b*Sqrt[a/b^2 + (a^2*x^2)/b^2])]/(x*Sqrt[a/b^2 + (a^2*x^2)/b^2]),x]

[Out]

(Sqrt[2]*b*ArcSin[(a*x - b*Sqrt[a/b^2 + (a^2*x^2)/b^2])/Sqrt[a]])/Sqrt[a]

Rule 222

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

Rule 2155

Int[Sqrt[(a_.)*(x_)^2 + (b_.)*(x_)*Sqrt[(c_) + (d_.)*(x_)^2]]/((x_)*Sqrt[(c_) + (d_.)*(x_)^2]), x_Symbol] :> D
ist[Sqrt[2]*(b/a), Subst[Int[1/Sqrt[1 + x^2/a], x], x, a*x + b*Sqrt[c + d*x^2]], x] /; FreeQ[{a, b, c, d}, x]
&& EqQ[a^2 - b^2*d, 0] && EqQ[b^2*c + a, 0]

Rule 2156

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

Rubi steps

\begin {align*} \int \frac {\sqrt {x \left (-a x+b \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}\right )}}{x \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}} \, dx &=\int \frac {\sqrt {-a x^2+b x \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}}}{x \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}} \, dx\\ &=-\frac {\left (\sqrt {2} b\right ) \text {Subst}\left (\int \frac {1}{\sqrt {1-\frac {x^2}{a}}} \, dx,x,-a x+b \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}\right )}{a}\\ &=\frac {\sqrt {2} b \sin ^{-1}\left (\frac {a x-b \sqrt {\frac {a}{b^2}+\frac {a^2 x^2}{b^2}}}{\sqrt {a}}\right )}{\sqrt {a}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [B] Leaf count is larger than twice the leaf count of optimal. \(114\) vs. \(2(46)=92\).
time = 0.01, size = 114, normalized size = 2.48 \begin {gather*} \frac {\sqrt {2} b \sqrt {x \left (-a x+b \sqrt {\frac {a \left (1+a x^2\right )}{b^2}}\right )} \sqrt {a x \left (a x+b \sqrt {\frac {a \left (1+a x^2\right )}{b^2}}\right )} \tan ^{-1}\left (\frac {\sqrt {2} \sqrt {a x \left (a x+b \sqrt {\frac {a \left (1+a x^2\right )}{b^2}}\right )}}{\sqrt {a}}\right )}{a^{3/2} x} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[Sqrt[x*(-(a*x) + b*Sqrt[a/b^2 + (a^2*x^2)/b^2])]/(x*Sqrt[a/b^2 + (a^2*x^2)/b^2]),x]

[Out]

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

________________________________________________________________________________________

Maple [F]
time = 0.04, size = 0, normalized size = 0.00 \[\int \frac {\sqrt {x \left (-a x +b \sqrt {\frac {a}{b^{2}}+\frac {a^{2} x^{2}}{b^{2}}}\right )}}{x \sqrt {\frac {a}{b^{2}}+\frac {a^{2} x^{2}}{b^{2}}}}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

Maxima [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Failed to integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate(sqrt(-(a*x - sqrt(a^2*x^2/b^2 + a/b^2)*b)*x)/(sqrt(a^2*x^2/b^2 + a/b^2)*x), x)

________________________________________________________________________________________

Fricas [A]
time = 5.27, size = 161, normalized size = 3.50 \begin {gather*} \left [\frac {1}{2} \, \sqrt {2} b \sqrt {-\frac {1}{a}} \log \left (4 \, a x^{2} - 4 \, b x \sqrt {\frac {a^{2} x^{2} + a}{b^{2}}} + 2 \, \sqrt {-a x^{2} + b x \sqrt {\frac {a^{2} x^{2} + a}{b^{2}}}} {\left (\sqrt {2} a x \sqrt {-\frac {1}{a}} - \sqrt {2} b \sqrt {-\frac {1}{a}} \sqrt {\frac {a^{2} x^{2} + a}{b^{2}}}\right )} + 1\right ), -\frac {\sqrt {2} b \arctan \left (\frac {\sqrt {2} \sqrt {-a x^{2} + b x \sqrt {\frac {a^{2} x^{2} + a}{b^{2}}}}}{2 \, \sqrt {a} x}\right )}{\sqrt {a}}\right ] \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

[1/2*sqrt(2)*b*sqrt(-1/a)*log(4*a*x^2 - 4*b*x*sqrt((a^2*x^2 + a)/b^2) + 2*sqrt(-a*x^2 + b*x*sqrt((a^2*x^2 + a)
/b^2))*(sqrt(2)*a*x*sqrt(-1/a) - sqrt(2)*b*sqrt(-1/a)*sqrt((a^2*x^2 + a)/b^2)) + 1), -sqrt(2)*b*arctan(1/2*sqr
t(2)*sqrt(-a*x^2 + b*x*sqrt((a^2*x^2 + a)/b^2))/(sqrt(a)*x))/sqrt(a)]

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((x*(-a*x+b*(a/b**2+a**2*x**2/b**2)**(1/2)))**(1/2)/x/(a/b**2+a**2*x**2/b**2)**(1/2),x)

[Out]

Integral(sqrt(-x*(a*x - b*sqrt(a**2*x**2/b**2 + a/b**2)))/(x*sqrt(a*(a*x**2 + 1)/b**2)), x)

________________________________________________________________________________________

Giac [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate(sqrt(-(a*x - sqrt(a^2*x^2/b^2 + a/b^2)*b)*x)/(sqrt(a^2*x^2/b^2 + a/b^2)*x), x)

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________