3.127 \(\int \coth ^4(x) \text {csch}^3(x) \, dx\)

Optimal. Leaf size=38 \[ \frac {1}{16} \tanh ^{-1}(\cosh (x))-\frac {1}{6} \coth ^3(x) \text {csch}^3(x)-\frac {1}{8} \coth (x) \text {csch}^3(x)-\frac {1}{16} \coth (x) \text {csch}(x) \]

[Out]

1/16*arctanh(cosh(x))-1/16*coth(x)*csch(x)-1/8*coth(x)*csch(x)^3-1/6*coth(x)^3*csch(x)^3

________________________________________________________________________________________

Rubi [A]  time = 0.06, antiderivative size = 38, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 9, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.333, Rules used = {2611, 3768, 3770} \[ \frac {1}{16} \tanh ^{-1}(\cosh (x))-\frac {1}{6} \coth ^3(x) \text {csch}^3(x)-\frac {1}{8} \coth (x) \text {csch}^3(x)-\frac {1}{16} \coth (x) \text {csch}(x) \]

Antiderivative was successfully verified.

[In]

Int[Coth[x]^4*Csch[x]^3,x]

[Out]

ArcTanh[Cosh[x]]/16 - (Coth[x]*Csch[x])/16 - (Coth[x]*Csch[x]^3)/8 - (Coth[x]^3*Csch[x]^3)/6

Rule 2611

Int[((a_.)*sec[(e_.) + (f_.)*(x_)])^(m_.)*((b_.)*tan[(e_.) + (f_.)*(x_)])^(n_), x_Symbol] :> Simp[(b*(a*Sec[e
+ f*x])^m*(b*Tan[e + f*x])^(n - 1))/(f*(m + n - 1)), x] - Dist[(b^2*(n - 1))/(m + n - 1), Int[(a*Sec[e + f*x])
^m*(b*Tan[e + f*x])^(n - 2), x], x] /; FreeQ[{a, b, e, f, m}, x] && GtQ[n, 1] && NeQ[m + n - 1, 0] && Integers
Q[2*m, 2*n]

Rule 3768

Int[(csc[(c_.) + (d_.)*(x_)]*(b_.))^(n_), x_Symbol] :> -Simp[(b*Cos[c + d*x]*(b*Csc[c + d*x])^(n - 1))/(d*(n -
1)), x] + Dist[(b^2*(n - 2))/(n - 1), Int[(b*Csc[c + d*x])^(n - 2), x], x] /; FreeQ[{b, c, d}, x] && GtQ[n, 1
] && IntegerQ[2*n]

Rule 3770

Int[csc[(c_.) + (d_.)*(x_)], x_Symbol] :> -Simp[ArcTanh[Cos[c + d*x]]/d, x] /; FreeQ[{c, d}, x]

Rubi steps

\begin {align*} \int \coth ^4(x) \text {csch}^3(x) \, dx &=-\frac {1}{6} \coth ^3(x) \text {csch}^3(x)+\frac {1}{2} \int \coth ^2(x) \text {csch}^3(x) \, dx\\ &=-\frac {1}{8} \coth (x) \text {csch}^3(x)-\frac {1}{6} \coth ^3(x) \text {csch}^3(x)+\frac {1}{8} \int \text {csch}^3(x) \, dx\\ &=-\frac {1}{16} \coth (x) \text {csch}(x)-\frac {1}{8} \coth (x) \text {csch}^3(x)-\frac {1}{6} \coth ^3(x) \text {csch}^3(x)-\frac {1}{16} \int \text {csch}(x) \, dx\\ &=\frac {1}{16} \tanh ^{-1}(\cosh (x))-\frac {1}{16} \coth (x) \text {csch}(x)-\frac {1}{8} \coth (x) \text {csch}^3(x)-\frac {1}{6} \coth ^3(x) \text {csch}^3(x)\\ \end {align*}

________________________________________________________________________________________

Mathematica [B]  time = 0.02, size = 84, normalized size = 2.21 \[ -\frac {1}{384} \text {csch}^6\left (\frac {x}{2}\right )-\frac {1}{64} \text {csch}^4\left (\frac {x}{2}\right )-\frac {1}{64} \text {csch}^2\left (\frac {x}{2}\right )-\frac {1}{384} \text {sech}^6\left (\frac {x}{2}\right )+\frac {1}{64} \text {sech}^4\left (\frac {x}{2}\right )-\frac {1}{64} \text {sech}^2\left (\frac {x}{2}\right )-\frac {1}{16} \log \left (\tanh \left (\frac {x}{2}\right )\right ) \]

Antiderivative was successfully verified.

[In]

Integrate[Coth[x]^4*Csch[x]^3,x]

[Out]

