3.7.41 \(\int \cos ^3(x) \log (\sin (x)) \, dx\) [641]

Optimal. Leaf size=30 \[ -\sin (x)+\log (\sin (x)) \sin (x)+\frac {\sin ^3(x)}{9}-\frac {1}{3} \log (\sin (x)) \sin ^3(x) \]

[Out]

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

________________________________________________________________________________________

Rubi [A]
time = 0.02, antiderivative size = 30, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 4, integrand size = 8, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.500, Rules used = {2713, 2634, 12, 4441} \begin {gather*} \frac {\sin ^3(x)}{9}-\sin (x)-\frac {1}{3} \sin ^3(x) \log (\sin (x))+\sin (x) \log (\sin (x)) \end {gather*}

Antiderivative was successfully verified.

[In]

Int[Cos[x]^3*Log[Sin[x]],x]

[Out]

-Sin[x] + Log[Sin[x]]*Sin[x] + Sin[x]^3/9 - (Log[Sin[x]]*Sin[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 2634

Int[Log[u_]*(v_), x_Symbol] :> With[{w = IntHide[v, x]}, Dist[Log[u], w, x] - Int[SimplifyIntegrand[w*(D[u, x]
/u), x], x] /; InverseFunctionFreeQ[w, x]] /; InverseFunctionFreeQ[u, x]

Rule 2713

Int[sin[(c_.) + (d_.)*(x_)]^(n_), x_Symbol] :> Dist[-d^(-1), Subst[Int[Expand[(1 - x^2)^((n - 1)/2), x], x], x
, Cos[c + d*x]], x] /; FreeQ[{c, d}, x] && IGtQ[(n - 1)/2, 0]

Rule 4441

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

Rubi steps

\begin {align*} \int \cos ^3(x) \log (\sin (x)) \, dx &=\log (\sin (x)) \sin (x)-\frac {1}{3} \log (\sin (x)) \sin ^3(x)-\int \frac {1}{6} \cos (x) (5+\cos (2 x)) \, dx\\ &=\log (\sin (x)) \sin (x)-\frac {1}{3} \log (\sin (x)) \sin ^3(x)-\frac {1}{6} \int \cos (x) (5+\cos (2 x)) \, dx\\ &=\log (\sin (x)) \sin (x)-\frac {1}{3} \log (\sin (x)) \sin ^3(x)-\frac {1}{6} \text {Subst}\left (\int \left (6-2 x^2\right ) \, dx,x,\sin (x)\right )\\ &=-\sin (x)+\log (\sin (x)) \sin (x)+\frac {\sin ^3(x)}{9}-\frac {1}{3} \log (\sin (x)) \sin ^3(x)\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.01, size = 30, normalized size = 1.00 \begin {gather*} -\sin (x)+\log (\sin (x)) \sin (x)+\frac {\sin ^3(x)}{9}-\frac {1}{3} \log (\sin (x)) \sin ^3(x) \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[Cos[x]^3*Log[Sin[x]],x]

[Out]

-Sin[x] + Log[Sin[x]]*Sin[x] + Sin[x]^3/9 - (Log[Sin[x]]*Sin[x]^3)/3

________________________________________________________________________________________

Maple [C] Result contains complex when optimal does not.
time = 0.18, size = 197, normalized size = 6.57

method	result	size
default	\(-\frac {i \left (\frac {{\mathrm e}^{3 i x} \ln \left (i \left (-{\mathrm e}^{2 i x}+1\right ) {\mathrm e}^{-i x}\right )}{3}-\frac {{\mathrm e}^{3 i x}}{9}-\frac {11 \,{\mathrm e}^{i x}}{3}+3 \,{\mathrm e}^{i x} \ln \left (i \left (-{\mathrm e}^{2 i x}+1\right ) {\mathrm e}^{-i x}\right )-3 \,{\mathrm e}^{-i x} \ln \left (i \left (-{\mathrm e}^{2 i x}+1\right ) {\mathrm e}^{-i x}\right )+\frac {11 \,{\mathrm e}^{-i x}}{3}-\frac {{\mathrm e}^{-3 i x} \ln \left (i \left (-{\mathrm e}^{2 i x}+1\right ) {\mathrm e}^{-i x}\right )}{3}+\frac {{\mathrm e}^{-3 i x}}{9}-\frac {\ln \left (2\right ) {\mathrm e}^{3 i x}}{3}-3 \ln \left (2\right ) {\mathrm e}^{i x}+3 \,{\mathrm e}^{-i x} \ln \left (2\right )+\frac {\ln \left (2\right ) {\mathrm e}^{-3 i x}}{3}\right )}{8}\)	\(197\)
risch	\(\text {Expression too large to display}\)	\(577\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cos(x)^3*ln(sin(x)),x,method=_RETURNVERBOSE)

[Out]

-1/8*I*(1/3*exp(3*I*x)*ln(I*(-exp(I*x)^2+1)/exp(I*x))-1/9*exp(I*x)^3-11/3*exp(I*x)+3*exp(I*x)*ln(I*(-exp(I*x)^
2+1)/exp(I*x))-3*exp(-I*x)*ln(I*(-exp(I*x)^2+1)/exp(I*x))+11/3/exp(I*x)-1/3*exp(-3*I*x)*ln(I*(-exp(I*x)^2+1)/e
xp(I*x))+1/9/exp(I*x)^3-1/3*ln(2)*exp(I*x)^3-3*ln(2)*exp(I*x)+3*ln(2)/exp(I*x)+1/3*ln(2)/exp(I*x)^3)

________________________________________________________________________________________

Maxima [A]
time = 1.31, size = 25, normalized size = 0.83 \begin {gather*} \frac {1}{9} \, \sin \left (x\right )^{3} - \frac {1}{3} \, {\left (\sin \left (x\right )^{3} - 3 \, \sin \left (x\right )\right )} \log \left (\sin \left (x\right )\right ) - \sin \left (x\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(x)^3*log(sin(x)),x, algorithm="maxima")

[Out]

1/9*sin(x)^3 - 1/3*(sin(x)^3 - 3*sin(x))*log(sin(x)) - sin(x)

________________________________________________________________________________________

Fricas [A]
time = 0.52, size = 24, normalized size = 0.80 \begin {gather*} \frac {1}{3} \, {\left (\cos \left (x\right )^{2} + 2\right )} \log \left (\sin \left (x\right )\right ) \sin \left (x\right ) - \frac {1}{9} \, {\left (\cos \left (x\right )^{2} + 8\right )} \sin \left (x\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(x)^3*log(sin(x)),x, algorithm="fricas")

[Out]

1/3*(cos(x)^2 + 2)*log(sin(x))*sin(x) - 1/9*(cos(x)^2 + 8)*sin(x)

________________________________________________________________________________________

Sympy [A]
time = 0.84, size = 42, normalized size = 1.40 \begin {gather*} \frac {2 \log {\left (\sin {\left (x \right )} \right )} \sin ^{3}{\left (x \right )}}{3} + \log {\left (\sin {\left (x \right )} \right )} \sin {\left (x \right )} \cos ^{2}{\left (x \right )} - \frac {8 \sin ^{3}{\left (x \right )}}{9} - \sin {\left (x \right )} \cos ^{2}{\left (x \right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(x)**3*ln(sin(x)),x)

[Out]

2*log(sin(x))*sin(x)**3/3 + log(sin(x))*sin(x)*cos(x)**2 - 8*sin(x)**3/9 - sin(x)*cos(x)**2

________________________________________________________________________________________

Giac [A]
time = 1.39, size = 26, normalized size = 0.87 \begin {gather*} -\frac {1}{3} \, \log \left (\sin \left (x\right )\right ) \sin \left (x\right )^{3} + \frac {1}{9} \, \sin \left (x\right )^{3} + \log \left (\sin \left (x\right )\right ) \sin \left (x\right ) - \sin \left (x\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(x)^3*log(sin(x)),x, algorithm="giac")

[Out]

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

________________________________________________________________________________________

Mupad [F]
time = 0.00, size = -1, normalized size = -0.03 \begin {gather*} \int \ln \left (\sin \left (x\right )\right )\,{\cos \left (x\right )}^3 \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(log(sin(x))*cos(x)^3,x)

[Out]

int(log(sin(x))*cos(x)^3, x)

________________________________________________________________________________________