3.3.92 \(\int \frac {1}{(a-a x^2) (b-2 b \coth ^{-1}(x))} \, dx\) [292]

Optimal. Leaf size=17 \[ -\frac {\log \left (1-2 \coth ^{-1}(x)\right )}{2 a b} \]

[Out]

-1/2*ln(1-2*arccoth(x))/a/b

________________________________________________________________________________________

Rubi [A]
time = 0.03, antiderivative size = 17, normalized size of antiderivative = 1.00, number of steps used = 1, number of rules used = 1, integrand size = 20, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.050, Rules used = {6094} \begin {gather*} -\frac {\log \left (1-2 \coth ^{-1}(x)\right )}{2 a b} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[1/((a - a*x^2)*(b - 2*b*ArcCoth[x])),x]

[Out]

-1/2*Log[1 - 2*ArcCoth[x]]/(a*b)

Rule 6094

Int[1/(((a_.) + ArcCoth[(c_.)*(x_)]*(b_.))*((d_) + (e_.)*(x_)^2)), x_Symbol] :> Simp[Log[RemoveContent[a + b*A
rcCoth[c*x], x]]/(b*c*d), x] /; FreeQ[{a, b, c, d, e}, x] && EqQ[c^2*d + e, 0]

Rubi steps

\begin {align*} \int \frac {1}{\left (a-a x^2\right ) \left (b-2 b \coth ^{-1}(x)\right )} \, dx &=-\frac {\log \left (1-2 \coth ^{-1}(x)\right )}{2 a b}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.04, size = 17, normalized size = 1.00 \begin {gather*} -\frac {\log \left (-1+2 \coth ^{-1}(x)\right )}{2 a b} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[1/((a - a*x^2)*(b - 2*b*ArcCoth[x])),x]

[Out]

-1/2*Log[-1 + 2*ArcCoth[x]]/(a*b)

________________________________________________________________________________________

Maple [A]
time = 0.10, size = 19, normalized size = 1.12

method	result	size
default	\(-\frac {\ln \left (2 b \,\mathrm {arccoth}\left (x \right )-b \right )}{2 a b}\)	\(19\)
risch	\(-\frac {\ln \left (-1+\ln \left (1+x \right )-\ln \left (-1+x \right )\right )}{2 b a}\)	\(22\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-1/2/a*ln(2*b*arccoth(x)-b)/b

________________________________________________________________________________________

Maxima [A]
time = 0.27, size = 21, normalized size = 1.24 \begin {gather*} -\frac {\log \left (\log \left (x + 1\right ) - \log \left (x - 1\right ) - 1\right )}{2 \, a b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-1/2*log(log(x + 1) - log(x - 1) - 1)/(a*b)

________________________________________________________________________________________

Fricas [A]
time = 0.33, size = 21, normalized size = 1.24 \begin {gather*} -\frac {\log \left (\log \left (\frac {x + 1}{x - 1}\right ) - 1\right )}{2 \, a b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-1/2*log(log((x + 1)/(x - 1)) - 1)/(a*b)

________________________________________________________________________________________

Sympy [A]
time = 0.23, size = 14, normalized size = 0.82 \begin {gather*} - \frac {\log {\left (\operatorname {acoth}{\left (x \right )} - \frac {1}{2} \right )}}{2 a b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-log(acoth(x) - 1/2)/(2*a*b)

________________________________________________________________________________________

Giac [B] Leaf count of result is larger than twice the leaf count of optimal. 44 vs. \(2 (15) = 30\).
time = 0.41, size = 44, normalized size = 2.59 \begin {gather*} -\frac {\log \left (\frac {1}{4} \, \pi ^{2} {\left (\mathrm {sgn}\left (x + 1\right ) \mathrm {sgn}\left (x - 1\right ) - 1\right )}^{2} + {\left (\log \left (\frac {{\left | x + 1 \right |}}{{\left | x - 1 \right |}}\right ) - 1\right )}^{2}\right )}{4 \, a b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-1/4*log(1/4*pi^2*(sgn(x + 1)*sgn(x - 1) - 1)^2 + (log(abs(x + 1)/abs(x - 1)) - 1)^2)/(a*b)

________________________________________________________________________________________

Mupad [B]
time = 1.40, size = 15, normalized size = 0.88 \begin {gather*} -\frac {\ln \left (2\,\mathrm {acoth}\left (x\right )-1\right )}{2\,a\,b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-log(2*acoth(x) - 1)/(2*a*b)

________________________________________________________________________________________