3.294 \(\int \frac {e^{\tanh ^{-1}(a x)} (c-a c x)}{x^4} \, dx\)

Optimal. Leaf size=22 \[ -\frac {c \left (1-a^2 x^2\right )^{3/2}}{3 x^3} \]

[Out]

-1/3*c*(-a^2*x^2+1)^(3/2)/x^3

________________________________________________________________________________________

Rubi [A]  time = 0.04, antiderivative size = 22, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, integrand size = 17, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.118, Rules used = {6128, 264} \[ -\frac {c \left (1-a^2 x^2\right )^{3/2}}{3 x^3} \]

Antiderivative was successfully verified.

[In]

Int[(E^ArcTanh[a*x]*(c - a*c*x))/x^4,x]

[Out]

-(c*(1 - a^2*x^2)^(3/2))/(3*x^3)

Rule 264

Int[((c_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[((c*x)^(m + 1)*(a + b*x^n)^(p + 1))/(a
*c*(m + 1)), x] /; FreeQ[{a, b, c, m, n, p}, x] && EqQ[(m + 1)/n + p + 1, 0] && NeQ[m, -1]

Rule 6128

Int[E^(ArcTanh[(a_.)*(x_)]*(n_.))*((c_) + (d_.)*(x_))^(p_.)*((e_.) + (f_.)*(x_))^(m_.), x_Symbol] :> Dist[c^n,
Int[(e + f*x)^m*(c + d*x)^(p - n)*(1 - a^2*x^2)^(n/2), x], x] /; FreeQ[{a, c, d, e, f, m, p}, x] && EqQ[a*c +
d, 0] && IntegerQ[(n - 1)/2] && (IntegerQ[p] || EqQ[p, n/2] || EqQ[p - n/2 - 1, 0]) && IntegerQ[2*p]

Rubi steps

\begin {align*} \int \frac {e^{\tanh ^{-1}(a x)} (c-a c x)}{x^4} \, dx &=c \int \frac {\sqrt {1-a^2 x^2}}{x^4} \, dx\\ &=-\frac {c \left (1-a^2 x^2\right )^{3/2}}{3 x^3}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.01, size = 22, normalized size = 1.00 \[ -\frac {c \left (1-a^2 x^2\right )^{3/2}}{3 x^3} \]

Antiderivative was successfully verified.

[In]

Integrate[(E^ArcTanh[a*x]*(c - a*c*x))/x^4,x]

[Out]

-1/3*(c*(1 - a^2*x^2)^(3/2))/x^3

________________________________________________________________________________________

fricas [A]  time = 0.41, size = 29, normalized size = 1.32 \[ \frac {{\left (a^{2} c x^{2} - c\right )} \sqrt {-a^{2} x^{2} + 1}}{3 \, x^{3}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

1/3*(a^2*c*x^2 - c)*sqrt(-a^2*x^2 + 1)/x^3

________________________________________________________________________________________

giac [B]  time = 0.19, size = 124, normalized size = 5.64 \[ \frac {{\left (a^{4} c - \frac {3 \, {\left (\sqrt {-a^{2} x^{2} + 1} {\left | a \right |} + a\right )}^{2} c}{x^{2}}\right )} a^{6} x^{3}}{24 \, {\left (\sqrt {-a^{2} x^{2} + 1} {\left | a \right |} + a\right )}^{3} {\left | a \right |}} + \frac {\frac {3 \, {\left (\sqrt {-a^{2} x^{2} + 1} {\left | a \right |} + a\right )} a^{4} c}{x} - \frac {{\left (\sqrt {-a^{2} x^{2} + 1} {\left | a \right |} + a\right )}^{3} c}{x^{3}}}{24 \, a^{2} {\left | a \right |}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

1/24*(a^4*c - 3*(sqrt(-a^2*x^2 + 1)*abs(a) + a)^2*c/x^2)*a^6*x^3/((sqrt(-a^2*x^2 + 1)*abs(a) + a)^3*abs(a)) +
1/24*(3*(sqrt(-a^2*x^2 + 1)*abs(a) + a)*a^4*c/x - (sqrt(-a^2*x^2 + 1)*abs(a) + a)^3*c/x^3)/(a^2*abs(a))

________________________________________________________________________________________

maple [A]  time = 0.03, size = 33, normalized size = 1.50 \[ -\frac {\left (a x -1\right )^{2} \left (a x +1\right )^{2} c}{3 x^{3} \sqrt {-a^{2} x^{2}+1}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-1/3*(a*x-1)^2*(a*x+1)^2*c/x^3/(-a^2*x^2+1)^(1/2)

________________________________________________________________________________________

maxima [B]  time = 0.44, size = 40, normalized size = 1.82 \[ \frac {\sqrt {-a^{2} x^{2} + 1} a^{2} c}{3 \, x} - \frac {\sqrt {-a^{2} x^{2} + 1} c}{3 \, x^{3}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

1/3*sqrt(-a^2*x^2 + 1)*a^2*c/x - 1/3*sqrt(-a^2*x^2 + 1)*c/x^3

________________________________________________________________________________________

mupad [B]  time = 0.04, size = 18, normalized size = 0.82 \[ -\frac {c\,{\left (1-a^2\,x^2\right )}^{3/2}}{3\,x^3} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-(c*(1 - a^2*x^2)^(3/2))/(3*x^3)

________________________________________________________________________________________

sympy [A]  time = 3.23, size = 90, normalized size = 4.09 \[ c \left (\begin {cases} \frac {a^{3} \sqrt {-1 + \frac {1}{a^{2} x^{2}}}}{3} - \frac {a \sqrt {-1 + \frac {1}{a^{2} x^{2}}}}{3 x^{2}} & \text {for}\: \frac {1}{\left |{a^{2} x^{2}}\right |} > 1 \\\frac {i a^{3} \sqrt {1 - \frac {1}{a^{2} x^{2}}}}{3} - \frac {i a \sqrt {1 - \frac {1}{a^{2} x^{2}}}}{3 x^{2}} & \text {otherwise} \end {cases}\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

c*Piecewise((a**3*sqrt(-1 + 1/(a**2*x**2))/3 - a*sqrt(-1 + 1/(a**2*x**2))/(3*x**2), 1/Abs(a**2*x**2) > 1), (I*
a**3*sqrt(1 - 1/(a**2*x**2))/3 - I*a*sqrt(1 - 1/(a**2*x**2))/(3*x**2), True))

________________________________________________________________________________________