3.68 \(\int \frac {1}{(1+\coth (x))^4} \, dx\)

Optimal. Leaf size=46 \[ \frac {x}{16}-\frac {1}{16 (\coth (x)+1)}-\frac {1}{16 (\coth (x)+1)^2}-\frac {1}{12 (\coth (x)+1)^3}-\frac {1}{8 (\coth (x)+1)^4} \]

[Out]

1/16*x-1/8/(1+coth(x))^4-1/12/(1+coth(x))^3-1/16/(1+coth(x))^2-1/16/(1+coth(x))

________________________________________________________________________________________

Rubi [A]  time = 0.04, antiderivative size = 46, normalized size of antiderivative = 1.00, number of steps used = 5, number of rules used = 2, integrand size = 6, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.333, Rules used = {3479, 8} \[ \frac {x}{16}-\frac {1}{16 (\coth (x)+1)}-\frac {1}{16 (\coth (x)+1)^2}-\frac {1}{12 (\coth (x)+1)^3}-\frac {1}{8 (\coth (x)+1)^4} \]

Antiderivative was successfully verified.

[In]

Int[(1 + Coth[x])^(-4),x]

[Out]

x/16 - 1/(8*(1 + Coth[x])^4) - 1/(12*(1 + Coth[x])^3) - 1/(16*(1 + Coth[x])^2) - 1/(16*(1 + Coth[x]))

Rule 8

Int[a_, x_Symbol] :> Simp[a*x, x] /; FreeQ[a, x]

Rule 3479

Int[((a_) + (b_.)*tan[(c_.) + (d_.)*(x_)])^(n_), x_Symbol] :> Simp[(a*(a + b*Tan[c + d*x])^n)/(2*b*d*n), x] +
Dist[1/(2*a), Int[(a + b*Tan[c + d*x])^(n + 1), x], x] /; FreeQ[{a, b, c, d}, x] && EqQ[a^2 + b^2, 0] && LtQ[n
, 0]

Rubi steps

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

________________________________________________________________________________________

Mathematica [A]  time = 0.13, size = 53, normalized size = 1.15 \[ \frac {1}{384} (\cosh (4 x)-\sinh (4 x)) (32 \sinh (2 x)+24 x \sinh (4 x)+3 \sinh (4 x)+64 \cosh (2 x)+3 (8 x-1) \cosh (4 x)-36) \]

Antiderivative was successfully verified.

[In]

Integrate[(1 + Coth[x])^(-4),x]

[Out]

((Cosh[4*x] - Sinh[4*x])*(-36 + 64*Cosh[2*x] + 3*(-1 + 8*x)*Cosh[4*x] + 32*Sinh[2*x] + 3*Sinh[4*x] + 24*x*Sinh
[4*x]))/384

________________________________________________________________________________________

fricas [B]  time = 0.39, size = 121, normalized size = 2.63 \[ \frac {3 \, {\left (8 \, x - 1\right )} \cosh \relax (x)^{4} + 12 \, {\left (8 \, x + 1\right )} \cosh \relax (x) \sinh \relax (x)^{3} + 3 \, {\left (8 \, x - 1\right )} \sinh \relax (x)^{4} + 2 \, {\left (9 \, {\left (8 \, x - 1\right )} \cosh \relax (x)^{2} + 32\right )} \sinh \relax (x)^{2} + 64 \, \cosh \relax (x)^{2} + 4 \, {\left (3 \, {\left (8 \, x + 1\right )} \cosh \relax (x)^{3} + 16 \, \cosh \relax (x)\right )} \sinh \relax (x) - 36}{384 \, {\left (\cosh \relax (x)^{4} + 4 \, \cosh \relax (x)^{3} \sinh \relax (x) + 6 \, \cosh \relax (x)^{2} \sinh \relax (x)^{2} + 4 \, \cosh \relax (x) \sinh \relax (x)^{3} + \sinh \relax (x)^{4}\right )}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+coth(x))^4,x, algorithm="fricas")

[Out]

1/384*(3*(8*x - 1)*cosh(x)^4 + 12*(8*x + 1)*cosh(x)*sinh(x)^3 + 3*(8*x - 1)*sinh(x)^4 + 2*(9*(8*x - 1)*cosh(x)
^2 + 32)*sinh(x)^2 + 64*cosh(x)^2 + 4*(3*(8*x + 1)*cosh(x)^3 + 16*cosh(x))*sinh(x) - 36)/(cosh(x)^4 + 4*cosh(x
)^3*sinh(x) + 6*cosh(x)^2*sinh(x)^2 + 4*cosh(x)*sinh(x)^3 + sinh(x)^4)

________________________________________________________________________________________

