3.139 \(\int \cos ^7(c+d x) (a+a \sin (c+d x))^{7/2} \, dx\)

Optimal. Leaf size=97 \[ -\frac {2 (a \sin (c+d x)+a)^{21/2}}{21 a^7 d}+\frac {12 (a \sin (c+d x)+a)^{19/2}}{19 a^6 d}-\frac {24 (a \sin (c+d x)+a)^{17/2}}{17 a^5 d}+\frac {16 (a \sin (c+d x)+a)^{15/2}}{15 a^4 d} \]

[Out]

16/15*(a+a*sin(d*x+c))^(15/2)/a^4/d-24/17*(a+a*sin(d*x+c))^(17/2)/a^5/d+12/19*(a+a*sin(d*x+c))^(19/2)/a^6/d-2/
21*(a+a*sin(d*x+c))^(21/2)/a^7/d

________________________________________________________________________________________

Rubi [A]  time = 0.08, antiderivative size = 97, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 2, integrand size = 23, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.087, Rules used = {2667, 43} \[ -\frac {2 (a \sin (c+d x)+a)^{21/2}}{21 a^7 d}+\frac {12 (a \sin (c+d x)+a)^{19/2}}{19 a^6 d}-\frac {24 (a \sin (c+d x)+a)^{17/2}}{17 a^5 d}+\frac {16 (a \sin (c+d x)+a)^{15/2}}{15 a^4 d} \]

Antiderivative was successfully verified.

[In]

Int[Cos[c + d*x]^7*(a + a*Sin[c + d*x])^(7/2),x]

[Out]

(16*(a + a*Sin[c + d*x])^(15/2))/(15*a^4*d) - (24*(a + a*Sin[c + d*x])^(17/2))/(17*a^5*d) + (12*(a + a*Sin[c +
d*x])^(19/2))/(19*a^6*d) - (2*(a + a*Sin[c + d*x])^(21/2))/(21*a^7*d)

Rule 43

Int[((a_.) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d
*x)^n, x], x] /; FreeQ[{a, b, c, d, n}, x] && NeQ[b*c - a*d, 0] && IGtQ[m, 0] && ( !IntegerQ[n] || (EqQ[c, 0]
&& LeQ[7*m + 4*n + 4, 0]) || LtQ[9*m + 5*(n + 1), 0] || GtQ[m + n + 2, 0])

Rule 2667

Int[cos[(e_.) + (f_.)*(x_)]^(p_.)*((a_) + (b_.)*sin[(e_.) + (f_.)*(x_)])^(m_.), x_Symbol] :> Dist[1/(b^p*f), S
ubst[Int[(a + x)^(m + (p - 1)/2)*(a - x)^((p - 1)/2), x], x, b*Sin[e + f*x]], x] /; FreeQ[{a, b, e, f, m}, x]
&& IntegerQ[(p - 1)/2] && EqQ[a^2 - b^2, 0] && (GeQ[p, -1] ||  !IntegerQ[m + 1/2])

Rubi steps

\begin {align*} \int \cos ^7(c+d x) (a+a \sin (c+d x))^{7/2} \, dx &=\frac {\operatorname {Subst}\left (\int (a-x)^3 (a+x)^{13/2} \, dx,x,a \sin (c+d x)\right )}{a^7 d}\\ &=\frac {\operatorname {Subst}\left (\int \left (8 a^3 (a+x)^{13/2}-12 a^2 (a+x)^{15/2}+6 a (a+x)^{17/2}-(a+x)^{19/2}\right ) \, dx,x,a \sin (c+d x)\right )}{a^7 d}\\ &=\frac {16 (a+a \sin (c+d x))^{15/2}}{15 a^4 d}-\frac {24 (a+a \sin (c+d x))^{17/2}}{17 a^5 d}+\frac {12 (a+a \sin (c+d x))^{19/2}}{19 a^6 d}-\frac {2 (a+a \sin (c+d x))^{21/2}}{21 a^7 d}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.63, size = 64, normalized size = 0.66 \[ -\frac {2 a^3 (\sin (c+d x)+1)^7 \left (1615 \sin ^3(c+d x)-5865 \sin ^2(c+d x)+7365 \sin (c+d x)-3243\right ) \sqrt {a (\sin (c+d x)+1)}}{33915 d} \]

