\(\int \frac {1}{(\coth ^2(x)-\text {csch}^2(x))^2} \, dx\) [824]

Optimal result

Integrand size = 13, antiderivative size = 1 \[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=x \]

[Out]

x

Rubi [A] (verified)

Time = 0.01 (sec) , antiderivative size = 1, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.154, Rules used = {4467, 8} \[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=x \]

[In]

Int[(Coth[x]^2 - Csch[x]^2)^(-2),x]

[Out]

x

Rule 8

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

Rule 4467

Int[((a_.) + cot[(d_.) + (e_.)*(x_)]^2*(b_.) + csc[(d_.) + (e_.)*(x_)]^2*(c_.))^(p_.)*(u_.), x_Symbol] :> Dist
[(a + c)^p, Int[ActivateTrig[u], x], x] /; FreeQ[{a, b, c, d, e, p}, x] && EqQ[b + c, 0]

Rubi steps \begin{align*} \text {integral}& = \int 1 \, dx \\ & = x \\ \end{align*}

Mathematica [A] (verified)

Time = 0.00 (sec) , antiderivative size = 1, normalized size of antiderivative = 1.00 \[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=x \]

[In]

Integrate[(Coth[x]^2 - Csch[x]^2)^(-2),x]

[Out]

x

Maple [A] (verified)

Time = 10.52 (sec) , antiderivative size = 2, normalized size of antiderivative = 2.00

method	result	size
risch	\(x\)	\(2\)
default	\(2 \,\operatorname {arctanh}\left (\tanh \left (\frac {x}{2}\right )\right )\)	\(8\)

[In]

int(1/(coth(x)^2-csch(x)^2)^2,x,method=_RETURNVERBOSE)

[Out]

x

Fricas [A] (verification not implemented)

none

Time = 0.24 (sec) , antiderivative size = 1, normalized size of antiderivative = 1.00 \[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=x \]

[In]

integrate(1/(coth(x)^2-csch(x)^2)^2,x, algorithm="fricas")

[Out]

x

Sympy [F]

\[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=\int \frac {1}{\left (\coth {\left (x \right )} - \operatorname {csch}{\left (x \right )}\right )^{2} \left (\coth {\left (x \right )} + \operatorname {csch}{\left (x \right )}\right )^{2}}\, dx \]

[In]

integrate(1/(coth(x)**2-csch(x)**2)**2,x)

[Out]

Integral(1/((coth(x) - csch(x))**2*(coth(x) + csch(x))**2), x)

Maxima [A] (verification not implemented)

none

Time = 0.20 (sec) , antiderivative size = 1, normalized size of antiderivative = 1.00 \[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=x \]

[In]

integrate(1/(coth(x)^2-csch(x)^2)^2,x, algorithm="maxima")

[Out]

x

Giac [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 1, normalized size of antiderivative = 1.00 \[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=x \]

[In]

integrate(1/(coth(x)^2-csch(x)^2)^2,x, algorithm="giac")

[Out]

x

Mupad [B] (verification not implemented)

Time = 0.03 (sec) , antiderivative size = 1, normalized size of antiderivative = 1.00 \[ \int \frac {1}{\left (\coth ^2(x)-\text {csch}^2(x)\right )^2} \, dx=x \]

[In]

int(1/(coth(x)^2 - 1/sinh(x)^2)^2,x)

[Out]

x