giac [A]  time = 0.13, size = 30, normalized size = 0.65 \[ \frac {1}{384} \, {\left (48 \, e^{\left (6 \, x\right )} - 36 \, e^{\left (4 \, x\right )} + 16 \, e^{\left (2 \, x\right )} - 3\right )} e^{\left (-8 \, x\right )} + \frac {1}{16} \, x \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+coth(x))^4,x, algorithm="giac")

[Out]

1/384*(48*e^(6*x) - 36*e^(4*x) + 16*e^(2*x) - 3)*e^(-8*x) + 1/16*x

________________________________________________________________________________________

maple [A]  time = 0.05, size = 48, normalized size = 1.04 \[ -\frac {\ln \left (\coth \relax (x )-1\right )}{32}-\frac {1}{8 \left (1+\coth \relax (x )\right )^{4}}-\frac {1}{12 \left (1+\coth \relax (x )\right )^{3}}-\frac {1}{16 \left (1+\coth \relax (x )\right )^{2}}-\frac {1}{16 \left (1+\coth \relax (x )\right )}+\frac {\ln \left (1+\coth \relax (x )\right )}{32} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(1+coth(x))^4,x)

[Out]

-1/32*ln(coth(x)-1)-1/8/(1+coth(x))^4-1/12/(1+coth(x))^3-1/16/(1+coth(x))^2-1/16/(1+coth(x))+1/32*ln(1+coth(x)
)

________________________________________________________________________________________

maxima [A]  time = 0.32, size = 28, normalized size = 0.61 \[ \frac {1}{16} \, x + \frac {1}{8} \, e^{\left (-2 \, x\right )} - \frac {3}{32} \, e^{\left (-4 \, x\right )} + \frac {1}{24} \, e^{\left (-6 \, x\right )} - \frac {1}{128} \, e^{\left (-8 \, x\right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+coth(x))^4,x, algorithm="maxima")

[Out]

1/16*x + 1/8*e^(-2*x) - 3/32*e^(-4*x) + 1/24*e^(-6*x) - 1/128*e^(-8*x)

________________________________________________________________________________________

mupad [B]  time = 1.14, size = 28, normalized size = 0.61 \[ \frac {x}{16}+\frac {{\mathrm {e}}^{-2\,x}}{8}-\frac {3\,{\mathrm {e}}^{-4\,x}}{32}+\frac {{\mathrm {e}}^{-6\,x}}{24}-\frac {{\mathrm {e}}^{-8\,x}}{128} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(coth(x) + 1)^4,x)

[Out]

x/16 + exp(-2*x)/8 - (3*exp(-4*x))/32 + exp(-6*x)/24 - exp(-8*x)/128

________________________________________________________________________________________

sympy [B]  time = 1.42, size = 299, normalized size = 6.50 \[ \frac {3 x \tanh ^{4}{\relax (x )}}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {12 x \tanh ^{3}{\relax (x )}}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {18 x \tanh ^{2}{\relax (x )}}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {12 x \tanh {\relax (x )}}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {3 x}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {45 \tanh ^{3}{\relax (x )}}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {84 \tanh ^{2}{\relax (x )}}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {61 \tanh {\relax (x )}}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} + \frac {16}{48 \tanh ^{4}{\relax (x )} + 192 \tanh ^{3}{\relax (x )} + 288 \tanh ^{2}{\relax (x )} + 192 \tanh {\relax (x )} + 48} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(1+coth(x))**4,x)

[Out]

3*x*tanh(x)**4/(48*tanh(x)**4 + 192*tanh(x)**3 + 288*tanh(x)**2 + 192*tanh(x) + 48) + 12*x*tanh(x)**3/(48*tanh
(x)**4 + 192*tanh(x)**3 + 288*tanh(x)**2 + 192*tanh(x) + 48) + 18*x*tanh(x)**2/(48*tanh(x)**4 + 192*tanh(x)**3
+ 288*tanh(x)**2 + 192*tanh(x) + 48) + 12*x*tanh(x)/(48*tanh(x)**4 + 192*tanh(x)**3 + 288*tanh(x)**2 + 192*ta
nh(x) + 48) + 3*x/(48*tanh(x)**4 + 192*tanh(x)**3 + 288*tanh(x)**2 + 192*tanh(x) + 48) + 45*tanh(x)**3/(48*tan
h(x)**4 + 192*tanh(x)**3 + 288*tanh(x)**2 + 192*tanh(x) + 48) + 84*tanh(x)**2/(48*tanh(x)**4 + 192*tanh(x)**3
+ 288*tanh(x)**2 + 192*tanh(x) + 48) + 61*tanh(x)/(48*tanh(x)**4 + 192*tanh(x)**3 + 288*tanh(x)**2 + 192*tanh(
x) + 48) + 16/(48*tanh(x)**4 + 192*tanh(x)**3 + 288*tanh(x)**2 + 192*tanh(x) + 48)

________________________________________________________________________________________