3.725 \(\int \frac {\sec (x) \tan (x)}{1+\sec ^2(x)} \, dx\)

Optimal. Leaf size=5 \[ -\tan ^{-1}(\cos (x)) \]

[Out]

-arctan(cos(x))

________________________________________________________________________________________

Rubi [A]  time = 0.03, antiderivative size = 5, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, integrand size = 13, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.154, Rules used = {4339, 203} \[ -\tan ^{-1}(\cos (x)) \]

Antiderivative was successfully verified.

[In]

Int[(Sec[x]*Tan[x])/(1 + Sec[x]^2),x]

[Out]

-ArcTan[Cos[x]]

Rule 203

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

Rule 4339

Int[(u_)*(F_)[(c_.)*((a_.) + (b_.)*(x_))], x_Symbol] :> With[{d = FreeFactors[Cos[c*(a + b*x)], x]}, -Dist[(b*
c)^(-1), Subst[Int[SubstFor[1/x, Cos[c*(a + b*x)]/d, u, x], x], x, Cos[c*(a + b*x)]/d], x] /; FunctionOfQ[Cos[
c*(a + b*x)]/d, u, x, True]] /; FreeQ[{a, b, c}, x] && (EqQ[F, Tan] || EqQ[F, tan])

Rubi steps

\begin {align*} \int \frac {\sec (x) \tan (x)}{1+\sec ^2(x)} \, dx &=-\operatorname {Subst}\left (\int \frac {1}{1+x^2} \, dx,x,\cos (x)\right )\\ &=-\tan ^{-1}(\cos (x))\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.02, size = 5, normalized size = 1.00 \[ -\tan ^{-1}(\cos (x)) \]

Antiderivative was successfully verified.

[In]

Integrate[(Sec[x]*Tan[x])/(1 + Sec[x]^2),x]

[Out]

-ArcTan[Cos[x]]

________________________________________________________________________________________

fricas [A]  time = 4.94, size = 5, normalized size = 1.00 \[ -\arctan \left (\cos \relax (x)\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(x)*tan(x)/(1+sec(x)^2),x, algorithm="fricas")

[Out]

-arctan(cos(x))

________________________________________________________________________________________

giac [A]  time = 0.14, size = 5, normalized size = 1.00 \[ -\arctan \left (\cos \relax (x)\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(x)*tan(x)/(1+sec(x)^2),x, algorithm="giac")

[Out]

-arctan(cos(x))

________________________________________________________________________________________

maple [A]  time = 0.07, size = 4, normalized size = 0.80 \[ \arctan \left (\sec \relax (x )\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(sec(x)*tan(x)/(1+sec(x)^2),x)

[Out]

arctan(sec(x))

________________________________________________________________________________________

maxima [A]  time = 0.42, size = 5, normalized size = 1.00 \[ -\arctan \left (\cos \relax (x)\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(x)*tan(x)/(1+sec(x)^2),x, algorithm="maxima")

[Out]

-arctan(cos(x))

________________________________________________________________________________________

mupad [B]  time = 2.95, size = 7, normalized size = 1.40 \[ \mathrm {atan}\left ({\mathrm {tan}\left (\frac {x}{2}\right )}^2\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(tan(x)/(cos(x)*(1/cos(x)^2 + 1)),x)

[Out]

atan(tan(x/2)^2)

________________________________________________________________________________________

sympy [A]  time = 0.21, size = 3, normalized size = 0.60 \[ \operatorname {atan}{\left (\sec {\relax (x )} \right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(x)*tan(x)/(1+sec(x)**2),x)

[Out]

atan(sec(x))

________________________________________________________________________________________