3.5.51 \(\int \frac {\sec ^2(x) \tan (x) (1+\sqrt [3]{1-8 \tan ^2(x)})}{(1-8 \tan ^2(x))^{2/3}} \, dx\) [451]

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

[Out]

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

________________________________________________________________________________________

Rubi [A]
time = 0.15, antiderivative size = 20, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, integrand size = 33, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.061, Rules used = {4427, 6818} \begin {gather*} -\frac {3}{32} \left (\sqrt [3]{1-8 \tan ^2(x)}+1\right )^2 \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

(-3*(1 + (1 - 8*Tan[x]^2)^(1/3))^2)/32

Rule 4427

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

Rule 6818

Int[(u_)*(y_)^(m_.), x_Symbol] :> With[{q = DerivativeDivides[y, u, x]}, Simp[q*(y^(m + 1)/(m + 1)), x] /;  !F
alseQ[q]] /; FreeQ[m, x] && NeQ[m, -1]

Rubi steps

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

________________________________________________________________________________________

Mathematica [B] Leaf count is larger than twice the leaf count of optimal. \(42\) vs. \(2(20)=40\).
time = 0.15, size = 42, normalized size = 2.10 \begin {gather*} -\frac {3 (-7+9 \cos (2 x)) \sec ^2(x) \left (2+\sqrt [3]{1-8 \tan ^2(x)}\right )}{64 \left (1-8 \tan ^2(x)\right )^{2/3}} \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

(-3*(-7 + 9*Cos[2*x])*Sec[x]^2*(2 + (1 - 8*Tan[x]^2)^(1/3)))/(64*(1 - 8*Tan[x]^2)^(2/3))

________________________________________________________________________________________

Maple [A]
time = 0.05, size = 26, normalized size = 1.30

method	result	size
derivativedivides	\(-\frac {3 \left (1-8 \left (\tan ^{2}\left (x \right )\right )\right )^{\frac {1}{3}}}{16}-\frac {3 \left (1-8 \left (\tan ^{2}\left (x \right )\right )\right )^{\frac {2}{3}}}{32}\)	\(26\)
default	\(-\frac {3 \left (1-8 \left (\tan ^{2}\left (x \right )\right )\right )^{\frac {1}{3}}}{16}-\frac {3 \left (1-8 \left (\tan ^{2}\left (x \right )\right )\right )^{\frac {2}{3}}}{32}\)	\(26\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-3/16*(1-8*tan(x)^2)^(1/3)-3/32*(1-8*tan(x)^2)^(2/3)

________________________________________________________________________________________

Maxima [B] Leaf count of result is larger than twice the leaf count of optimal. 86 vs. \(2 (16) = 32\).
time = 5.42, size = 86, normalized size = 4.30 \begin {gather*} -\frac {3 \, {\left (\frac {{\left (9 \, \sin \left (x\right )^{2} - 1\right )} {\left (3 \, \sin \left (x\right ) - 1\right )}^{\frac {1}{3}} {\left (\sin \left (x\right ) + 1\right )}^{\frac {1}{3}} {\left (\sin \left (x\right ) - 1\right )}^{\frac {1}{3}}}{{\left (3 \, \sin \left (x\right ) + 1\right )}^{\frac {1}{3}}} + \frac {2 \, {\left (9 \, \sin \left (x\right )^{2} - 1\right )} {\left (\sin \left (x\right ) + 1\right )}^{\frac {2}{3}} {\left (\sin \left (x\right ) - 1\right )}^{\frac {2}{3}}}{{\left (3 \, \sin \left (x\right ) + 1\right )}^{\frac {2}{3}}}\right )}}{32 \, {\left (\sin \left (x\right )^{2} - 1\right )} {\left (3 \, \sin \left (x\right ) - 1\right )}^{\frac {2}{3}}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-3/32*((9*sin(x)^2 - 1)*(3*sin(x) - 1)^(1/3)*(sin(x) + 1)^(1/3)*(sin(x) - 1)^(1/3)/(3*sin(x) + 1)^(1/3) + 2*(9
*sin(x)^2 - 1)*(sin(x) + 1)^(2/3)*(sin(x) - 1)^(2/3)/(3*sin(x) + 1)^(2/3))/((sin(x)^2 - 1)*(3*sin(x) - 1)^(2/3
))

________________________________________________________________________________________

Fricas [B] Leaf count of result is larger than twice the leaf count of optimal. 35 vs. \(2 (16) = 32\).
time = 1.29, size = 35, normalized size = 1.75 \begin {gather*} -\frac {3}{32} \, \left (\frac {9 \, \cos \left (x\right )^{2} - 8}{\cos \left (x\right )^{2}}\right )^{\frac {2}{3}} - \frac {3}{16} \, \left (\frac {9 \, \cos \left (x\right )^{2} - 8}{\cos \left (x\right )^{2}}\right )^{\frac {1}{3}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-3/32*((9*cos(x)^2 - 8)/cos(x)^2)^(2/3) - 3/16*((9*cos(x)^2 - 8)/cos(x)^2)^(1/3)

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(tan(x)*(1+(1-8*tan(x)**2)**(1/3))/cos(x)**2/(1-8*tan(x)**2)**(2/3),x)

[Out]

Integral(((1 - 8*tan(x)**2)**(1/3) + 1)*tan(x)/((1 - 8*tan(x)**2)**(2/3)*cos(x)**2), x)

________________________________________________________________________________________

Giac [A]
time = 0.89, size = 25, normalized size = 1.25 \begin {gather*} -\frac {3}{32} \, {\left (-8 \, \tan \left (x\right )^{2} + 1\right )}^{\frac {2}{3}} - \frac {3}{16} \, {\left (-8 \, \tan \left (x\right )^{2} + 1\right )}^{\frac {1}{3}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-3/32*(-8*tan(x)^2 + 1)^(2/3) - 3/16*(-8*tan(x)^2 + 1)^(1/3)

________________________________________________________________________________________

Mupad [B]
time = 0.62, size = 43, normalized size = 2.15 \begin {gather*} -\frac {3\,\left ({\left (18\,{\cos \left (x\right )}^2-16\right )}^{1/3}+2\,{\left (2\,{\cos \left (x\right )}^2\right )}^{1/3}\right )\,{\left (18\,{\cos \left (x\right )}^2-16\right )}^{1/3}}{32\,{\left (2\,{\cos \left (x\right )}^2\right )}^{2/3}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-(3*((18*cos(x)^2 - 16)^(1/3) + 2*(2*cos(x)^2)^(1/3))*(18*cos(x)^2 - 16)^(1/3))/(32*(2*cos(x)^2)^(2/3))

________________________________________________________________________________________