3.1029 \(\int \text {csch}(x) \sqrt {1+\log ^2(\coth (x))} \text {sech}(x) \, dx\)

Optimal. Leaf size=27 \[ -\frac {1}{2} \log (\coth (x)) \sqrt {\log ^2(\coth (x))+1}-\frac {1}{2} \sinh ^{-1}(\log (\coth (x))) \]

[Out]

-1/2*arcsinh(ln(coth(x)))-1/2*ln(coth(x))*(1+ln(coth(x))^2)^(1/2)

________________________________________________________________________________________

Rubi [A]  time = 0.17, antiderivative size = 27, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 3, integrand size = 16, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.188, Rules used = {6696, 195, 215} \[ -\frac {1}{2} \log (\coth (x)) \sqrt {\log ^2(\coth (x))+1}-\frac {1}{2} \sinh ^{-1}(\log (\coth (x))) \]

Antiderivative was successfully verified.

[In]

Int[Csch[x]*Sqrt[1 + Log[Coth[x]]^2]*Sech[x],x]

[Out]

-ArcSinh[Log[Coth[x]]]/2 - (Log[Coth[x]]*Sqrt[1 + Log[Coth[x]]^2])/2

Rule 195

Int[((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[(x*(a + b*x^n)^p)/(n*p + 1), x] + Dist[(a*n*p)/(n*p + 1),
Int[(a + b*x^n)^(p - 1), x], x] /; FreeQ[{a, b}, x] && IGtQ[n, 0] && GtQ[p, 0] && (IntegerQ[2*p] || (EqQ[n, 2
] && IntegerQ[4*p]) || (EqQ[n, 2] && IntegerQ[3*p]) || LtQ[Denominator[p + 1/n], Denominator[p]])

Rule 215

Int[1/Sqrt[(a_) + (b_.)*(x_)^2], x_Symbol] :> Simp[ArcSinh[(Rt[b, 2]*x)/Sqrt[a]]/Rt[b, 2], x] /; FreeQ[{a, b},
x] && GtQ[a, 0] && PosQ[b]

Rule 6696

Int[(u_.)*((a_.) + (b_.)*(y_)^(n_))^(p_), x_Symbol] :> With[{q = DerivativeDivides[y, u, x]}, Dist[q, Subst[In
t[(a + b*x^n)^p, x], x, y], x] /;  !FalseQ[q]] /; FreeQ[{a, b, n, p}, x]

Rubi steps

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

________________________________________________________________________________________

Mathematica [A]  time = 0.03, size = 27, normalized size = 1.00 \[ -\frac {1}{2} \log (\coth (x)) \sqrt {\log ^2(\coth (x))+1}-\frac {1}{2} \sinh ^{-1}(\log (\coth (x))) \]

Antiderivative was successfully verified.

[In]

Integrate[Csch[x]*Sqrt[1 + Log[Coth[x]]^2]*Sech[x],x]

[Out]

-1/2*ArcSinh[Log[Coth[x]]] - (Log[Coth[x]]*Sqrt[1 + Log[Coth[x]]^2])/2

________________________________________________________________________________________

fricas [B]  time = 0.46, size = 53, normalized size = 1.96 \[ -\frac {1}{2} \, \sqrt {\log \left (\frac {\cosh \relax (x)}{\sinh \relax (x)}\right )^{2} + 1} \log \left (\frac {\cosh \relax (x)}{\sinh \relax (x)}\right ) + \frac {1}{2} \, \log \left (\sqrt {\log \left (\frac {\cosh \relax (x)}{\sinh \relax (x)}\right )^{2} + 1} - \log \left (\frac {\cosh \relax (x)}{\sinh \relax (x)}\right )\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csch(x)*sech(x)*(1+log(coth(x))^2)^(1/2),x, algorithm="fricas")

[Out]

-1/2*sqrt(log(cosh(x)/sinh(x))^2 + 1)*log(cosh(x)/sinh(x)) + 1/2*log(sqrt(log(cosh(x)/sinh(x))^2 + 1) - log(co
sh(x)/sinh(x)))

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \sqrt {\log \left (\coth \relax (x)\right )^{2} + 1} \operatorname {csch}\relax (x) \operatorname {sech}\relax (x)\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csch(x)*sech(x)*(1+log(coth(x))^2)^(1/2),x, algorithm="giac")

[Out]

integrate(sqrt(log(coth(x))^2 + 1)*csch(x)*sech(x), x)

________________________________________________________________________________________

maple [A]  time = 0.24, size = 22, normalized size = 0.81 \[ -\frac {\arcsinh \left (\ln \left (\coth \relax (x )\right )\right )}{2}-\frac {\ln \left (\coth \relax (x )\right ) \sqrt {1+\ln \left (\coth \relax (x )\right )^{2}}}{2} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(csch(x)*sech(x)*(1+ln(coth(x))^2)^(1/2),x)

[Out]

-1/2*arcsinh(ln(coth(x)))-1/2*ln(coth(x))*(1+ln(coth(x))^2)^(1/2)

________________________________________________________________________________________

maxima [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \sqrt {\log \left (\coth \relax (x)\right )^{2} + 1} \operatorname {csch}\relax (x) \operatorname {sech}\relax (x)\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csch(x)*sech(x)*(1+log(coth(x))^2)^(1/2),x, algorithm="maxima")

[Out]

integrate(sqrt(log(coth(x))^2 + 1)*csch(x)*sech(x), x)

________________________________________________________________________________________

mupad [B]  time = 1.88, size = 21, normalized size = 0.78 \[ -\frac {\mathrm {asinh}\left (\ln \left (\mathrm {coth}\relax (x)\right )\right )}{2}-\frac {\ln \left (\mathrm {coth}\relax (x)\right )\,\sqrt {{\ln \left (\mathrm {coth}\relax (x)\right )}^2+1}}{2} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((log(coth(x))^2 + 1)^(1/2)/(cosh(x)*sinh(x)),x)

[Out]

- asinh(log(coth(x)))/2 - (log(coth(x))*(log(coth(x))^2 + 1)^(1/2))/2

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \sqrt {\log {\left (\coth {\relax (x )} \right )}^{2} + 1} \operatorname {csch}{\relax (x )} \operatorname {sech}{\relax (x )}\, dx \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(csch(x)*sech(x)*(1+ln(coth(x))**2)**(1/2),x)

[Out]

Integral(sqrt(log(coth(x))**2 + 1)*csch(x)*sech(x), x)

________________________________________________________________________________________