\(\int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx\) [2827]

Optimal result

Integrand size = 34, antiderivative size = 286 \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=-2 \log \left (1+2 \sqrt {-b+a x}-2 \sqrt {a x+\sqrt {-b+a x}}\right )-2 \text {RootSum}\left [1-8 b+16 b^2+4 \text {$\#$1}-16 b \text {$\#$1}+6 \text {$\#$1}^2+8 b \text {$\#$1}^2+4 \text {$\#$1}^3+\text {$\#$1}^4\&,\frac {-\log \left (1+2 \sqrt {-b+a x}-2 \sqrt {a x+\sqrt {-b+a x}}+\text {$\#$1}\right )+4 b \log \left (1+2 \sqrt {-b+a x}-2 \sqrt {a x+\sqrt {-b+a x}}+\text {$\#$1}\right )-2 \log \left (1+2 \sqrt {-b+a x}-2 \sqrt {a x+\sqrt {-b+a x}}+\text {$\#$1}\right ) \text {$\#$1}-\log \left (1+2 \sqrt {-b+a x}-2 \sqrt {a x+\sqrt {-b+a x}}+\text {$\#$1}\right ) \text {$\#$1}^2}{1-4 b+3 \text {$\#$1}+4 b \text {$\#$1}+3 \text {$\#$1}^2+\text {$\#$1}^3}\&\right ] \]

[Out]

Unintegrable

Rubi [A] (verified)

Time = 0.78 (sec) , antiderivative size = 164, normalized size of antiderivative = 0.57, number of steps used = 9, number of rules used = 7, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.206, Rules used = {1004, 635, 212, 1050, 1044, 214, 211} \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=-\frac {\sqrt {2} \arctan \left (\frac {\sqrt {b}-\sqrt {a x-b}}{\sqrt {2} \sqrt [4]{b} \sqrt {\sqrt {a x-b}+a x}}\right )}{\sqrt [4]{b}}-\frac {\sqrt {2} \text {arctanh}\left (\frac {\sqrt {a x-b}+\sqrt {b}}{\sqrt {2} \sqrt [4]{b} \sqrt {\sqrt {a x-b}+a x}}\right )}{\sqrt [4]{b}}+2 \text {arctanh}\left (\frac {2 \sqrt {a x-b}+1}{2 \sqrt {\sqrt {a x-b}+a x}}\right ) \]

[In]

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

[Out]

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

Rule 211

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

Rule 212

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

Rule 214

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

Rule 635

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

Rule 1004

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

Rule 1044

Int[((g_) + (h_.)*(x_))/(((a_) + (c_.)*(x_)^2)*Sqrt[(d_.) + (e_.)*(x_) + (f_.)*(x_)^2]), x_Symbol] :> Dist[-2*
a*g*h, Subst[Int[1/Simp[2*a^2*g*h*c + a*e*x^2, x], x], x, Simp[a*h - g*c*x, x]/Sqrt[d + e*x + f*x^2]], x] /; F
reeQ[{a, c, d, e, f, g, h}, x] && EqQ[a*h^2*e + 2*g*h*(c*d - a*f) - g^2*c*e, 0]

Rule 1050

Int[((g_.) + (h_.)*(x_))/(((a_) + (c_.)*(x_)^2)*Sqrt[(d_.) + (e_.)*(x_) + (f_.)*(x_)^2]), x_Symbol] :> With[{q
= Rt[(c*d - a*f)^2 + a*c*e^2, 2]}, Dist[1/(2*q), Int[Simp[(-a)*h*e - g*(c*d - a*f - q) + (h*(c*d - a*f + q) -
g*c*e)*x, x]/((a + c*x^2)*Sqrt[d + e*x + f*x^2]), x], x] - Dist[1/(2*q), Int[Simp[(-a)*h*e - g*(c*d - a*f + q
) + (h*(c*d - a*f - q) - g*c*e)*x, x]/((a + c*x^2)*Sqrt[d + e*x + f*x^2]), x], x]] /; FreeQ[{a, c, d, e, f, g,
h}, x] && NeQ[e^2 - 4*d*f, 0] && NegQ[(-a)*c]

Rubi steps \begin{align*} \text {integral}& = 2 \text {Subst}\left (\int \frac {\sqrt {b+x+x^2}}{b+x^2} \, dx,x,\sqrt {-b+a x}\right ) \\ & = 2 \text {Subst}\left (\int \frac {1}{\sqrt {b+x+x^2}} \, dx,x,\sqrt {-b+a x}\right )+2 \text {Subst}\left (\int \frac {x}{\left (b+x^2\right ) \sqrt {b+x+x^2}} \, dx,x,\sqrt {-b+a x}\right ) \\ & = 4 \text {Subst}\left (\int \frac {1}{4-x^2} \, dx,x,\frac {1+2 \sqrt {-b+a x}}{\sqrt {a x+\sqrt {-b+a x}}}\right )-\frac {\text {Subst}\left (\int \frac {-b-\sqrt {b} x}{\left (b+x^2\right ) \sqrt {b+x+x^2}} \, dx,x,\sqrt {-b+a x}\right )}{\sqrt {b}}+\frac {\text {Subst}\left (\int \frac {-b+\sqrt {b} x}{\left (b+x^2\right ) \sqrt {b+x+x^2}} \, dx,x,\sqrt {-b+a x}\right )}{\sqrt {b}} \\ & = 2 \text {arctanh}\left (\frac {1+2 \sqrt {-b+a x}}{2 \sqrt {a x+\sqrt {-b+a x}}}\right )+\left (2 b^2\right ) \text {Subst}\left (\int \frac {1}{-2 b^{7/2}+b x^2} \, dx,x,\frac {b^{3/2}+b \sqrt {-b+a x}}{\sqrt {a x+\sqrt {-b+a x}}}\right )+\left (2 b^2\right ) \text {Subst}\left (\int \frac {1}{2 b^{7/2}+b x^2} \, dx,x,\frac {-b^{3/2}+b \sqrt {-b+a x}}{\sqrt {a x+\sqrt {-b+a x}}}\right ) \\ & = -\frac {\sqrt {2} \arctan \left (\frac {\sqrt {b}-\sqrt {-b+a x}}{\sqrt {2} \sqrt [4]{b} \sqrt {a x+\sqrt {-b+a x}}}\right )}{\sqrt [4]{b}}-\frac {\sqrt {2} \text {arctanh}\left (\frac {\sqrt {b}+\sqrt {-b+a x}}{\sqrt {2} \sqrt [4]{b} \sqrt {a x+\sqrt {-b+a x}}}\right )}{\sqrt [4]{b}}+2 \text {arctanh}\left (\frac {1+2 \sqrt {-b+a x}}{2 \sqrt {a x+\sqrt {-b+a x}}}\right ) \\ \end{align*}

Mathematica [A] (verified)

Time = 0.15 (sec) , antiderivative size = 166, normalized size of antiderivative = 0.58 \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=-2 \log \left (-1-2 \sqrt {-b+a x}+2 \sqrt {a x+\sqrt {-b+a x}}\right )-\text {RootSum}\left [b+b^2-4 b \text {$\#$1}+2 b \text {$\#$1}^2+\text {$\#$1}^4\&,\frac {b \log \left (-\sqrt {-b+a x}+\sqrt {a x+\sqrt {-b+a x}}-\text {$\#$1}\right )-\log \left (-\sqrt {-b+a x}+\sqrt {a x+\sqrt {-b+a x}}-\text {$\#$1}\right ) \text {$\#$1}^2}{-b+b \text {$\#$1}+\text {$\#$1}^3}\&\right ] \]

[In]

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

[Out]

-2*Log[-1 - 2*Sqrt[-b + a*x] + 2*Sqrt[a*x + Sqrt[-b + a*x]]] - RootSum[b + b^2 - 4*b*#1 + 2*b*#1^2 + #1^4 & ,
(b*Log[-Sqrt[-b + a*x] + Sqrt[a*x + Sqrt[-b + a*x]] - #1] - Log[-Sqrt[-b + a*x] + Sqrt[a*x + Sqrt[-b + a*x]] -
#1]*#1^2)/(-b + b*#1 + #1^3) & ]

Maple [N/A] (verified)

Time = 0.36 (sec) , antiderivative size = 529, normalized size of antiderivative = 1.85

method	result	size
derivativedivides	\(-\frac {\sqrt {\left (\sqrt {a x -b}+\sqrt {-b}\right )^{2}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )-\sqrt {-b}}+\frac {\left (1-2 \sqrt {-b}\right ) \ln \left (\frac {1}{2}+\sqrt {a x -b}+\sqrt {\left (\sqrt {a x -b}+\sqrt {-b}\right )^{2}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )-\sqrt {-b}}\right )}{2}+\frac {\sqrt {-b}\, \ln \left (\frac {-2 \sqrt {-b}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )+2 \sqrt {-\sqrt {-b}}\, \sqrt {\left (\sqrt {a x -b}+\sqrt {-b}\right )^{2}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )-\sqrt {-b}}}{\sqrt {a x -b}+\sqrt {-b}}\right )}{\sqrt {-\sqrt {-b}}}}{\sqrt {-b}}+\frac {\sqrt {\left (\sqrt {a x -b}-\sqrt {-b}\right )^{2}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+\sqrt {-b}}+\frac {\left (1+2 \sqrt {-b}\right ) \ln \left (\frac {1}{2}+\sqrt {a x -b}+\sqrt {\left (\sqrt {a x -b}-\sqrt {-b}\right )^{2}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+\sqrt {-b}}\right )}{2}-\left (-b \right )^{\frac {1}{4}} \ln \left (\frac {2 \sqrt {-b}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+2 \left (-b \right )^{\frac {1}{4}} \sqrt {\left (\sqrt {a x -b}-\sqrt {-b}\right )^{2}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+\sqrt {-b}}}{\sqrt {a x -b}-\sqrt {-b}}\right )}{\sqrt {-b}}\)	\(529\)
default	\(-\frac {\sqrt {\left (\sqrt {a x -b}+\sqrt {-b}\right )^{2}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )-\sqrt {-b}}+\frac {\left (1-2 \sqrt {-b}\right ) \ln \left (\frac {1}{2}+\sqrt {a x -b}+\sqrt {\left (\sqrt {a x -b}+\sqrt {-b}\right )^{2}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )-\sqrt {-b}}\right )}{2}+\frac {\sqrt {-b}\, \ln \left (\frac {-2 \sqrt {-b}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )+2 \sqrt {-\sqrt {-b}}\, \sqrt {\left (\sqrt {a x -b}+\sqrt {-b}\right )^{2}+\left (1-2 \sqrt {-b}\right ) \left (\sqrt {a x -b}+\sqrt {-b}\right )-\sqrt {-b}}}{\sqrt {a x -b}+\sqrt {-b}}\right )}{\sqrt {-\sqrt {-b}}}}{\sqrt {-b}}+\frac {\sqrt {\left (\sqrt {a x -b}-\sqrt {-b}\right )^{2}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+\sqrt {-b}}+\frac {\left (1+2 \sqrt {-b}\right ) \ln \left (\frac {1}{2}+\sqrt {a x -b}+\sqrt {\left (\sqrt {a x -b}-\sqrt {-b}\right )^{2}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+\sqrt {-b}}\right )}{2}-\left (-b \right )^{\frac {1}{4}} \ln \left (\frac {2 \sqrt {-b}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+2 \left (-b \right )^{\frac {1}{4}} \sqrt {\left (\sqrt {a x -b}-\sqrt {-b}\right )^{2}+\left (1+2 \sqrt {-b}\right ) \left (\sqrt {a x -b}-\sqrt {-b}\right )+\sqrt {-b}}}{\sqrt {a x -b}-\sqrt {-b}}\right )}{\sqrt {-b}}\)	\(529\)

