\(\int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} (\sinh ^2(x)+\sinh (2 x))} \, dx\) [592]

Optimal result
Mathematica [B] (verified)
Rubi [A] (warning: unable to verify)
Maple [B] (verified)
Fricas [B] (verification not implemented)
Sympy [F]
Maxima [F]
Giac [A] (verification not implemented)
Mupad [F(-1)]
Reduce [F]

Optimal result

Integrand size = 31, antiderivative size = 69 \[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=\sqrt {2} \arctan \left (\text {sech}(x) \sqrt {\cosh (x) \sinh (x)}\right )+\frac {1}{6} \arctan \left (\frac {\sinh (x)}{\sqrt {\sinh (2 x)}}\right )-\frac {1}{3} \sqrt {2} \text {arctanh}\left (\text {sech}(x) \sqrt {\cosh (x) \sinh (x)}\right )+\frac {\cosh (x)}{\sqrt {\sinh (2 x)}} \] Output:

1/6*arctan(sinh(x)/sinh(2*x)^(1/2))+arctan(sech(x)*(cosh(x)*sinh(x))^(1/2) 
)*2^(1/2)-1/3*arctanh(sech(x)*(cosh(x)*sinh(x))^(1/2))*2^(1/2)+cosh(x)/sin 
h(2*x)^(1/2)
 

Mathematica [B] (verified)

Leaf count is larger than twice the leaf count of optimal. \(160\) vs. \(2(69)=138\).

Time = 20.32 (sec) , antiderivative size = 160, normalized size of antiderivative = 2.32 \[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=\frac {\sqrt {\sinh (2 x)} \left (6 \sqrt {2} \arctan \left (\frac {\sqrt {\tanh \left (\frac {x}{2}\right )}}{\sqrt {\frac {\cosh (x)}{1+\cosh (x)}}}\right )+\arctan \left (\frac {\sqrt {\tanh \left (\frac {x}{2}\right )}}{\sqrt {1+\tanh ^2\left (\frac {x}{2}\right )}}\right )-2 \sqrt {2} \text {arctanh}\left (\frac {\sqrt {\tanh \left (\frac {x}{2}\right )}}{\sqrt {\frac {\cosh (x)}{1+\cosh (x)}}}\right )+\frac {3 \sqrt {\cosh (x) \text {sech}^2\left (\frac {x}{2}\right )}}{\sqrt {\tanh \left (\frac {x}{2}\right )}}\right )}{6 (1+\cosh (x)) \sqrt {\tanh \left (\frac {x}{2}\right )} \sqrt {1+\tanh ^2\left (\frac {x}{2}\right )}} \] Input:

Integrate[(Cosh[x]*(-Cosh[2*x] + Tanh[x]))/(Sqrt[Sinh[2*x]]*(Sinh[x]^2 + S 
inh[2*x])),x]
 

Output:

(Sqrt[Sinh[2*x]]*(6*Sqrt[2]*ArcTan[Sqrt[Tanh[x/2]]/Sqrt[Cosh[x]/(1 + Cosh[ 
x])]] + ArcTan[Sqrt[Tanh[x/2]]/Sqrt[1 + Tanh[x/2]^2]] - 2*Sqrt[2]*ArcTanh[ 
Sqrt[Tanh[x/2]]/Sqrt[Cosh[x]/(1 + Cosh[x])]] + (3*Sqrt[Cosh[x]*Sech[x/2]^2 
])/Sqrt[Tanh[x/2]]))/(6*(1 + Cosh[x])*Sqrt[Tanh[x/2]]*Sqrt[1 + Tanh[x/2]^2 
])
 

Rubi [A] (warning: unable to verify)

Time = 0.83 (sec) , antiderivative size = 67, normalized size of antiderivative = 0.97, number of steps used = 9, number of rules used = 8, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.258, Rules used = {3042, 4890, 26, 4889, 25, 2035, 2247, 2009}

Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.

