3.5.37 \(\int \frac {(-3+\cos (2 x)) \sec ^4(x)}{\sqrt {4-\cot ^2(x)}} \, dx\) [437]

Optimal. Leaf size=39 \[ -\frac {2}{3} \sqrt {4-\cot ^2(x)} \tan (x)-\frac {1}{3} \sqrt {4-\cot ^2(x)} \tan ^3(x) \]

[Out]

-2/3*(4-cot(x)^2)^(1/2)*tan(x)-1/3*(4-cot(x)^2)^(1/2)*tan(x)^3

________________________________________________________________________________________

Rubi [A]
time = 0.21, antiderivative size = 39, normalized size of antiderivative = 1.00, number of steps used = 5, number of rules used = 4, integrand size = 23, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.174, Rules used = {12, 445, 464, 197} \begin {gather*} -\frac {1}{3} \tan ^3(x) \sqrt {4-\cot ^2(x)}-\frac {2}{3} \tan (x) \sqrt {4-\cot ^2(x)} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[((-3 + Cos[2*x])*Sec[x]^4)/Sqrt[4 - Cot[x]^2],x]

[Out]

(-2*Sqrt[4 - Cot[x]^2]*Tan[x])/3 - (Sqrt[4 - Cot[x]^2]*Tan[x]^3)/3

Rule 12

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

Rule 197

