Integrand size = 21, antiderivative size = 95 \[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=-\frac {\sqrt {1+\frac {1}{a x}} \sqrt {c-a c x}}{\sqrt {1-\frac {1}{a x}} x}-\frac {a \sqrt {\frac {1}{a x}} \sqrt {c-a c x} \text {arcsinh}\left (\sqrt {\frac {1}{a x}}\right )}{\sqrt {1-\frac {1}{a x}}} \] Output:
-(1+1/a/x)^(1/2)*(-a*c*x+c)^(1/2)/(1-1/a/x)^(1/2)/x-a*(1/a/x)^(1/2)*(-a*c* x+c)^(1/2)*arcsinh((1/a/x)^(1/2))/(1-1/a/x)^(1/2)
Time = 0.05 (sec) , antiderivative size = 76, normalized size of antiderivative = 0.80 \[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=-\frac {\sqrt {\frac {1}{x}} \sqrt {c-a c x} \left (\sqrt {1+\frac {1}{a x}} \sqrt {\frac {1}{x}}+\sqrt {a} \text {arcsinh}\left (\frac {\sqrt {\frac {1}{x}}}{\sqrt {a}}\right )\right )}{\sqrt {1-\frac {1}{a x}}} \] Input:
Integrate[(E^ArcCoth[a*x]*Sqrt[c - a*c*x])/x^2,x]
Output:
-((Sqrt[x^(-1)]*Sqrt[c - a*c*x]*(Sqrt[1 + 1/(a*x)]*Sqrt[x^(-1)] + Sqrt[a]* ArcSinh[Sqrt[x^(-1)]/Sqrt[a]]))/Sqrt[1 - 1/(a*x)])
Time = 0.48 (sec) , antiderivative size = 76, normalized size of antiderivative = 0.80, number of steps used = 5, number of rules used = 4, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.190, Rules used = {6730, 60, 63, 222}
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 {\sqrt {c-a c x} e^{\coth ^{-1}(a x)}}{x^2} \, dx\) |
\(\Big \downarrow \) 6730 |
\(\displaystyle -\frac {\sqrt {\frac {1}{x}} \sqrt {c-a c x} \int \frac {\sqrt {1+\frac {1}{a x}}}{\sqrt {\frac {1}{x}}}d\frac {1}{x}}{\sqrt {1-\frac {1}{a x}}}\) |
\(\Big \downarrow \) 60 |
\(\displaystyle -\frac {\sqrt {\frac {1}{x}} \sqrt {c-a c x} \left (\frac {1}{2} \int \frac {1}{\sqrt {1+\frac {1}{a x}} \sqrt {\frac {1}{x}}}d\frac {1}{x}+\sqrt {\frac {1}{x}} \sqrt {\frac {1}{a x}+1}\right )}{\sqrt {1-\frac {1}{a x}}}\) |
\(\Big \downarrow \) 63 |
\(\displaystyle -\frac {\sqrt {\frac {1}{x}} \sqrt {c-a c x} \left (\int \frac {1}{\sqrt {1+\frac {1}{x^2 a}}}d\sqrt {\frac {1}{x}}+\sqrt {\frac {1}{x}} \sqrt {\frac {1}{a x}+1}\right )}{\sqrt {1-\frac {1}{a x}}}\) |
\(\Big \downarrow \) 222 |
\(\displaystyle -\frac {\sqrt {\frac {1}{x}} \left (\sqrt {a} \text {arcsinh}\left (\frac {\sqrt {\frac {1}{x}}}{\sqrt {a}}\right )+\sqrt {\frac {1}{x}} \sqrt {\frac {1}{a x}+1}\right ) \sqrt {c-a c x}}{\sqrt {1-\frac {1}{a x}}}\) |
Input:
Int[(E^ArcCoth[a*x]*Sqrt[c - a*c*x])/x^2,x]
Output:
-((Sqrt[x^(-1)]*Sqrt[c - a*c*x]*(Sqrt[1 + 1/(a*x)]*Sqrt[x^(-1)] + Sqrt[a]* ArcSinh[Sqrt[x^(-1)]/Sqrt[a]]))/Sqrt[1 - 1/(a*x)])
Int[((a_.) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_), x_Symbol] :> Simp[ (a + b*x)^(m + 1)*((c + d*x)^n/(b*(m + n + 1))), x] + Simp[n*((b*c - a*d)/( b*(m + n + 1))) Int[(a + b*x)^m*(c + d*x)^(n - 1), x], x] /; FreeQ[{a, b, c, d}, x] && GtQ[n, 0] && NeQ[m + n + 1, 0] && !(IGtQ[m, 0] && ( !Integer Q[n] || (GtQ[m, 0] && LtQ[m - n, 0]))) && !ILtQ[m + n + 2, 0] && IntLinear Q[a, b, c, d, m, n, x]
Int[1/(Sqrt[(b_.)*(x_)]*Sqrt[(c_) + (d_.)*(x_)]), x_Symbol] :> Simp[2/b S ubst[Int[1/Sqrt[c + d*(x^2/b)], x], x, Sqrt[b*x]], x] /; FreeQ[{b, c, d}, x ] && GtQ[c, 0]
Int[1/Sqrt[(a_) + (b_.)*(x_)^2], x_Symbol] :> Simp[ArcSinh[Rt[b, 2]*(x/Sqrt [a])]/Rt[b, 2], x] /; FreeQ[{a, b}, x] && GtQ[a, 0] && PosQ[b]
Int[E^(ArcCoth[(a_.)*(x_)]*(n_.))*((e_.)*(x_))^(m_.)*((c_) + (d_.)*(x_))^(p _), x_Symbol] :> Simp[(-(e*x)^m)*(1/x)^(m + p)*((c + d*x)^p/(1 + c/(d*x))^p ) Subst[Int[((1 + c*(x/d))^p*((1 + x/a)^(n/2)/x^(m + p + 2)))/(1 - x/a)^( n/2), x], x, 1/x], x] /; FreeQ[{a, c, d, e, m, n, p}, x] && EqQ[a^2*c^2 - d ^2, 0] && !IntegerQ[p]
Time = 0.15 (sec) , antiderivative size = 78, normalized size of antiderivative = 0.82
method | result | size |
default | \(-\frac {\left (\arctan \left (\frac {\sqrt {-c \left (a x +1\right )}}{\sqrt {c}}\right ) a c x +\sqrt {-c \left (a x +1\right )}\, \sqrt {c}\right ) \sqrt {-c \left (a x -1\right )}}{\sqrt {\frac {a x -1}{a x +1}}\, \sqrt {-c \left (a x +1\right )}\, x \sqrt {c}}\) | \(78\) |
risch | \(\frac {c \left (a x -1\right )}{x \sqrt {\frac {a x -1}{a x +1}}\, \sqrt {-c \left (a x -1\right )}}-\frac {a \sqrt {c}\, \arctan \left (\frac {\sqrt {-a c x -c}}{\sqrt {c}}\right ) \sqrt {-c \left (a x +1\right )}\, \left (a x -1\right )}{\sqrt {\frac {a x -1}{a x +1}}\, \left (a x +1\right ) \sqrt {-c \left (a x -1\right )}}\) | \(106\) |
Input:
int(1/((a*x-1)/(a*x+1))^(1/2)*(-a*c*x+c)^(1/2)/x^2,x,method=_RETURNVERBOSE )
Output:
-(arctan((-c*(a*x+1))^(1/2)/c^(1/2))*a*c*x+(-c*(a*x+1))^(1/2)*c^(1/2))*(-c *(a*x-1))^(1/2)/((a*x-1)/(a*x+1))^(1/2)/(-c*(a*x+1))^(1/2)/x/c^(1/2)
Time = 0.11 (sec) , antiderivative size = 234, normalized size of antiderivative = 2.46 \[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=\left [\frac {{\left (a^{2} x^{2} - a x\right )} \sqrt {-c} \log \left (-\frac {a^{2} c x^{2} + a c x + 2 \, \sqrt {-a c x + c} {\left (a x + 1\right )} \sqrt {-c} \sqrt {\frac {a x - 1}{a x + 1}} - 2 \, c}{a x^{2} - x}\right ) - 2 \, \sqrt {-a c x + c} {\left (a x + 1\right )} \sqrt {\frac {a x - 1}{a x + 1}}}{2 \, {\left (a x^{2} - x\right )}}, -\frac {{\left (a^{2} x^{2} - a x\right )} \sqrt {c} \arctan \left (\frac {\sqrt {-a c x + c} {\left (a x + 1\right )} \sqrt {c} \sqrt {\frac {a x - 1}{a x + 1}}}{a c x - c}\right ) + \sqrt {-a c x + c} {\left (a x + 1\right )} \sqrt {\frac {a x - 1}{a x + 1}}}{a x^{2} - x}\right ] \] Input:
integrate(1/((a*x-1)/(a*x+1))^(1/2)*(-a*c*x+c)^(1/2)/x^2,x, algorithm="fri cas")
Output:
[1/2*((a^2*x^2 - a*x)*sqrt(-c)*log(-(a^2*c*x^2 + a*c*x + 2*sqrt(-a*c*x + c )*(a*x + 1)*sqrt(-c)*sqrt((a*x - 1)/(a*x + 1)) - 2*c)/(a*x^2 - x)) - 2*sqr t(-a*c*x + c)*(a*x + 1)*sqrt((a*x - 1)/(a*x + 1)))/(a*x^2 - x), -((a^2*x^2 - a*x)*sqrt(c)*arctan(sqrt(-a*c*x + c)*(a*x + 1)*sqrt(c)*sqrt((a*x - 1)/( a*x + 1))/(a*c*x - c)) + sqrt(-a*c*x + c)*(a*x + 1)*sqrt((a*x - 1)/(a*x + 1)))/(a*x^2 - x)]
\[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=\int \frac {\sqrt {- c \left (a x - 1\right )}}{x^{2} \sqrt {\frac {a x - 1}{a x + 1}}}\, dx \] Input:
integrate(1/((a*x-1)/(a*x+1))**(1/2)*(-a*c*x+c)**(1/2)/x**2,x)
Output:
Integral(sqrt(-c*(a*x - 1))/(x**2*sqrt((a*x - 1)/(a*x + 1))), x)
\[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=\int { \frac {\sqrt {-a c x + c}}{x^{2} \sqrt {\frac {a x - 1}{a x + 1}}} \,d x } \] Input:
integrate(1/((a*x-1)/(a*x+1))^(1/2)*(-a*c*x+c)^(1/2)/x^2,x, algorithm="max ima")
Output:
integrate(sqrt(-a*c*x + c)/(x^2*sqrt((a*x - 1)/(a*x + 1))), x)
Time = 0.15 (sec) , antiderivative size = 101, normalized size of antiderivative = 1.06 \[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=\frac {{\left (\frac {a^{2} \arctan \left (\frac {\sqrt {-a c x - c}}{\sqrt {c}}\right )}{\sqrt {c}} - \frac {a^{2} c \arctan \left (\frac {\sqrt {2} \sqrt {-c}}{\sqrt {c}}\right ) + \sqrt {2} a^{2} \sqrt {-c} \sqrt {c}}{c^{\frac {3}{2}}} + \frac {\sqrt {-a c x - c} a}{c x}\right )} c^{2}}{a {\left | c \right |} \mathrm {sgn}\left (a x + 1\right )} \] Input:
integrate(1/((a*x-1)/(a*x+1))^(1/2)*(-a*c*x+c)^(1/2)/x^2,x, algorithm="gia c")
Output:
(a^2*arctan(sqrt(-a*c*x - c)/sqrt(c))/sqrt(c) - (a^2*c*arctan(sqrt(2)*sqrt (-c)/sqrt(c)) + sqrt(2)*a^2*sqrt(-c)*sqrt(c))/c^(3/2) + sqrt(-a*c*x - c)*a /(c*x))*c^2/(a*abs(c)*sgn(a*x + 1))
Timed out. \[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=\int \frac {\sqrt {c-a\,c\,x}}{x^2\,\sqrt {\frac {a\,x-1}{a\,x+1}}} \,d x \] Input:
int((c - a*c*x)^(1/2)/(x^2*((a*x - 1)/(a*x + 1))^(1/2)),x)
Output:
int((c - a*c*x)^(1/2)/(x^2*((a*x - 1)/(a*x + 1))^(1/2)), x)
Time = 0.15 (sec) , antiderivative size = 56, normalized size of antiderivative = 0.59 \[ \int \frac {e^{\coth ^{-1}(a x)} \sqrt {c-a c x}}{x^2} \, dx=\frac {\sqrt {c}\, i \left (2 \sqrt {a x +1}-\mathrm {log}\left (\frac {2 \sqrt {a x +1}-2}{\sqrt {2}}\right ) a x +\mathrm {log}\left (\frac {2 \sqrt {a x +1}+2}{\sqrt {2}}\right ) a x \right )}{2 x} \] Input:
int(1/((a*x-1)/(a*x+1))^(1/2)*(-a*c*x+c)^(1/2)/x^2,x)
Output:
(sqrt(c)*i*(2*sqrt(a*x + 1) - log((2*sqrt(a*x + 1) - 2)/sqrt(2))*a*x + log ((2*sqrt(a*x + 1) + 2)/sqrt(2))*a*x))/(2*x)