\(\displaystyle \int \frac {\cosh (x) (\tanh (x)-\cosh (2 x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx\)

\(\Big \downarrow \) 3042

\(\displaystyle \int \frac {\cos (i x) (-\cos (2 i x)-i \tan (i x))}{\left (-\sin (i x)^2-i \sin (2 i x)\right ) \sqrt {-i \sin (2 i x)}}dx\)

\(\Big \downarrow \) 4890

\(\displaystyle \frac {i \sinh (x) \int -\frac {i \cos (i x) \text {csch}(x) (\cos (2 i x)+i \tan (i x)) \sqrt {\tanh (x)}}{\sin (i x)^2+i \sin (2 i x)}dx}{\sqrt {\sinh (2 x)} \sqrt {\tanh (x)}}\)

\(\Big \downarrow \) 26

\(\displaystyle \frac {\sinh (x) \int \frac {\cos (i x) \text {csch}(x) (\cos (2 i x)+i \tan (i x)) \sqrt {\tanh (x)}}{\sin (i x)^2+i \sin (2 i x)}dx}{\sqrt {\sinh (2 x)} \sqrt {\tanh (x)}}\)

\(\Big \downarrow \) 4889

\(\displaystyle \frac {\sinh (x) \int -\frac {\tanh ^3(x)+\tanh ^2(x)-\tanh (x)+1}{\tanh ^{\frac {3}{2}}(x) (\tanh (x)+2) \left (1-\tanh ^2(x)\right )}d\tanh (x)}{\sqrt {\sinh (2 x)} \sqrt {\tanh (x)}}\)

\(\Big \downarrow \) 25

\(\displaystyle -\frac {\sinh (x) \int \frac {\tanh ^3(x)+\tanh ^2(x)-\tanh (x)+1}{\tanh ^{\frac {3}{2}}(x) (\tanh (x)+2) \left (1-\tanh ^2(x)\right )}d\tanh (x)}{\sqrt {\sinh (2 x)} \sqrt {\tanh (x)}}\)

\(\Big \downarrow \) 2035

\(\displaystyle -\frac {2 \sinh (x) \int \frac {\coth ^2(x) \left (\tanh ^3(x)+\tanh ^2(x)-\tanh (x)+1\right )}{(\tanh (x)+2) \left (1-\tanh ^2(x)\right )}d\sqrt {\tanh (x)}}{\sqrt {\sinh (2 x)} \sqrt {\tanh (x)}}\)

\(\Big \downarrow \) 2247

\(\displaystyle -\frac {2 \sinh (x) \int \left (\frac {\coth ^2(x)}{2}+\frac {1}{-\tanh (x)-1}-\frac {1}{3 (\tanh (x)-1)}-\frac {1}{6 (\tanh (x)+2)}\right )d\sqrt {\tanh (x)}}{\sqrt {\sinh (2 x)} \sqrt {\tanh (x)}}\)

\(\Big \downarrow \) 2009

\(\displaystyle -\frac {2 \sinh (x) \left (-\arctan \left (\sqrt {\tanh (x)}\right )-\frac {\arctan \left (\frac {\sqrt {\tanh (x)}}{\sqrt {2}}\right )}{6 \sqrt {2}}+\frac {1}{3} \text {arctanh}\left (\sqrt {\tanh (x)}\right )-\frac {\coth (x)}{2}\right )}{\sqrt {\sinh (2 x)} \sqrt {\tanh (x)}}\)

Input:

Int[(Cosh[x]*(-Cosh[2*x] + Tanh[x]))/(Sqrt[Sinh[2*x]]*(Sinh[x]^2 + Sinh[2* 
x])),x]
 

Output:

(-2*(-ArcTan[Sqrt[Tanh[x]]] - ArcTan[Sqrt[Tanh[x]]/Sqrt[2]]/(6*Sqrt[2]) + 
ArcTanh[Sqrt[Tanh[x]]]/3 - Coth[x]/2)*Sinh[x])/(Sqrt[Sinh[2*x]]*Sqrt[Tanh[ 
x]])
 

Defintions of rubi rules used

rule 25
Int[-(Fx_), x_Symbol] :> Simp[Identity[-1]   Int[Fx, x], x]
 

rule 26
Int[(Complex[0, a_])*(Fx_), x_Symbol] :> Simp[(Complex[Identity[0], a])   I 
nt[Fx, x], x] /; FreeQ[a, x] && EqQ[a^2, 1]
 

rule 2009
Int[u_, x_Symbol] :> Simp[IntSum[u, x], x] /; SumQ[u]
 

rule 2035
Int[(Fx_)*(x_)^(m_), x_Symbol] :> With[{k = Denominator[m]}, Simp[k   Subst 
[Int[x^(k*(m + 1) - 1)*SubstPower[Fx, x, k], x], x, x^(1/k)], x]] /; Fracti 
onQ[m] && AlgebraicFunctionQ[Fx, x]
 

rule 2247
Int[(Px_)*((f_.)*(x_))^(m_.)*((d_) + (e_.)*(x_)^2)^(q_.)*((a_) + (c_.)*(x_) 
^4)^(p_.), x_Symbol] :> Int[ExpandIntegrand[Px*(f*x)^m*(d + e*x^2)^q*(a + c 
*x^4)^p, x], x] /; FreeQ[{a, c, d, e, f, m, q}, x] && PolyQ[Px, x] && Integ 
erQ[p]
 

rule 3042
Int[u_, x_Symbol] :> Int[DeactivateTrig[u, x], x] /; FunctionOfTrigOfLinear 
Q[u, x]
 

rule 4889
Int[u_, x_Symbol] :> With[{v = FunctionOfTrig[u, x]}, With[{d = FreeFactors 
[Tan[v], x]}, Simp[d/Coefficient[v, x, 1]   Subst[Int[SubstFor[1/(1 + d^2*x 
^2), Tan[v]/d, u, x], x], x, Tan[v]/d], x]] /;  !FalseQ[v] && FunctionOfQ[N 
onfreeFactors[Tan[v], x], u, x]] /; InverseFunctionFreeQ[u, x] &&  !MatchQ[ 
u, (v_.)*((c_.)*tan[w_]^(n_.)*tan[z_]^(n_.))^(p_.) /; FreeQ[{c, p}, x] && I 
ntegerQ[n] && LinearQ[w, x] && EqQ[z, 2*w]]
 

rule 4890
Int[(u_)*((c_.)*sin[v_])^(m_), x_Symbol] :> With[{w = FunctionOfTrig[u*(Sin 
[v/2]^(2*m)/(c*Tan[v/2])^m), x]}, Simp[(c*Sin[v])^m*((c*Tan[v/2])^m/Sin[v/2 
]^(2*m))   Int[u*(Sin[v/2]^(2*m)/(c*Tan[v/2])^m), x], x] /;  !FalseQ[w] && 
FunctionOfQ[NonfreeFactors[Tan[w], x], u*(Sin[v/2]^(2*m)/(c*Tan[v/2])^m), x 
]] /; FreeQ[c, x] && LinearQ[v, x] && IntegerQ[m + 1/2] &&  !SumQ[u] && Inv 
erseFunctionFreeQ[u, x]
 
Maple [B] (verified)

Leaf count of result is larger than twice the leaf count of optimal. \(166\) vs. \(2(53)=106\).

Time = 1.70 (sec) , antiderivative size = 167, normalized size of antiderivative = 2.42

method result size
default \(\frac {\sqrt {\frac {\tanh \left (\frac {x}{2}\right ) \left (\tanh \left (\frac {x}{2}\right )^{2}+1\right )}{\left (\tanh \left (\frac {x}{2}\right )^{2}-1\right )^{2}}}\, \left (\tanh \left (\frac {x}{2}\right )^{2}-1\right ) \left (2 \sqrt {2}\, \operatorname {arctanh}\left (\frac {\sqrt {\tanh \left (\frac {x}{2}\right )^{3}+\tanh \left (\frac {x}{2}\right )}\, \sqrt {2}}{2 \tanh \left (\frac {x}{2}\right )}\right ) \tanh \left (\frac {x}{2}\right )+6 \sqrt {2}\, \arctan \left (\frac {\sqrt {\tanh \left (\frac {x}{2}\right )^{3}+\tanh \left (\frac {x}{2}\right )}\, \sqrt {2}}{2 \tanh \left (\frac {x}{2}\right )}\right ) \tanh \left (\frac {x}{2}\right )+\arctan \left (\frac {\sqrt {\tanh \left (\frac {x}{2}\right )^{3}+\tanh \left (\frac {x}{2}\right )}}{\tanh \left (\frac {x}{2}\right )}\right ) \tanh \left (\frac {x}{2}\right )-3 \sqrt {\tanh \left (\frac {x}{2}\right )^{3}+\tanh \left (\frac {x}{2}\right )}\right )}{6 \sqrt {\tanh \left (\frac {x}{2}\right ) \left (\tanh \left (\frac {x}{2}\right )^{2}+1\right )}\, \tanh \left (\frac {x}{2}\right )}\) \(167\)

Input:

int(cosh(x)*(-cosh(2*x)+tanh(x))/(sinh(x)^2+sinh(2*x))/sinh(2*x)^(1/2),x,m 
ethod=_RETURNVERBOSE)
 

Output:

1/6*(tanh(1/2*x)*(tanh(1/2*x)^2+1)/(tanh(1/2*x)^2-1)^2)^(1/2)*(tanh(1/2*x) 
^2-1)*(2*2^(1/2)*arctanh(1/2/tanh(1/2*x)*(tanh(1/2*x)^3+tanh(1/2*x))^(1/2) 
*2^(1/2))*tanh(1/2*x)+6*2^(1/2)*arctan(1/2/tanh(1/2*x)*(tanh(1/2*x)^3+tanh 
(1/2*x))^(1/2)*2^(1/2))*tanh(1/2*x)+arctan(1/tanh(1/2*x)*(tanh(1/2*x)^3+ta 
nh(1/2*x))^(1/2))*tanh(1/2*x)-3*(tanh(1/2*x)^3+tanh(1/2*x))^(1/2))/(tanh(1 
/2*x)*(tanh(1/2*x)^2+1))^(1/2)/tanh(1/2*x)
 

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 303 vs. \(2 (53) = 106\).

Time = 0.08 (sec) , antiderivative size = 303, normalized size of antiderivative = 4.39 \[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=\frac {6 \, {\left (\sqrt {2} \cosh \left (x\right )^{2} + 2 \, \sqrt {2} \cosh \left (x\right ) \sinh \left (x\right ) + \sqrt {2} \sinh \left (x\right )^{2} - \sqrt {2}\right )} \arctan \left (2 \, \sqrt {\frac {\cosh \left (x\right ) \sinh \left (x\right )}{\cosh \left (x\right )^{2} - 2 \, \cosh \left (x\right ) \sinh \left (x\right ) + \sinh \left (x\right )^{2}}}\right ) + {\left (\cosh \left (x\right )^{2} + 2 \, \cosh \left (x\right ) \sinh \left (x\right ) + \sinh \left (x\right )^{2} - 1\right )} \arctan \left (\frac {4 \, \sqrt {2} \sqrt {\frac {\cosh \left (x\right ) \sinh \left (x\right )}{\cosh \left (x\right )^{2} - 2 \, \cosh \left (x\right ) \sinh \left (x\right ) + \sinh \left (x\right )^{2}}}}{\cosh \left (x\right )^{2} + 2 \, \cosh \left (x\right ) \sinh \left (x\right ) + \sinh \left (x\right )^{2} + 3}\right ) + {\left (\sqrt {2} \cosh \left (x\right )^{2} + 2 \, \sqrt {2} \cosh \left (x\right ) \sinh \left (x\right ) + \sqrt {2} \sinh \left (x\right )^{2} - \sqrt {2}\right )} \log \left (2 \, \cosh \left (x\right )^{4} + 8 \, \cosh \left (x\right )^{3} \sinh \left (x\right ) + 12 \, \cosh \left (x\right )^{2} \sinh \left (x\right )^{2} + 8 \, \cosh \left (x\right ) \sinh \left (x\right )^{3} + 2 \, \sinh \left (x\right )^{4} - 2 \, \sqrt {2} {\left (\sqrt {2} \cosh \left (x\right )^{2} + 2 \, \sqrt {2} \cosh \left (x\right ) \sinh \left (x\right ) + \sqrt {2} \sinh \left (x\right )^{2}\right )} \sqrt {\frac {\cosh \left (x\right ) \sinh \left (x\right )}{\cosh \left (x\right )^{2} - 2 \, \cosh \left (x\right ) \sinh \left (x\right ) + \sinh \left (x\right )^{2}}} - 1\right ) + 12 \, \sqrt {2} \sqrt {\frac {\cosh \left (x\right ) \sinh \left (x\right )}{\cosh \left (x\right )^{2} - 2 \, \cosh \left (x\right ) \sinh \left (x\right ) + \sinh \left (x\right )^{2}}}}{12 \, {\left (\cosh \left (x\right )^{2} + 2 \, \cosh \left (x\right ) \sinh \left (x\right ) + \sinh \left (x\right )^{2} - 1\right )}} \] Input:

integrate(cosh(x)*(-cosh(2*x)+tanh(x))/(sinh(x)^2+sinh(2*x))/sinh(2*x)^(1/ 
2),x, algorithm="fricas")
 

Output:

1/12*(6*(sqrt(2)*cosh(x)^2 + 2*sqrt(2)*cosh(x)*sinh(x) + sqrt(2)*sinh(x)^2 
 - sqrt(2))*arctan(2*sqrt(cosh(x)*sinh(x)/(cosh(x)^2 - 2*cosh(x)*sinh(x) + 
 sinh(x)^2))) + (cosh(x)^2 + 2*cosh(x)*sinh(x) + sinh(x)^2 - 1)*arctan(4*s 
qrt(2)*sqrt(cosh(x)*sinh(x)/(cosh(x)^2 - 2*cosh(x)*sinh(x) + sinh(x)^2))/( 
cosh(x)^2 + 2*cosh(x)*sinh(x) + sinh(x)^2 + 3)) + (sqrt(2)*cosh(x)^2 + 2*s 
qrt(2)*cosh(x)*sinh(x) + sqrt(2)*sinh(x)^2 - sqrt(2))*log(2*cosh(x)^4 + 8* 
cosh(x)^3*sinh(x) + 12*cosh(x)^2*sinh(x)^2 + 8*cosh(x)*sinh(x)^3 + 2*sinh( 
x)^4 - 2*sqrt(2)*(sqrt(2)*cosh(x)^2 + 2*sqrt(2)*cosh(x)*sinh(x) + sqrt(2)* 
sinh(x)^2)*sqrt(cosh(x)*sinh(x)/(cosh(x)^2 - 2*cosh(x)*sinh(x) + sinh(x)^2 
)) - 1) + 12*sqrt(2)*sqrt(cosh(x)*sinh(x)/(cosh(x)^2 - 2*cosh(x)*sinh(x) + 
 sinh(x)^2)))/(cosh(x)^2 + 2*cosh(x)*sinh(x) + sinh(x)^2 - 1)
 

Sympy [F]

\[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=- \int \frac {\cosh {\left (x \right )} \cosh {\left (2 x \right )}}{\sinh ^{2}{\left (x \right )} \sqrt {\sinh {\left (2 x \right )}} + \sinh ^{\frac {3}{2}}{\left (2 x \right )}}\, dx - \int \left (- \frac {\cosh {\left (x \right )} \tanh {\left (x \right )}}{\sinh ^{2}{\left (x \right )} \sqrt {\sinh {\left (2 x \right )}} + \sinh ^{\frac {3}{2}}{\left (2 x \right )}}\right )\, dx \] Input:

integrate(cosh(x)*(-cosh(2*x)+tanh(x))/(sinh(x)**2+sinh(2*x))/sinh(2*x)**( 
1/2),x)
 

Output:

-Integral(cosh(x)*cosh(2*x)/(sinh(x)**2*sqrt(sinh(2*x)) + sinh(2*x)**(3/2) 
), x) - Integral(-cosh(x)*tanh(x)/(sinh(x)**2*sqrt(sinh(2*x)) + sinh(2*x)* 
*(3/2)), x)
 

Maxima [F]

\[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=\int { -\frac {{\left (\cosh \left (2 \, x\right ) - \tanh \left (x\right )\right )} \cosh \left (x\right )}{{\left (\sinh \left (x\right )^{2} + \sinh \left (2 \, x\right )\right )} \sqrt {\sinh \left (2 \, x\right )}} \,d x } \] Input:

integrate(cosh(x)*(-cosh(2*x)+tanh(x))/(sinh(x)^2+sinh(2*x))/sinh(2*x)^(1/ 
2),x, algorithm="maxima")
 

Output:

-integrate((cosh(2*x) - tanh(x))*cosh(x)/((sinh(x)^2 + sinh(2*x))*sqrt(sin 
h(2*x))), x)
 

Giac [A] (verification not implemented)

Time = 0.16 (sec) , antiderivative size = 90, normalized size of antiderivative = 1.30 \[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=\sqrt {2} \arctan \left (\sqrt {e^{\left (4 \, x\right )} - 1} - e^{\left (2 \, x\right )}\right ) + \frac {1}{6} \, \sqrt {2} \log \left (-\sqrt {e^{\left (4 \, x\right )} - 1} + e^{\left (2 \, x\right )}\right ) + \frac {\sqrt {2}}{\sqrt {e^{\left (4 \, x\right )} - 1} - e^{\left (2 \, x\right )} + 1} + \frac {1}{6} \, \arctan \left (\frac {1}{4} \, \sqrt {2} {\left (3 \, \sqrt {e^{\left (4 \, x\right )} - 1} - 3 \, e^{\left (2 \, x\right )} - 1\right )}\right ) \] Input:

integrate(cosh(x)*(-cosh(2*x)+tanh(x))/(sinh(x)^2+sinh(2*x))/sinh(2*x)^(1/ 
2),x, algorithm="giac")
 

Output:

sqrt(2)*arctan(sqrt(e^(4*x) - 1) - e^(2*x)) + 1/6*sqrt(2)*log(-sqrt(e^(4*x 
) - 1) + e^(2*x)) + sqrt(2)/(sqrt(e^(4*x) - 1) - e^(2*x) + 1) + 1/6*arctan 
(1/4*sqrt(2)*(3*sqrt(e^(4*x) - 1) - 3*e^(2*x) - 1))
 

Mupad [F(-1)]

Timed out. \[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=-\int \frac {\mathrm {cosh}\left (x\right )\,\left (\mathrm {cosh}\left (2\,x\right )-\mathrm {tanh}\left (x\right )\right )}{\sqrt {\mathrm {sinh}\left (2\,x\right )}\,\left ({\mathrm {sinh}\left (x\right )}^2+\mathrm {sinh}\left (2\,x\right )\right )} \,d x \] Input:

int(-(cosh(x)*(cosh(2*x) - tanh(x)))/(sinh(2*x)^(1/2)*(sinh(2*x) + sinh(x) 
^2)),x)
 

Output:

-int((cosh(x)*(cosh(2*x) - tanh(x)))/(sinh(2*x)^(1/2)*(sinh(2*x) + sinh(x) 
^2)), x)
 

Reduce [F]

\[ \int \frac {\cosh (x) (-\cosh (2 x)+\tanh (x))}{\sqrt {\sinh (2 x)} \left (\sinh ^2(x)+\sinh (2 x)\right )} \, dx=-\left (\int \frac {\sqrt {\sinh \left (2 x \right )}\, \cosh \left (2 x \right ) \cosh \left (x \right )}{\sinh \left (2 x \right )^{2}+\sinh \left (2 x \right ) \sinh \left (x \right )^{2}}d x \right )+\int \frac {\sqrt {\sinh \left (2 x \right )}\, \cosh \left (x \right ) \tanh \left (x \right )}{\sinh \left (2 x \right )^{2}+\sinh \left (2 x \right ) \sinh \left (x \right )^{2}}d x \] Input:

int(cosh(x)*(-cosh(2*x)+tanh(x))/(sinh(x)^2+sinh(2*x))/sinh(2*x)^(1/2),x)
 

Output:

 - int((sqrt(sinh(2*x))*cosh(2*x)*cosh(x))/(sinh(2*x)**2 + sinh(2*x)*sinh( 
x)**2),x) + int((sqrt(sinh(2*x))*cosh(x)*tanh(x))/(sinh(2*x)**2 + sinh(2*x 
)*sinh(x)**2),x)