[In]

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

[Out]

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

Fricas [F(-1)]

Timed out. \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=\text {Timed out} \]

[In]

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

[Out]

Timed out

Sympy [N/A]

Not integrable

Time = 0.71 (sec) , antiderivative size = 26, normalized size of antiderivative = 0.09 \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=\int \frac {\sqrt {a x + \sqrt {a x - b}}}{x \sqrt {a x - b}}\, dx \]

[In]

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

[Out]

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

Maxima [N/A]

Not integrable

Time = 0.29 (sec) , antiderivative size = 30, normalized size of antiderivative = 0.10 \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=\int { \frac {\sqrt {a x + \sqrt {a x - b}}}{\sqrt {a x - b} x} \,d x } \]

[In]

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

[Out]

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

Giac [F(-1)]

Timed out. \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=\text {Timed out} \]

[In]

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

[Out]

Timed out

Mupad [N/A]

Not integrable

Time = 7.03 (sec) , antiderivative size = 30, normalized size of antiderivative = 0.10 \[ \int \frac {\sqrt {a x+\sqrt {-b+a x}}}{x \sqrt {-b+a x}} \, dx=\int \frac {\sqrt {a\,x+\sqrt {a\,x-b}}}{x\,\sqrt {a\,x-b}} \,d x \]

[In]

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

[Out]

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