3.5.57 \(\int \sqrt {\cot (2 x) \tan (x)} \, dx\) [457]

Optimal. Leaf size=32 \[ -\frac {\sin ^{-1}(\tan (x))}{\sqrt {2}}+\tan ^{-1}\left (\frac {\sqrt {2} \tan (x)}{\sqrt {1-\tan ^2(x)}}\right ) \]

[Out]

arctan(2^(1/2)*tan(x)/(1-tan(x)^2)^(1/2))-1/2*arcsin(tan(x))*2^(1/2)

________________________________________________________________________________________

Rubi [A]
time = 0.03, antiderivative size = 32, normalized size of antiderivative = 1.00, number of steps used = 6, number of rules used = 5, integrand size = 11, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.454, Rules used = {12, 399, 222, 385, 209} \begin {gather*} \text {ArcTan}\left (\frac {\sqrt {2} \tan (x)}{\sqrt {1-\tan ^2(x)}}\right )-\frac {\text {ArcSin}(\tan (x))}{\sqrt {2}} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[Sqrt[Cot[2*x]*Tan[x]],x]

[Out]

-(ArcSin[Tan[x]]/Sqrt[2]) + ArcTan[(Sqrt[2]*Tan[x])/Sqrt[1 - Tan[x]^2]]

Rule 12

Int[(a_)*(u_), x_Symbol] :> Dist[a, Int[u, x], x] /; FreeQ[a, x] &&  !MatchQ[u, (b_)*(v_) /; FreeQ[b, x]]

Rule 209

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

Rule 222

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

Rule 385

Int[((a_) + (b_.)*(x_)^(n_))^(p_)/((c_) + (d_.)*(x_)^(n_)), x_Symbol] :> Subst[Int[1/(c - (b*c - a*d)*x^n), x]
, x, x/(a + b*x^n)^(1/n)] /; FreeQ[{a, b, c, d}, x] && NeQ[b*c - a*d, 0] && EqQ[n*p + 1, 0] && IntegerQ[n]

Rule 399

Int[((a_) + (b_.)*(x_)^(n_))^(p_)/((c_) + (d_.)*(x_)^(n_)), x_Symbol] :> Dist[b/d, Int[(a + b*x^n)^(p - 1), x]
, x] - Dist[(b*c - a*d)/d, Int[(a + b*x^n)^(p - 1)/(c + d*x^n), x], x] /; FreeQ[{a, b, c, d, p}, x] && NeQ[b*c
- a*d, 0] && EqQ[n*(p - 1) + 1, 0] && IntegerQ[n]

Rubi steps

\begin {align*} \int \sqrt {\cot (2 x) \tan (x)} \, dx &=\text {Subst}\left (\int \frac {\sqrt {1-x^2}}{\sqrt {2} \left (1+x^2\right )} \, dx,x,\tan (x)\right )\\ &=\frac {\text {Subst}\left (\int \frac {\sqrt {1-x^2}}{1+x^2} \, dx,x,\tan (x)\right )}{\sqrt {2}}\\ &=-\frac {\text {Subst}\left (\int \frac {1}{\sqrt {1-x^2}} \, dx,x,\tan (x)\right )}{\sqrt {2}}+\sqrt {2} \text {Subst}\left (\int \frac {1}{\sqrt {1-x^2} \left (1+x^2\right )} \, dx,x,\tan (x)\right )\\ &=-\frac {\sin ^{-1}(\tan (x))}{\sqrt {2}}+\sqrt {2} \text {Subst}\left (\int \frac {1}{1+2 x^2} \, dx,x,\frac {\tan (x)}{\sqrt {1-\tan ^2(x)}}\right )\\ &=-\frac {\sin ^{-1}(\tan (x))}{\sqrt {2}}+\tan ^{-1}\left (\frac {\sqrt {2} \tan (x)}{\sqrt {1-\tan ^2(x)}}\right )\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.05, size = 52, normalized size = 1.62 \begin {gather*} \frac {\left (\sqrt {2} \sin ^{-1}\left (\sqrt {2} \sin (x)\right )-\tan ^{-1}\left (\frac {\sin (x)}{\sqrt {\cos (2 x)}}\right )\right ) \cos (x) \sqrt {\cot (2 x) \tan (x)}}{\sqrt {\cos (2 x)}} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[Sqrt[Cot[2*x]*Tan[x]],x]

