3.651 \(\int \frac {1}{(a \coth (x)+b \text {csch}(x))^3} \, dx\)

Optimal. Leaf size=50 \[ \frac {2 b}{a^3 (a \cosh (x)+b)}+\frac {\log (a \cosh (x)+b)}{a^3}+\frac {a^2-b^2}{2 a^3 (a \cosh (x)+b)^2} \]

[Out]

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

________________________________________________________________________________________

Rubi [A]  time = 0.11, antiderivative size = 50, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 11, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.273, Rules used = {4392, 2668, 697} \[ \frac {a^2-b^2}{2 a^3 (a \cosh (x)+b)^2}+\frac {2 b}{a^3 (a \cosh (x)+b)}+\frac {\log (a \cosh (x)+b)}{a^3} \]

Antiderivative was successfully verified.

[In]

Int[(a*Coth[x] + b*Csch[x])^(-3),x]

[Out]

(a^2 - b^2)/(2*a^3*(b + a*Cosh[x])^2) + (2*b)/(a^3*(b + a*Cosh[x])) + Log[b + a*Cosh[x]]/a^3

Rule 697

Int[((d_) + (e_.)*(x_))^(m_)*((a_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :> Int[ExpandIntegrand[(d + e*x)^m*(a + c*
x^2)^p, x], x] /; FreeQ[{a, c, d, e, m}, x] && NeQ[c*d^2 + a*e^2, 0] && IGtQ[p, 0]

Rule 2668

Int[cos[(e_.) + (f_.)*(x_)]^(p_.)*((a_) + (b_.)*sin[(e_.) + (f_.)*(x_)])^(m_.), x_Symbol] :> Dist[1/(b^p*f), S
ubst[Int[(a + x)^m*(b^2 - x^2)^((p - 1)/2), x], x, b*Sin[e + f*x]], x] /; FreeQ[{a, b, e, f, m}, x] && Integer
Q[(p - 1)/2] && NeQ[a^2 - b^2, 0]

Rule 4392

Int[(cot[(c_.) + (d_.)*(x_)]^(n_.)*(a_.) + csc[(c_.) + (d_.)*(x_)]^(n_.)*(b_.))^(p_)*(u_.), x_Symbol] :> Int[A
ctivateTrig[u]*Csc[c + d*x]^(n*p)*(b + a*Cos[c + d*x]^n)^p, x] /; FreeQ[{a, b, c, d}, x] && IntegersQ[n, p]

Rubi steps

\begin {align*} \int \frac {1}{(a \coth (x)+b \text {csch}(x))^3} \, dx &=-\left (i \int \frac {\sinh ^3(x)}{(i b+i a \cosh (x))^3} \, dx\right )\\ &=-\frac {\operatorname {Subst}\left (\int \frac {-a^2-x^2}{(i b+x)^3} \, dx,x,i a \cosh (x)\right )}{a^3}\\ &=-\frac {\operatorname {Subst}\left (\int \left (\frac {-a^2+b^2}{(i b+x)^3}+\frac {2 i b}{(i b+x)^2}-\frac {1}{i b+x}\right ) \, dx,x,i a \cosh (x)\right )}{a^3}\\ &=\frac {a^2-b^2}{2 a^3 (b+a \cosh (x))^2}+\frac {2 b}{a^3 (b+a \cosh (x))}+\frac {\log (b+a \cosh (x))}{a^3}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.11, size = 77, normalized size = 1.54 \[ \frac {a^2 \cosh (2 x) \log (a \cosh (x)+b)+a^2 \log (a \cosh (x)+b)+a^2+2 b^2 \log (a \cosh (x)+b)+4 a b \cosh (x) (\log (a \cosh (x)+b)+1)+3 b^2}{2 a^3 (a \cosh (x)+b)^2} \]

Antiderivative was successfully verified.

[In]

Integrate[(a*Coth[x] + b*Csch[x])^(-3),x]

[Out]

(a^2 + 3*b^2 + a^2*Log[b + a*Cosh[x]] + 2*b^2*Log[b + a*Cosh[x]] + a^2*Cosh[2*x]*Log[b + a*Cosh[x]] + 4*a*b*Co
sh[x]*(1 + Log[b + a*Cosh[x]]))/(2*a^3*(b + a*Cosh[x])^2)

________________________________________________________________________________________

fricas [B]  time = 0.78, size = 521, normalized size = 10.42 \[ -\frac {a^{2} x \cosh \relax (x)^{4} + a^{2} x \sinh \relax (x)^{4} + 4 \, {\left (a b x - a b\right )} \cosh \relax (x)^{3} + 4 \, {\left (a^{2} x \cosh \relax (x) + a b x - a b\right )} \sinh \relax (x)^{3} + a^{2} x - 2 \, {\left (a^{2} + 3 \, b^{2} - {\left (a^{2} + 2 \, b^{2}\right )} x\right )} \cosh \relax (x)^{2} + 2 \, {\left (3 \, a^{2} x \cosh \relax (x)^{2} - a^{2} - 3 \, b^{2} + {\left (a^{2} + 2 \, b^{2}\right )} x + 6 \, {\left (a b x - a b\right )} \cosh \relax (x)\right )} \sinh \relax (x)^{2} + 4 \, {\left (a b x - a b\right )} \cosh \relax (x) - {\left (a^{2} \cosh \relax (x)^{4} + a^{2} \sinh \relax (x)^{4} + 4 \, a b \cosh \relax (x)^{3} + 4 \, {\left (a^{2} \cosh \relax (x) + a b\right )} \sinh \relax (x)^{3} + 4 \, a b \cosh \relax (x) + 2 \, {\left (a^{2} + 2 \, b^{2}\right )} \cosh \relax (x)^{2} + 2 \, {\left (3 \, a^{2} \cosh \relax (x)^{2} + 6 \, a b \cosh \relax (x) + a^{2} + 2 \, b^{2}\right )} \sinh \relax (x)^{2} + a^{2} + 4 \, {\left (a^{2} \cosh \relax (x)^{3} + 3 \, a b \cosh \relax (x)^{2} + a b + {\left (a^{2} + 2 \, b^{2}\right )} \cosh \relax (x)\right )} \sinh \relax (x)\right )} \log \left (\frac {2 \, {\left (a \cosh \relax (x) + b\right )}}{\cosh \relax (x) - \sinh \relax (x)}\right ) + 4 \, {\left (a^{2} x \cosh \relax (x)^{3} + a b x + 3 \, {\left (a b x - a b\right )} \cosh \relax (x)^{2} - a b - {\left (a^{2} + 3 \, b^{2} - {\left (a^{2} + 2 \, b^{2}\right )} x\right )} \cosh \relax (x)\right )} \sinh \relax (x)}{a^{5} \cosh \relax (x)^{4} + a^{5} \sinh \relax (x)^{4} + 4 \, a^{4} b \cosh \relax (x)^{3} + 4 \, a^{4} b \cosh \relax (x) + a^{5} + 4 \, {\left (a^{5} \cosh \relax (x) + a^{4} b\right )} \sinh \relax (x)^{3} + 2 \, {\left (a^{5} + 2 \, a^{3} b^{2}\right )} \cosh \relax (x)^{2} + 2 \, {\left (3 \, a^{5} \cosh \relax (x)^{2} + 6 \, a^{4} b \cosh \relax (x) + a^{5} + 2 \, a^{3} b^{2}\right )} \sinh \relax (x)^{2} + 4 \, {\left (a^{5} \cosh \relax (x)^{3} + 3 \, a^{4} b \cosh \relax (x)^{2} + a^{4} b + {\left (a^{5} + 2 \, a^{3} b^{2}\right )} \cosh \relax (x)\right )} \sinh \relax (x)} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(a*coth(x)+b*csch(x))^3,x, algorithm="fricas")

[Out]

-(a^2*x*cosh(x)^4 + a^2*x*sinh(x)^4 + 4*(a*b*x - a*b)*cosh(x)^3 + 4*(a^2*x*cosh(x) + a*b*x - a*b)*sinh(x)^3 +
a^2*x - 2*(a^2 + 3*b^2 - (a^2 + 2*b^2)*x)*cosh(x)^2 + 2*(3*a^2*x*cosh(x)^2 - a^2 - 3*b^2 + (a^2 + 2*b^2)*x + 6
*(a*b*x - a*b)*cosh(x))*sinh(x)^2 + 4*(a*b*x - a*b)*cosh(x) - (a^2*cosh(x)^4 + a^2*sinh(x)^4 + 4*a*b*cosh(x)^3
+ 4*(a^2*cosh(x) + a*b)*sinh(x)^3 + 4*a*b*cosh(x) + 2*(a^2 + 2*b^2)*cosh(x)^2 + 2*(3*a^2*cosh(x)^2 + 6*a*b*co
sh(x) + a^2 + 2*b^2)*sinh(x)^2 + a^2 + 4*(a^2*cosh(x)^3 + 3*a*b*cosh(x)^2 + a*b + (a^2 + 2*b^2)*cosh(x))*sinh(
x))*log(2*(a*cosh(x) + b)/(cosh(x) - sinh(x))) + 4*(a^2*x*cosh(x)^3 + a*b*x + 3*(a*b*x - a*b)*cosh(x)^2 - a*b
- (a^2 + 3*b^2 - (a^2 + 2*b^2)*x)*cosh(x))*sinh(x))/(a^5*cosh(x)^4 + a^5*sinh(x)^4 + 4*a^4*b*cosh(x)^3 + 4*a^4
*b*cosh(x) + a^5 + 4*(a^5*cosh(x) + a^4*b)*sinh(x)^3 + 2*(a^5 + 2*a^3*b^2)*cosh(x)^2 + 2*(3*a^5*cosh(x)^2 + 6*
a^4*b*cosh(x) + a^5 + 2*a^3*b^2)*sinh(x)^2 + 4*(a^5*cosh(x)^3 + 3*a^4*b*cosh(x)^2 + a^4*b + (a^5 + 2*a^3*b^2)*
cosh(x))*sinh(x))

________________________________________________________________________________________

giac [A]  time = 0.15, size = 66, normalized size = 1.32 \[ \frac {\log \left ({\left | a {\left (e^{\left (-x\right )} + e^{x}\right )} + 2 \, b \right |}\right )}{a^{3}} - \frac {3 \, a {\left (e^{\left (-x\right )} + e^{x}\right )}^{2} + 4 \, b {\left (e^{\left (-x\right )} + e^{x}\right )} - 4 \, a}{2 \, {\left (a {\left (e^{\left (-x\right )} + e^{x}\right )} + 2 \, b\right )}^{2} a^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(a*coth(x)+b*csch(x))^3,x, algorithm="giac")

[Out]

log(abs(a*(e^(-x) + e^x) + 2*b))/a^3 - 1/2*(3*a*(e^(-x) + e^x)^2 + 4*b*(e^(-x) + e^x) - 4*a)/((a*(e^(-x) + e^x
) + 2*b)^2*a^2)

________________________________________________________________________________________

maple [B]  time = 0.22, size = 144, normalized size = 2.88 \[ -\frac {\ln \left (\tanh \left (\frac {x}{2}\right )-1\right )}{a^{3}}-\frac {\ln \left (\tanh \left (\frac {x}{2}\right )+1\right )}{a^{3}}-\frac {2}{a^{2} \left (a \left (\tanh ^{2}\left (\frac {x}{2}\right )\right )-\left (\tanh ^{2}\left (\frac {x}{2}\right )\right ) b +a +b \right )}+\frac {\ln \left (a \left (\tanh ^{2}\left (\frac {x}{2}\right )\right )-\left (\tanh ^{2}\left (\frac {x}{2}\right )\right ) b +a +b \right )}{a^{3}}+\frac {2}{\left (a -b \right ) \left (a \left (\tanh ^{2}\left (\frac {x}{2}\right )\right )-\left (\tanh ^{2}\left (\frac {x}{2}\right )\right ) b +a +b \right )^{2}}+\frac {2 b}{a \left (a -b \right ) \left (a \left (\tanh ^{2}\left (\frac {x}{2}\right )\right )-\left (\tanh ^{2}\left (\frac {x}{2}\right )\right ) b +a +b \right )^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(a*coth(x)+b*csch(x))^3,x)

[Out]

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

________________________________________________________________________________________

maxima [B]  time = 0.68, size = 111, normalized size = 2.22 \[ \frac {2 \, {\left (2 \, a b e^{\left (-x\right )} + 2 \, a b e^{\left (-3 \, x\right )} + {\left (a^{2} + 3 \, b^{2}\right )} e^{\left (-2 \, x\right )}\right )}}{4 \, a^{4} b e^{\left (-x\right )} + 4 \, a^{4} b e^{\left (-3 \, x\right )} + a^{5} e^{\left (-4 \, x\right )} + a^{5} + 2 \, {\left (a^{5} + 2 \, a^{3} b^{2}\right )} e^{\left (-2 \, x\right )}} + \frac {x}{a^{3}} + \frac {\log \left (2 \, b e^{\left (-x\right )} + a e^{\left (-2 \, x\right )} + a\right )}{a^{3}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(a*coth(x)+b*csch(x))^3,x, algorithm="maxima")

[Out]

2*(2*a*b*e^(-x) + 2*a*b*e^(-3*x) + (a^2 + 3*b^2)*e^(-2*x))/(4*a^4*b*e^(-x) + 4*a^4*b*e^(-3*x) + a^5*e^(-4*x) +
a^5 + 2*(a^5 + 2*a^3*b^2)*e^(-2*x)) + x/a^3 + log(2*b*e^(-x) + a*e^(-2*x) + a)/a^3

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.02 \[ \int \frac {1}{{\left (\frac {b}{\mathrm {sinh}\relax (x)}+a\,\mathrm {coth}\relax (x)\right )}^3} \,d x \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(b/sinh(x) + a*coth(x))^3,x)

[Out]

int(1/(b/sinh(x) + a*coth(x))^3, x)

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \frac {1}{\left (a \coth {\relax (x )} + b \operatorname {csch}{\relax (x )}\right )^{3}}\, dx \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(a*coth(x)+b*csch(x))**3,x)

[Out]

Integral((a*coth(x) + b*csch(x))**(-3), x)

________________________________________________________________________________________