-1/64*Csch[x/2]^2 - Csch[x/2]^4/64 - Csch[x/2]^6/384 - Log[Tanh[x/2]]/16 - Sech[x/2]^2/64 + Sech[x/2]^4/64 - S
ech[x/2]^6/384

________________________________________________________________________________________

fricas [B]  time = 0.45, size = 1260, normalized size = 33.16 \[ \text {result too large to display} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(coth(x)^4*csch(x)^3,x, algorithm="fricas")

[Out]

-1/48*(6*cosh(x)^11 + 66*cosh(x)*sinh(x)^10 + 6*sinh(x)^11 + 2*(165*cosh(x)^2 + 47)*sinh(x)^9 + 94*cosh(x)^9 +
18*(55*cosh(x)^3 + 47*cosh(x))*sinh(x)^8 + 12*(165*cosh(x)^4 + 282*cosh(x)^2 + 13)*sinh(x)^7 + 156*cosh(x)^7
+ 84*(33*cosh(x)^5 + 94*cosh(x)^3 + 13*cosh(x))*sinh(x)^6 + 12*(231*cosh(x)^6 + 987*cosh(x)^4 + 273*cosh(x)^2
+ 13)*sinh(x)^5 + 156*cosh(x)^5 + 12*(165*cosh(x)^7 + 987*cosh(x)^5 + 455*cosh(x)^3 + 65*cosh(x))*sinh(x)^4 +
2*(495*cosh(x)^8 + 3948*cosh(x)^6 + 2730*cosh(x)^4 + 780*cosh(x)^2 + 47)*sinh(x)^3 + 94*cosh(x)^3 + 6*(55*cosh
(x)^9 + 564*cosh(x)^7 + 546*cosh(x)^5 + 260*cosh(x)^3 + 47*cosh(x))*sinh(x)^2 - 3*(cosh(x)^12 + 12*cosh(x)*sin
h(x)^11 + sinh(x)^12 + 6*(11*cosh(x)^2 - 1)*sinh(x)^10 - 6*cosh(x)^10 + 20*(11*cosh(x)^3 - 3*cosh(x))*sinh(x)^
9 + 15*(33*cosh(x)^4 - 18*cosh(x)^2 + 1)*sinh(x)^8 + 15*cosh(x)^8 + 24*(33*cosh(x)^5 - 30*cosh(x)^3 + 5*cosh(x
))*sinh(x)^7 + 4*(231*cosh(x)^6 - 315*cosh(x)^4 + 105*cosh(x)^2 - 5)*sinh(x)^6 - 20*cosh(x)^6 + 24*(33*cosh(x)
^7 - 63*cosh(x)^5 + 35*cosh(x)^3 - 5*cosh(x))*sinh(x)^5 + 15*(33*cosh(x)^8 - 84*cosh(x)^6 + 70*cosh(x)^4 - 20*
cosh(x)^2 + 1)*sinh(x)^4 + 15*cosh(x)^4 + 20*(11*cosh(x)^9 - 36*cosh(x)^7 + 42*cosh(x)^5 - 20*cosh(x)^3 + 3*co
sh(x))*sinh(x)^3 + 6*(11*cosh(x)^10 - 45*cosh(x)^8 + 70*cosh(x)^6 - 50*cosh(x)^4 + 15*cosh(x)^2 - 1)*sinh(x)^2
- 6*cosh(x)^2 + 12*(cosh(x)^11 - 5*cosh(x)^9 + 10*cosh(x)^7 - 10*cosh(x)^5 + 5*cosh(x)^3 - cosh(x))*sinh(x) +
1)*log(cosh(x) + sinh(x) + 1) + 3*(cosh(x)^12 + 12*cosh(x)*sinh(x)^11 + sinh(x)^12 + 6*(11*cosh(x)^2 - 1)*sin
h(x)^10 - 6*cosh(x)^10 + 20*(11*cosh(x)^3 - 3*cosh(x))*sinh(x)^9 + 15*(33*cosh(x)^4 - 18*cosh(x)^2 + 1)*sinh(x
)^8 + 15*cosh(x)^8 + 24*(33*cosh(x)^5 - 30*cosh(x)^3 + 5*cosh(x))*sinh(x)^7 + 4*(231*cosh(x)^6 - 315*cosh(x)^4
+ 105*cosh(x)^2 - 5)*sinh(x)^6 - 20*cosh(x)^6 + 24*(33*cosh(x)^7 - 63*cosh(x)^5 + 35*cosh(x)^3 - 5*cosh(x))*s
inh(x)^5 + 15*(33*cosh(x)^8 - 84*cosh(x)^6 + 70*cosh(x)^4 - 20*cosh(x)^2 + 1)*sinh(x)^4 + 15*cosh(x)^4 + 20*(1
1*cosh(x)^9 - 36*cosh(x)^7 + 42*cosh(x)^5 - 20*cosh(x)^3 + 3*cosh(x))*sinh(x)^3 + 6*(11*cosh(x)^10 - 45*cosh(x
)^8 + 70*cosh(x)^6 - 50*cosh(x)^4 + 15*cosh(x)^2 - 1)*sinh(x)^2 - 6*cosh(x)^2 + 12*(cosh(x)^11 - 5*cosh(x)^9 +
10*cosh(x)^7 - 10*cosh(x)^5 + 5*cosh(x)^3 - cosh(x))*sinh(x) + 1)*log(cosh(x) + sinh(x) - 1) + 6*(11*cosh(x)^
10 + 141*cosh(x)^8 + 182*cosh(x)^6 + 130*cosh(x)^4 + 47*cosh(x)^2 + 1)*sinh(x) + 6*cosh(x))/(cosh(x)^12 + 12*c
osh(x)*sinh(x)^11 + sinh(x)^12 + 6*(11*cosh(x)^2 - 1)*sinh(x)^10 - 6*cosh(x)^10 + 20*(11*cosh(x)^3 - 3*cosh(x)
)*sinh(x)^9 + 15*(33*cosh(x)^4 - 18*cosh(x)^2 + 1)*sinh(x)^8 + 15*cosh(x)^8 + 24*(33*cosh(x)^5 - 30*cosh(x)^3
+ 5*cosh(x))*sinh(x)^7 + 4*(231*cosh(x)^6 - 315*cosh(x)^4 + 105*cosh(x)^2 - 5)*sinh(x)^6 - 20*cosh(x)^6 + 24*(
33*cosh(x)^7 - 63*cosh(x)^5 + 35*cosh(x)^3 - 5*cosh(x))*sinh(x)^5 + 15*(33*cosh(x)^8 - 84*cosh(x)^6 + 70*cosh(
x)^4 - 20*cosh(x)^2 + 1)*sinh(x)^4 + 15*cosh(x)^4 + 20*(11*cosh(x)^9 - 36*cosh(x)^7 + 42*cosh(x)^5 - 20*cosh(x
)^3 + 3*cosh(x))*sinh(x)^3 + 6*(11*cosh(x)^10 - 45*cosh(x)^8 + 70*cosh(x)^6 - 50*cosh(x)^4 + 15*cosh(x)^2 - 1)
*sinh(x)^2 - 6*cosh(x)^2 + 12*(cosh(x)^11 - 5*cosh(x)^9 + 10*cosh(x)^7 - 10*cosh(x)^5 + 5*cosh(x)^3 - cosh(x))
*sinh(x) + 1)

________________________________________________________________________________________

giac [B]  time = 0.13, size = 71, normalized size = 1.87 \[ -\frac {3 \, {\left (e^{\left (-x\right )} + e^{x}\right )}^{5} + 32 \, {\left (e^{\left (-x\right )} + e^{x}\right )}^{3} - 48 \, e^{\left (-x\right )} - 48 \, e^{x}}{24 \, {\left ({\left (e^{\left (-x\right )} + e^{x}\right )}^{2} - 4\right )}^{3}} + \frac {1}{32} \, \log \left (e^{\left (-x\right )} + e^{x} + 2\right ) - \frac {1}{32} \, \log \left (e^{\left (-x\right )} + e^{x} - 2\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(coth(x)^4*csch(x)^3,x, algorithm="giac")

[Out]

-1/24*(3*(e^(-x) + e^x)^5 + 32*(e^(-x) + e^x)^3 - 48*e^(-x) - 48*e^x)/((e^(-x) + e^x)^2 - 4)^3 + 1/32*log(e^(-
x) + e^x + 2) - 1/32*log(e^(-x) + e^x - 2)

________________________________________________________________________________________

maple [A]  time = 0.34, size = 46, normalized size = 1.21 \[ -\frac {\cosh ^{3}\relax (x )}{3 \sinh \relax (x )^{6}}+\frac {\cosh \relax (x )}{5 \sinh \relax (x )^{6}}+\frac {\left (-\frac {\mathrm {csch}\relax (x )^{5}}{6}+\frac {5 \mathrm {csch}\relax (x )^{3}}{24}-\frac {5 \,\mathrm {csch}\relax (x )}{16}\right ) \coth \relax (x )}{5}+\frac {\arctanh \left ({\mathrm e}^{x}\right )}{8} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(coth(x)^4*csch(x)^3,x)

[Out]

-1/3/sinh(x)^6*cosh(x)^3+1/5/sinh(x)^6*cosh(x)+1/5*(-1/6*csch(x)^5+5/24*csch(x)^3-5/16*csch(x))*coth(x)+1/8*ar
ctanh(exp(x))

________________________________________________________________________________________

maxima [B]  time = 0.35, size = 98, normalized size = 2.58 \[ \frac {3 \, e^{\left (-x\right )} + 47 \, e^{\left (-3 \, x\right )} + 78 \, e^{\left (-5 \, x\right )} + 78 \, e^{\left (-7 \, x\right )} + 47 \, e^{\left (-9 \, x\right )} + 3 \, e^{\left (-11 \, x\right )}}{24 \, {\left (6 \, e^{\left (-2 \, x\right )} - 15 \, e^{\left (-4 \, x\right )} + 20 \, e^{\left (-6 \, x\right )} - 15 \, e^{\left (-8 \, x\right )} + 6 \, e^{\left (-10 \, x\right )} - e^{\left (-12 \, x\right )} - 1\right )}} + \frac {1}{16} \, \log \left (e^{\left (-x\right )} + 1\right ) - \frac {1}{16} \, \log \left (e^{\left (-x\right )} - 1\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(coth(x)^4*csch(x)^3,x, algorithm="maxima")

[Out]

1/24*(3*e^(-x) + 47*e^(-3*x) + 78*e^(-5*x) + 78*e^(-7*x) + 47*e^(-9*x) + 3*e^(-11*x))/(6*e^(-2*x) - 15*e^(-4*x
) + 20*e^(-6*x) - 15*e^(-8*x) + 6*e^(-10*x) - e^(-12*x) - 1) + 1/16*log(e^(-x) + 1) - 1/16*log(e^(-x) - 1)

________________________________________________________________________________________

mupad [B]  time = 1.39, size = 214, normalized size = 5.63 \[ \frac {\ln \left (\frac {{\mathrm {e}}^x}{8}+\frac {1}{8}\right )}{16}-\frac {\ln \left (\frac {{\mathrm {e}}^x}{8}-\frac {1}{8}\right )}{16}-\frac {10\,{\mathrm {e}}^x}{6\,{\mathrm {e}}^{4\,x}-4\,{\mathrm {e}}^{2\,x}-4\,{\mathrm {e}}^{6\,x}+{\mathrm {e}}^{8\,x}+1}-\frac {{\mathrm {e}}^x}{8\,\left ({\mathrm {e}}^{2\,x}-1\right )}-\frac {7\,{\mathrm {e}}^x}{3\,{\mathrm {e}}^{2\,x}-3\,{\mathrm {e}}^{4\,x}+{\mathrm {e}}^{6\,x}-1}-\frac {\frac {8\,{\mathrm {e}}^{3\,x}}{3}+4\,{\mathrm {e}}^{5\,x}+\frac {8\,{\mathrm {e}}^{7\,x}}{3}+\frac {2\,{\mathrm {e}}^{9\,x}}{3}+\frac {2\,{\mathrm {e}}^x}{3}}{15\,{\mathrm {e}}^{4\,x}-6\,{\mathrm {e}}^{2\,x}-20\,{\mathrm {e}}^{6\,x}+15\,{\mathrm {e}}^{8\,x}-6\,{\mathrm {e}}^{10\,x}+{\mathrm {e}}^{12\,x}+1}-\frac {16\,{\mathrm {e}}^x}{3\,\left (5\,{\mathrm {e}}^{2\,x}-10\,{\mathrm {e}}^{4\,x}+10\,{\mathrm {e}}^{6\,x}-5\,{\mathrm {e}}^{8\,x}+{\mathrm {e}}^{10\,x}-1\right )}-\frac {23\,{\mathrm {e}}^x}{12\,\left ({\mathrm {e}}^{4\,x}-2\,{\mathrm {e}}^{2\,x}+1\right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(coth(x)^4/sinh(x)^3,x)

[Out]

log(exp(x)/8 + 1/8)/16 - log(exp(x)/8 - 1/8)/16 - (10*exp(x))/(6*exp(4*x) - 4*exp(2*x) - 4*exp(6*x) + exp(8*x)
+ 1) - exp(x)/(8*(exp(2*x) - 1)) - (7*exp(x))/(3*exp(2*x) - 3*exp(4*x) + exp(6*x) - 1) - ((8*exp(3*x))/3 + 4*
exp(5*x) + (8*exp(7*x))/3 + (2*exp(9*x))/3 + (2*exp(x))/3)/(15*exp(4*x) - 6*exp(2*x) - 20*exp(6*x) + 15*exp(8*
x) - 6*exp(10*x) + exp(12*x) + 1) - (16*exp(x))/(3*(5*exp(2*x) - 10*exp(4*x) + 10*exp(6*x) - 5*exp(8*x) + exp(
10*x) - 1)) - (23*exp(x))/(12*(exp(4*x) - 2*exp(2*x) + 1))

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \coth ^{4}{\relax (x )} \operatorname {csch}^{3}{\relax (x )}\, dx \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(coth(x)**4*csch(x)**3,x)

[Out]

Integral(coth(x)**4*csch(x)**3, x)

________________________________________________________________________________________