[Out]

((Sqrt[2]*ArcSin[Sqrt[2]*Sin[x]] - ArcTan[Sin[x]/Sqrt[Cos[2*x]]])*Cos[x]*Sqrt[Cot[2*x]*Tan[x]])/Sqrt[Cos[2*x]]

________________________________________________________________________________________

Maple [C] Result contains higher order function than in optimal. Order 4 vs. order 3.
time = 0.48, size = 242, normalized size = 7.56

method	result	size
default	\(\frac {\sqrt {2}\, \left (4 \EllipticPi \left (\frac {\sqrt {3+2 \sqrt {2}}\, \left (\cos \left (x \right )-1\right )}{\sin \left (x \right )}, -\frac {1}{3+2 \sqrt {2}}, \frac {\sqrt {3-2 \sqrt {2}}}{\sqrt {3+2 \sqrt {2}}}\right )-\EllipticF \left (\frac {\left (\cos \left (x \right )-1\right ) \left (1+\sqrt {2}\right )}{\sin \left (x \right )}, 3-2 \sqrt {2}\right )-2 \EllipticPi \left (\frac {\sqrt {3+2 \sqrt {2}}\, \left (\cos \left (x \right )-1\right )}{\sin \left (x \right )}, \frac {1}{3+2 \sqrt {2}}, \frac {\sqrt {3-2 \sqrt {2}}}{\sqrt {3+2 \sqrt {2}}}\right )\right ) \left (2+\sqrt {2}\right ) \cos \left (x \right ) \left (\sin ^{2}\left (x \right )\right ) \sqrt {\frac {2 \left (\cos ^{2}\left (x \right )\right )-1}{\cos \left (x \right )^{2}}}\, \sqrt {-\frac {2 \left (\cos \left (x \right ) \sqrt {2}-\sqrt {2}-2 \cos \left (x \right )+1\right )}{1+\cos \left (x \right )}}\, \sqrt {\frac {\cos \left (x \right ) \sqrt {2}+2 \cos \left (x \right )-\sqrt {2}-1}{1+\cos \left (x \right )}}}{2 \sqrt {3+2 \sqrt {2}}\, \left (1+\sqrt {2}\right ) \left (\cos \left (x \right )-1\right ) \left (2 \left (\cos ^{2}\left (x \right )\right )-1\right )}\)	\(242\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((cot(2*x)/cot(x))^(1/2),x,method=_RETURNVERBOSE)

[Out]

1/2*2^(1/2)/(3+2*2^(1/2))^(1/2)/(1+2^(1/2))*(4*EllipticPi((3+2*2^(1/2))^(1/2)*(cos(x)-1)/sin(x),-1/(3+2*2^(1/2
)),(3-2*2^(1/2))^(1/2)/(3+2*2^(1/2))^(1/2))-EllipticF((cos(x)-1)*(1+2^(1/2))/sin(x),3-2*2^(1/2))-2*EllipticPi(
(3+2*2^(1/2))^(1/2)*(cos(x)-1)/sin(x),1/(3+2*2^(1/2)),(3-2*2^(1/2))^(1/2)/(3+2*2^(1/2))^(1/2)))*(2+2^(1/2))*co
s(x)*sin(x)^2*((2*cos(x)^2-1)/cos(x)^2)^(1/2)*(-2*(cos(x)*2^(1/2)-2^(1/2)-2*cos(x)+1)/(1+cos(x)))^(1/2)*((cos(
x)*2^(1/2)+2*cos(x)-2^(1/2)-1)/(1+cos(x)))^(1/2)/(cos(x)-1)/(2*cos(x)^2-1)

________________________________________________________________________________________

Maxima [F(-2)]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Exception raised: RuntimeError} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((cot(2*x)/cot(x))^(1/2),x, algorithm="maxima")

[Out]

Exception raised: RuntimeError >> ECL says: Error executing code in Maxima: sign: argument cannot be imaginary
; found %i

________________________________________________________________________________________