Int[((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[x*((a + b*x^n)^(p + 1)/a), x] /; FreeQ[{a, b, n, p}, x] &
& EqQ[1/n + p + 1, 0]

Rule 445

Int[((c_) + (d_.)*(x_)^(mn_.))^(q_.)*((a_) + (b_.)*(x_)^(n_.))^(p_.), x_Symbol] :> Int[(a + b*x^n)^p*((d + c*x
^n)^q/x^(n*q)), x] /; FreeQ[{a, b, c, d, n, p}, x] && EqQ[mn, -n] && IntegerQ[q] && (PosQ[n] ||  !IntegerQ[p])

Rule 464

Int[((e_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_.)*((c_) + (d_.)*(x_)^(n_)), x_Symbol] :> Simp[c*(e*x)^(m +
1)*((a + b*x^n)^(p + 1)/(a*e*(m + 1))), x] + Dist[(a*d*(m + 1) - b*c*(m + n*(p + 1) + 1))/(a*e^n*(m + 1)), In
t[(e*x)^(m + n)*(a + b*x^n)^p, x], x] /; FreeQ[{a, b, c, d, e, p}, x] && NeQ[b*c - a*d, 0] && (IntegerQ[n] ||
GtQ[e, 0]) && ((GtQ[n, 0] && LtQ[m, -1]) || (LtQ[n, 0] && GtQ[m + n, -1])) &&  !ILtQ[p, -1]

Rubi steps

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

________________________________________________________________________________________

Mathematica [A]
time = 0.05, size = 36, normalized size = 0.92 \begin {gather*} \frac {(3+\cos (2 x)) (-3+5 \cos (2 x)) \csc (x) \sec ^3(x)}{12 \sqrt {4-\cot ^2(x)}} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[((-3 + Cos[2*x])*Sec[x]^4)/Sqrt[4 - Cot[x]^2],x]

[Out]

((3 + Cos[2*x])*(-3 + 5*Cos[2*x])*Csc[x]*Sec[x]^3)/(12*Sqrt[4 - Cot[x]^2])

________________________________________________________________________________________

Maple [B] Leaf count of result is larger than twice the leaf count of optimal. \(63\) vs. \(2(31)=62\).
time = 0.54, size = 64, normalized size = 1.64

method	result	size
default	\(-\frac {\left (5 \left (\cos ^{2}\left (x \right )\right )+2\right ) \sqrt {-\frac {5 \left (\cos ^{2}\left (x \right )\right )-4}{\sin \left (x \right )^{2}}}\, \sin \left (x \right ) \sqrt {4}}{12 \cos \left (x \right )^{3}}+\frac {\sqrt {4}\, \sin \left (x \right ) \sqrt {-\frac {5 \left (\cos ^{2}\left (x \right )\right )-4}{\sin \left (x \right )^{2}}}}{4 \cos \left (x \right )}\)	\(64\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((-3+cos(2*x))/cos(x)^4/(4-cot(x)^2)^(1/2),x,method=_RETURNVERBOSE)

[Out]

-1/12*(5*cos(x)^2+2)*(-(5*cos(x)^2-4)/sin(x)^2)^(1/2)*sin(x)*4^(1/2)/cos(x)^3+1/4*4^(1/2)*sin(x)*(-(5*cos(x)^2
-4)/sin(x)^2)^(1/2)/cos(x)

________________________________________________________________________________________

Maxima [B] Leaf count of result is larger than twice the leaf count of optimal. 63 vs. \(2 (31) = 62\).
time = 3.43, size = 63, normalized size = 1.62 \begin {gather*} -\frac {1}{48} \, {\left (-\frac {1}{\tan \left (x\right )^{2}} + 4\right )}^{\frac {3}{2}} \tan \left (x\right )^{3} + \frac {3}{16} \, \sqrt {-\frac {1}{\tan \left (x\right )^{2}} + 4} \tan \left (x\right ) - \frac {8 \, \tan \left (x\right )^{4} + 26 \, \tan \left (x\right )^{2} - 7}{8 \, \sqrt {2 \, \tan \left (x\right ) + 1} \sqrt {2 \, \tan \left (x\right ) - 1}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-3+cos(2*x))/cos(x)^4/(4-cot(x)^2)^(1/2),x, algorithm="maxima")

[Out]

-1/48*(-1/tan(x)^2 + 4)^(3/2)*tan(x)^3 + 3/16*sqrt(-1/tan(x)^2 + 4)*tan(x) - 1/8*(8*tan(x)^4 + 26*tan(x)^2 - 7
)/(sqrt(2*tan(x) + 1)*sqrt(2*tan(x) - 1))

________________________________________________________________________________________

Fricas [A]
time = 1.03, size = 33, normalized size = 0.85 \begin {gather*} -\frac {{\left (\cos \left (x\right )^{2} + 1\right )} \sqrt {\frac {5 \, \cos \left (x\right )^{2} - 4}{\cos \left (x\right )^{2} - 1}} \sin \left (x\right )}{3 \, \cos \left (x\right )^{3}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-3+cos(2*x))/cos(x)^4/(4-cot(x)^2)^(1/2),x, algorithm="fricas")

[Out]

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

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-3+cos(2*x))/cos(x)**4/(4-cot(x)**2)**(1/2),x)

[Out]

Integral((cos(2*x) - 3)/(sqrt(-(cot(x) - 2)*(cot(x) + 2))*cos(x)**4), x)

________________________________________________________________________________________

Giac [C] Result contains complex when optimal does not.
time = 0.61, size = 133, normalized size = 3.41 \begin {gather*} -\frac {\sqrt {5} {\left (\frac {{\left (\sqrt {5} \sqrt {-5 \, \cos \left (x\right )^{2} + 4} - 2 \, \sqrt {5}\right )}^{3}}{\cos \left (x\right )^{3}} + \frac {105 \, {\left (\sqrt {5} \sqrt {-5 \, \cos \left (x\right )^{2} + 4} - 2 \, \sqrt {5}\right )}}{\cos \left (x\right )}\right )} - \frac {125 \, \sqrt {5} {\left (\frac {21 \, {\left (\sqrt {5} \sqrt {-5 \, \cos \left (x\right )^{2} + 4} - 2 \, \sqrt {5}\right )}^{2}}{\cos \left (x\right )^{2}} + 125\right )} \cos \left (x\right )^{3}}{{\left (\sqrt {5} \sqrt {-5 \, \cos \left (x\right )^{2} + 4} - 2 \, \sqrt {5}\right )}^{3}}}{2400 \, \mathrm {sgn}\left (\sin \left (x\right )\right )} + \frac {2}{3} i \, \mathrm {sgn}\left (\sin \left (x\right )\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-3+cos(2*x))/cos(x)^4/(4-cot(x)^2)^(1/2),x, algorithm="giac")

[Out]

-1/2400*(sqrt(5)*((sqrt(5)*sqrt(-5*cos(x)^2 + 4) - 2*sqrt(5))^3/cos(x)^3 + 105*(sqrt(5)*sqrt(-5*cos(x)^2 + 4)
- 2*sqrt(5))/cos(x)) - 125*sqrt(5)*(21*(sqrt(5)*sqrt(-5*cos(x)^2 + 4) - 2*sqrt(5))^2/cos(x)^2 + 125)*cos(x)^3/
(sqrt(5)*sqrt(-5*cos(x)^2 + 4) - 2*sqrt(5))^3)/sgn(sin(x)) + 2/3*I*sgn(sin(x))

________________________________________________________________________________________

Mupad [B]
time = 0.76, size = 20, normalized size = 0.51 \begin {gather*} -\frac {\mathrm {tan}\left (x\right )\,\left ({\mathrm {tan}\left (x\right )}^2+2\right )\,\sqrt {4-\frac {1}{{\mathrm {tan}\left (x\right )}^2}}}{3} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((cos(2*x) - 3)/(cos(x)^4*(4 - cot(x)^2)^(1/2)),x)

[Out]

-(tan(x)*(tan(x)^2 + 2)*(4 - 1/tan(x)^2)^(1/2))/3

________________________________________________________________________________________