Antiderivative was successfully verified.

[In]

Integrate[Cos[c + d*x]^7*(a + a*Sin[c + d*x])^(7/2),x]

[Out]

(-2*a^3*(1 + Sin[c + d*x])^7*Sqrt[a*(1 + Sin[c + d*x])]*(-3243 + 7365*Sin[c + d*x] - 5865*Sin[c + d*x]^2 + 161
5*Sin[c + d*x]^3))/(33915*d)

________________________________________________________________________________________

fricas [A]  time = 0.78, size = 154, normalized size = 1.59 \[ \frac {2 \, {\left (1615 \, a^{3} \cos \left (d x + c\right )^{10} - 8300 \, a^{3} \cos \left (d x + c\right )^{8} + 264 \, a^{3} \cos \left (d x + c\right )^{6} + 448 \, a^{3} \cos \left (d x + c\right )^{4} + 1024 \, a^{3} \cos \left (d x + c\right )^{2} + 8192 \, a^{3} - 8 \, {\left (680 \, a^{3} \cos \left (d x + c\right )^{8} - 429 \, a^{3} \cos \left (d x + c\right )^{6} - 504 \, a^{3} \cos \left (d x + c\right )^{4} - 640 \, a^{3} \cos \left (d x + c\right )^{2} - 1024 \, a^{3}\right )} \sin \left (d x + c\right )\right )} \sqrt {a \sin \left (d x + c\right ) + a}}{33915 \, d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)^7*(a+a*sin(d*x+c))^(7/2),x, algorithm="fricas")

[Out]

2/33915*(1615*a^3*cos(d*x + c)^10 - 8300*a^3*cos(d*x + c)^8 + 264*a^3*cos(d*x + c)^6 + 448*a^3*cos(d*x + c)^4
+ 1024*a^3*cos(d*x + c)^2 + 8192*a^3 - 8*(680*a^3*cos(d*x + c)^8 - 429*a^3*cos(d*x + c)^6 - 504*a^3*cos(d*x +
c)^4 - 640*a^3*cos(d*x + c)^2 - 1024*a^3)*sin(d*x + c))*sqrt(a*sin(d*x + c) + a)/d

________________________________________________________________________________________

giac [B]  time = 6.14, size = 669, normalized size = 6.90 \[ \text {result too large to display} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)^7*(a+a*sin(d*x+c))^(7/2),x, algorithm="giac")

[Out]