Fricas [B] Leaf count of result is larger than twice the leaf count of optimal. 115 vs. \(2 (26) = 52\).
time = 0.85, size = 115, normalized size = 3.59 \begin {gather*} \frac {1}{4} \, \sqrt {2} \arctan \left (\frac {\sqrt {2} {\left (3 \, \cos \left (2 \, x\right )^{2} + 2 \, \cos \left (2 \, x\right ) - 1\right )} \sqrt {\frac {\cos \left (2 \, x\right )}{\cos \left (2 \, x\right ) + 1}}}{4 \, \cos \left (2 \, x\right ) \sin \left (2 \, x\right )}\right ) - \frac {1}{2} \, \arctan \left (\frac {\sqrt {2} {\left (2 \, \sqrt {2} \cos \left (2 \, x\right )^{2} + \sqrt {2} \cos \left (2 \, x\right ) - \sqrt {2}\right )} \sqrt {\frac {\cos \left (2 \, x\right )}{\cos \left (2 \, x\right ) + 1}}}{4 \, \cos \left (2 \, x\right ) \sin \left (2 \, x\right )}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((cot(2*x)/cot(x))^(1/2),x, algorithm="fricas")

[Out]

1/4*sqrt(2)*arctan(1/4*sqrt(2)*(3*cos(2*x)^2 + 2*cos(2*x) - 1)*sqrt(cos(2*x)/(cos(2*x) + 1))/(cos(2*x)*sin(2*x
))) - 1/2*arctan(1/4*sqrt(2)*(2*sqrt(2)*cos(2*x)^2 + sqrt(2)*cos(2*x) - sqrt(2))*sqrt(cos(2*x)/(cos(2*x) + 1))
/(cos(2*x)*sin(2*x)))

________________________________________________________________________________________

Sympy [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \sqrt {\frac {\cot {\left (2 x \right )}}{\cot {\left (x \right )}}}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((cot(2*x)/cot(x))**(1/2),x)

[Out]

Integral(sqrt(cot(2*x)/cot(x)), x)

________________________________________________________________________________________

Giac [C] Result contains complex when optimal does not.
time = 1.06, size = 138, normalized size = 4.31 \begin {gather*} \frac {1}{2} \, {\left (\pi - \sqrt {2} \arctan \left (-i\right ) - \sqrt {2} \arctan \left (\sqrt {2}\right ) - i \, \log \left (2 \, \sqrt {2} + 3\right )\right )} \mathrm {sgn}\left (\sin \left (2 \, x\right )\right ) - \frac {\sqrt {2} {\left (-i \, \sqrt {2} \log \left (2 i \, \sqrt {2} + 3 i\right ) - 2 \, \arctan \left (-i\right )\right )} \mathrm {sgn}\left (\cos \left (x\right )\right ) + 2 \, {\left (\sqrt {2} \arctan \left (\frac {1}{4} \, \sqrt {2} {\left (\frac {3 \, {\left (2 \, \sqrt {2} \sqrt {-2 \, \cos \left (x\right )^{4} + 3 \, \cos \left (x\right )^{2} - 1} - 1\right )}}{4 \, \cos \left (x\right )^{2} - 3} - 1\right )}\right ) + \arcsin \left (4 \, \cos \left (x\right )^{2} - 3\right )\right )} \mathrm {sgn}\left (\cos \left (x\right )\right )}{4 \, \mathrm {sgn}\left (\cos \left (x\right )\right ) \mathrm {sgn}\left (\sin \left (2 \, x\right )\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((cot(2*x)/cot(x))^(1/2),x, algorithm="giac")

[Out]

1/2*(pi - sqrt(2)*arctan(-I) - sqrt(2)*arctan(sqrt(2)) - I*log(2*sqrt(2) + 3))*sgn(sin(2*x)) - 1/4*(sqrt(2)*(-
I*sqrt(2)*log(2*I*sqrt(2) + 3*I) - 2*arctan(-I))*sgn(cos(x)) + 2*(sqrt(2)*arctan(1/4*sqrt(2)*(3*(2*sqrt(2)*sqr
t(-2*cos(x)^4 + 3*cos(x)^2 - 1) - 1)/(4*cos(x)^2 - 3) - 1)) + arcsin(4*cos(x)^2 - 3))*sgn(cos(x)))/(sgn(cos(x)
)*sgn(sin(2*x)))

________________________________________________________________________________________

Mupad [F]
time = 0.00, size = -1, normalized size = -0.03 \begin {gather*} \int \sqrt {\frac {\mathrm {cot}\left (2\,x\right )}{\mathrm {cot}\left (x\right )}} \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((cot(2*x)/cot(x))^(1/2),x)

[Out]

int((cot(2*x)/cot(x))^(1/2), x)

________________________________________________________________________________________