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]

1/16*arctan(sinh(x))+1/16*sech(x)*tanh(x)-1/8*sech(x)^3*tanh(x)-1/6*sech(x)^3*tanh(x)^3

________________________________________________________________________________________

Rubi [A]  time = 0.05, 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} \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 verified.

[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.01, size = 48, normalized size = 1.26 \[ \frac {1}{16} \tan ^{-1}(\sinh (x))-\frac {1}{6} \tanh (x) \text {sech}^5(x)-\frac {1}{3} \tanh ^3(x) \text {sech}^3(x)+\frac {1}{24} \tanh (x) \text {sech}^3(x)+\frac {1}{16} \tanh (x) \text {sech}(x) \]

Antiderivative was successfully verified.

[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

________________________________________________________________________________________

fricas [B]  time = 0.49, size = 925, normalized size = 24.34 \[ \text {result too large to display} \]

Verification 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)

________________________________________________________________________________________

giac [B]  time = 0.12, size = 73, normalized size = 1.92 \[ \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 ) \]

Verification 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))

________________________________________________________________________________________

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

Verification 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 = 0.53, size = 85, normalized size = 2.24 \[ \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 ) \]

Verification 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))

________________________________________________________________________________________

mupad [B]  time = 0.06, size = 200, normalized size = 5.26 \[ \frac {\mathrm {atan}\left ({\mathrm {e}}^x\right )}{8}-\frac {10\,{\mathrm {e}}^x}{4\,{\mathrm {e}}^{2\,x}+6\,{\mathrm {e}}^{4\,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 {4\,{\mathrm {e}}^{5\,x}-\frac {8\,{\mathrm {e}}^{3\,x}}{3}-\frac {8\,{\mathrm {e}}^{7\,x}}{3}+\frac {2\,{\mathrm {e}}^{9\,x}}{3}+\frac {2\,{\mathrm {e}}^x}{3}}{6\,{\mathrm {e}}^{2\,x}+15\,{\mathrm {e}}^{4\,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 (2\,{\mathrm {e}}^{2\,x}+{\mathrm {e}}^{4\,x}+1\right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(tanh(x)^4/cosh(x)^3,x)

[Out]

atan(exp(x))/8 - (10*exp(x))/(4*exp(2*x) + 6*exp(4*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) - (4*exp(5*x) - (8*exp(3*x))/3 - (8*exp(7*x))/3 + (2*ex
p(9*x))/3 + (2*exp(x))/3)/(6*exp(2*x) + 15*exp(4*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*(2*
exp(2*x) + exp(4*x) + 1))

________________________________________________________________________________________

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

Verification 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)

________________________________________________________________________________________