1/7449361920*sqrt(2)*(765765*a^3*cos(1/4*pi + 19/2*d*x + 19/2*c)*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d - 77597
52*a^3*cos(1/4*pi + 15/2*d*x + 15/2*c)*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d - 91265265*a^3*cos(1/4*pi + 11/2*
d*x + 11/2*c)*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d - 365816880*a^3*cos(1/4*pi + 7/2*d*x + 7/2*c)*sgn(cos(-1/4
*pi + 1/2*d*x + 1/2*c))/d - 882671790*a^3*cos(1/4*pi + 3/2*d*x + 3/2*c)*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d
+ 692835*a^3*cos(-1/4*pi + 21/2*d*x + 21/2*c)*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d - 6846840*a^3*cos(-1/4*pi
+ 17/2*d*x + 17/2*c)*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d - 77224455*a^3*cos(-1/4*pi + 13/2*d*x + 13/2*c)*sgn
(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d - 284524240*a^3*cos(-1/4*pi + 9/2*d*x + 9/2*c)*sgn(cos(-1/4*pi + 1/2*d*x +
1/2*c))/d - 529603074*a^3*cos(-1/4*pi + 5/2*d*x + 5/2*c)*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))/d - 5135130*a^3*s
gn(cos(-1/4*pi + 1/2*d*x + 1/2*c))*sin(1/4*pi + 17/2*d*x + 17/2*c)/d - 24622290*a^3*sgn(cos(-1/4*pi + 1/2*d*x
+ 1/2*c))*sin(1/4*pi + 13/2*d*x + 13/2*c)/d + 12932920*a^3*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))*sin(1/4*pi + 9/
2*d*x + 9/2*c)/d + 488864376*a^3*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))*sin(1/4*pi + 5/2*d*x + 5/2*c)/d + 5296030
740*a^3*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))*sin(1/4*pi + 1/2*d*x + 1/2*c)/d - 4594590*a^3*sgn(cos(-1/4*pi + 1/
2*d*x + 1/2*c))*sin(-1/4*pi + 19/2*d*x + 19/2*c)/d - 21339318*a^3*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))*sin(-1/4
*pi + 15/2*d*x + 15/2*c)/d + 10581480*a^3*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))*sin(-1/4*pi + 11/2*d*x + 11/2*c)
/d + 349188840*a^3*sgn(cos(-1/4*pi + 1/2*d*x + 1/2*c))*sin(-1/4*pi + 7/2*d*x + 7/2*c)/d + 1765343580*a^3*sgn(c
os(-1/4*pi + 1/2*d*x + 1/2*c))*sin(-1/4*pi + 3/2*d*x + 3/2*c)/d)*sqrt(a)

________________________________________________________________________________________

maple [A]  time = 0.22, size = 57, normalized size = 0.59 \[ \frac {2 \left (a +a \sin \left (d x +c \right )\right )^{\frac {15}{2}} \left (1615 \left (\cos ^{2}\left (d x +c \right )\right ) \sin \left (d x +c \right )-5865 \left (\cos ^{2}\left (d x +c \right )\right )-8980 \sin \left (d x +c \right )+9108\right )}{33915 a^{4} d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cos(d*x+c)^7*(a+a*sin(d*x+c))^(7/2),x)

[Out]

2/33915/a^4*(a+a*sin(d*x+c))^(15/2)*(1615*cos(d*x+c)^2*sin(d*x+c)-5865*cos(d*x+c)^2-8980*sin(d*x+c)+9108)/d

________________________________________________________________________________________

maxima [A]  time = 0.84, size = 72, normalized size = 0.74 \[ -\frac {2 \, {\left (1615 \, {\left (a \sin \left (d x + c\right ) + a\right )}^{\frac {21}{2}} - 10710 \, {\left (a \sin \left (d x + c\right ) + a\right )}^{\frac {19}{2}} a + 23940 \, {\left (a \sin \left (d x + c\right ) + a\right )}^{\frac {17}{2}} a^{2} - 18088 \, {\left (a \sin \left (d x + c\right ) + a\right )}^{\frac {15}{2}} a^{3}\right )}}{33915 \, a^{7} d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)^7*(a+a*sin(d*x+c))^(7/2),x, algorithm="maxima")

[Out]

-2/33915*(1615*(a*sin(d*x + c) + a)^(21/2) - 10710*(a*sin(d*x + c) + a)^(19/2)*a + 23940*(a*sin(d*x + c) + a)^
(17/2)*a^2 - 18088*(a*sin(d*x + c) + a)^(15/2)*a^3)/(a^7*d)

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.01 \[ \int {\cos \left (c+d\,x\right )}^7\,{\left (a+a\,\sin \left (c+d\,x\right )\right )}^{7/2} \,d x \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cos(c + d*x)^7*(a + a*sin(c + d*x))^(7/2),x)

[Out]

int(cos(c + d*x)^7*(a + a*sin(c + d*x))^(7/2), x)

________________________________________________________________________________________

sympy [F(-1)]  time = 0.00, size = 0, normalized size = 0.00 \[ \text {Timed out} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(d*x+c)**7*(a+a*sin(d*x+c))**(7/2),x)

[Out]

Timed out

________________________________________________________________________________________