### 3.98 $$\int \text{sech}^3(x) \tanh ^4(x) \, dx$$

Optimal. Leaf size=38 $\frac{1}{16} \tan ^{-1}(\sinh (x))-\frac{1}{6} \tanh ^3(x) \text{sech}^3(x)-\frac{1}{8} \tanh (x) \text{sech}^3(x)+\frac{1}{16} \tanh (x) \text{sech}(x)$

[Out]

ArcTan[Sinh[x]]/16 + (Sech[x]*Tanh[x])/16 - (Sech[x]^3*Tanh[x])/8 - (Sech[x]^3*Tanh[x]^3)/6

________________________________________________________________________________________

Rubi [A]  time = 0.053362, antiderivative size = 38, normalized size of antiderivative = 1., 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} \tan ^{-1}(\sinh (x))-\frac{1}{6} \tanh ^3(x) \text{sech}^3(x)-\frac{1}{8} \tanh (x) \text{sech}^3(x)+\frac{1}{16} \tanh (x) \text{sech}(x)$

Antiderivative was successfully veriﬁed.

[In]

Int[Sech[x]^3*Tanh[x]^4,x]

[Out]

ArcTan[Sinh[x]]/16 + (Sech[x]*Tanh[x])/16 - (Sech[x]^3*Tanh[x])/8 - (Sech[x]^3*Tanh[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 \text{sech}^3(x) \tanh ^4(x) \, dx &=-\frac{1}{6} \text{sech}^3(x) \tanh ^3(x)+\frac{1}{2} \int \text{sech}^3(x) \tanh ^2(x) \, dx\\ &=-\frac{1}{8} \text{sech}^3(x) \tanh (x)-\frac{1}{6} \text{sech}^3(x) \tanh ^3(x)+\frac{1}{8} \int \text{sech}^3(x) \, dx\\ &=\frac{1}{16} \text{sech}(x) \tanh (x)-\frac{1}{8} \text{sech}^3(x) \tanh (x)-\frac{1}{6} \text{sech}^3(x) \tanh ^3(x)+\frac{1}{16} \int \text{sech}(x) \, dx\\ &=\frac{1}{16} \tan ^{-1}(\sinh (x))+\frac{1}{16} \text{sech}(x) \tanh (x)-\frac{1}{8} \text{sech}^3(x) \tanh (x)-\frac{1}{6} \text{sech}^3(x) \tanh ^3(x)\\ \end{align*}

Mathematica [A]  time = 0.009206, size = 48, normalized size = 1.26 $\frac{1}{16} \tan ^{-1}(\sinh (x))-\frac{1}{3} \tanh ^3(x) \text{sech}^3(x)-\frac{1}{6} \tanh (x) \text{sech}^5(x)+\frac{1}{24} \tanh (x) \text{sech}^3(x)+\frac{1}{16} \tanh (x) \text{sech}(x)$

Antiderivative was successfully veriﬁed.

[In]

Integrate[Sech[x]^3*Tanh[x]^4,x]

[Out]

ArcTan[Sinh[x]]/16 + (Sech[x]*Tanh[x])/16 + (Sech[x]^3*Tanh[x])/24 - (Sech[x]^5*Tanh[x])/6 - (Sech[x]^3*Tanh[x
]^3)/3

________________________________________________________________________________________

Maple [A]  time = 0.013, size = 46, normalized size = 1.2 \begin{align*} -{\frac{ \left ( \sinh \left ( x \right ) \right ) ^{3}}{3\, \left ( \cosh \left ( x \right ) \right ) ^{6}}}-{\frac{\sinh \left ( x \right ) }{5\, \left ( \cosh \left ( x \right ) \right ) ^{6}}}+{\frac{\tanh \left ( x \right ) }{5} \left ({\frac{ \left ({\rm sech} \left (x\right ) \right ) ^{5}}{6}}+{\frac{5\, \left ({\rm sech} \left (x\right ) \right ) ^{3}}{24}}+{\frac{5\,{\rm sech} \left (x\right )}{16}} \right ) }+{\frac{\arctan \left ({{\rm e}^{x}} \right ) }{8}} \end{align*}

Veriﬁcation of antiderivative is not currently implemented for this CAS.

[In]

int(sech(x)^3*tanh(x)^4,x)

[Out]

-1/3*sinh(x)^3/cosh(x)^6-1/5*sinh(x)/cosh(x)^6+1/5*(1/6*sech(x)^5+5/24*sech(x)^3+5/16*sech(x))*tanh(x)+1/8*arc
tan(exp(x))

________________________________________________________________________________________

Maxima [B]  time = 1.72808, size = 115, normalized size = 3.03 \begin{align*} \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}{8} \, \arctan \left (e^{\left (-x\right )}\right ) \end{align*}

Veriﬁcation of antiderivative is not currently implemented for this CAS.

[In]

integrate(sech(x)^3*tanh(x)^4,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/8*arctan(e^(-x))

________________________________________________________________________________________

Fricas [B]  time = 1.80916, size = 3186, normalized size = 83.84 \begin{align*} \text{result too large to display} \end{align*}

Veriﬁcation of antiderivative is not currently implemented for this CAS.

[In]

integrate(sech(x)^3*tanh(x)^4,x, algorithm="fricas")

[Out]

1/24*(3*cosh(x)^11 + 33*cosh(x)*sinh(x)^10 + 3*sinh(x)^11 + (165*cosh(x)^2 - 47)*sinh(x)^9 - 47*cosh(x)^9 + 9*
(55*cosh(x)^3 - 47*cosh(x))*sinh(x)^8 + 6*(165*cosh(x)^4 - 282*cosh(x)^2 + 13)*sinh(x)^7 + 78*cosh(x)^7 + 42*(
33*cosh(x)^5 - 94*cosh(x)^3 + 13*cosh(x))*sinh(x)^6 + 6*(231*cosh(x)^6 - 987*cosh(x)^4 + 273*cosh(x)^2 - 13)*s
inh(x)^5 - 78*cosh(x)^5 + 6*(165*cosh(x)^7 - 987*cosh(x)^5 + 455*cosh(x)^3 - 65*cosh(x))*sinh(x)^4 + (495*cosh
(x)^8 - 3948*cosh(x)^6 + 2730*cosh(x)^4 - 780*cosh(x)^2 + 47)*sinh(x)^3 + 47*cosh(x)^3 + 3*(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)*sinh(x)^11 + s
inh(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*cos
h(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)*arctan(
cosh(x) + sinh(x)) + 3*(11*cosh(x)^10 - 141*cosh(x)^8 + 182*cosh(x)^6 - 130*cosh(x)^4 + 47*cosh(x)^2 - 1)*sinh
(x) - 3*cosh(x))/(cosh(x)^12 + 12*cosh(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*c
osh(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)

________________________________________________________________________________________

Sympy [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int \tanh ^{4}{\left (x \right )} \operatorname{sech}^{3}{\left (x \right )}\, dx \end{align*}

Veriﬁcation of antiderivative is not currently implemented for this CAS.

[In]

integrate(sech(x)**3*tanh(x)**4,x)

[Out]

Integral(tanh(x)**4*sech(x)**3, x)

________________________________________________________________________________________

Giac [B]  time = 1.1813, size = 99, normalized size = 2.61 \begin{align*} \frac{1}{32} \, \pi - \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}{16} \, \arctan \left (\frac{1}{2} \,{\left (e^{\left (2 \, x\right )} - 1\right )} e^{\left (-x\right )}\right ) \end{align*}

Veriﬁcation of antiderivative is not currently implemented for this CAS.

[In]

integrate(sech(x)^3*tanh(x)^4,x, algorithm="giac")

[Out]

1/32*pi - 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/16
*arctan(1/2*(e^(2*x) - 1)*e^(-x))