3.644 \(\int \frac{\cos (x) \log (\sin (x))}{(1+\cos (x))^2} \, dx\)

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

[Out]

(-2*x)/3 - Sin[x]/(9*(1 + Cos[x])^2) + (8*Sin[x])/(9*(1 + Cos[x])) - (Log[Sin[x]
]*Sin[x])/(3*(1 + Cos[x])^2) + (2*Log[Sin[x]]*Sin[x])/(3*(1 + Cos[x]))

_______________________________________________________________________________________

Rubi [A]  time = 0.192911, antiderivative size = 60, normalized size of antiderivative = 1., number of steps used = 6, number of rules used = 7, integrand size = 12, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.583 \[ -\frac{2 x}{3}+\frac{8 \sin (x)}{9 (\cos (x)+1)}-\frac{\sin (x)}{9 (\cos (x)+1)^2}+\frac{2 \sin (x) \log (\sin (x))}{3 (\cos (x)+1)}-\frac{\sin (x) \log (\sin (x))}{3 (\cos (x)+1)^2} \]

Antiderivative was successfully verified.

[In]  Int[(Cos[x]*Log[Sin[x]])/(1 + Cos[x])^2,x]

[Out]

(-2*x)/3 - Sin[x]/(9*(1 + Cos[x])^2) + (8*Sin[x])/(9*(1 + Cos[x])) - (Log[Sin[x]
]*Sin[x])/(3*(1 + Cos[x])^2) + (2*Log[Sin[x]]*Sin[x])/(3*(1 + Cos[x]))

_______________________________________________________________________________________

Rubi in Sympy [F]  time = 0., size = 0, normalized size = 0. \[ - \frac{\int \frac{\cos{\left (x \right )} + \cos{\left (2 x \right )} + 1}{\left (\cos{\left (x \right )} + 1\right )^{2}}\, dx}{3} + \frac{2 \log{\left (\sin{\left (x \right )} \right )} \sin{\left (x \right )}}{3 \left (\cos{\left (x \right )} + 1\right )} - \frac{\log{\left (\sin{\left (x \right )} \right )} \sin{\left (x \right )}}{3 \left (\cos{\left (x \right )} + 1\right )^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  rubi_integrate(cos(x)*ln(sin(x))/(1+cos(x))**2,x)

[Out]

-Integral((cos(x) + cos(2*x) + 1)/(cos(x) + 1)**2, x)/3 + 2*log(sin(x))*sin(x)/(
3*(cos(x) + 1)) - log(sin(x))*sin(x)/(3*(cos(x) + 1)**2)

_______________________________________________________________________________________

Mathematica [A]  time = 0.195948, size = 56, normalized size = 0.93 \[ -\frac{1}{18} \sec ^3\left (\frac{x}{2}\right ) \left (9 x \cos \left (\frac{x}{2}\right )+3 x \cos \left (\frac{3 x}{2}\right )-\sin \left (\frac{x}{2}\right ) (3 \log (\sin (x))+\cos (x) (6 \log (\sin (x))+8)+7)\right ) \]

Antiderivative was successfully verified.

[In]  Integrate[(Cos[x]*Log[Sin[x]])/(1 + Cos[x])^2,x]

[Out]

-(Sec[x/2]^3*(9*x*Cos[x/2] + 3*x*Cos[(3*x)/2] - (7 + 3*Log[Sin[x]] + Cos[x]*(8 +
6*Log[Sin[x]]))*Sin[x/2]))/18

_______________________________________________________________________________________

Maple [B]  time = 0.141, size = 106, normalized size = 1.8 \[ -{\frac{1}{9\, \left ( \sin \left ( x \right ) \right ) ^{3}} \left ( 12\,\sin \left ( x \right ) \left ( \cos \left ( x \right ) \right ) ^{2}\arctan \left ({\frac{\cos \left ( x \right ) -1}{\sin \left ( x \right ) }} \right ) -6\, \left ( \cos \left ( x \right ) \right ) ^{3}\ln \left ( 2 \right ) -6\, \left ( \cos \left ( x \right ) \right ) ^{3}\ln \left ( 1/2\,\sin \left ( x \right ) \right ) -8\, \left ( \cos \left ( x \right ) \right ) ^{3}+9\, \left ( \cos \left ( x \right ) \right ) ^{2}\ln \left ( 2 \right ) +9\, \left ( \cos \left ( x \right ) \right ) ^{2}\ln \left ( 1/2\,\sin \left ( x \right ) \right ) -12\,\arctan \left ({\frac{\cos \left ( x \right ) -1}{\sin \left ( x \right ) }} \right ) \sin \left ( x \right ) +9\, \left ( \cos \left ( x \right ) \right ) ^{2}+6\,\cos \left ( x \right ) -3\,\ln \left ( 2 \right ) -3\,\ln \left ( 1/2\,\sin \left ( x \right ) \right ) -7 \right ) } \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  int(cos(x)*ln(sin(x))/(1+cos(x))^2,x)

[Out]

-1/9*(12*sin(x)*cos(x)^2*arctan((cos(x)-1)/sin(x))-6*cos(x)^3*ln(2)-6*cos(x)^3*l
n(1/2*sin(x))-8*cos(x)^3+9*cos(x)^2*ln(2)+9*cos(x)^2*ln(1/2*sin(x))-12*arctan((c
os(x)-1)/sin(x))*sin(x)+9*cos(x)^2+6*cos(x)-3*ln(2)-3*ln(1/2*sin(x))-7)/sin(x)^3

_______________________________________________________________________________________

Maxima [A]  time = 1.58134, size = 116, normalized size = 1.93 \[ \frac{1}{6} \,{\left (\frac{3 \, \sin \left (x\right )}{\cos \left (x\right ) + 1} - \frac{\sin \left (x\right )^{3}}{{\left (\cos \left (x\right ) + 1\right )}^{3}}\right )} \log \left (\frac{2 \, \sin \left (x\right )}{{\left (\frac{\sin \left (x\right )^{2}}{{\left (\cos \left (x\right ) + 1\right )}^{2}} + 1\right )}{\left (\cos \left (x\right ) + 1\right )}}\right ) + \frac{5 \, \sin \left (x\right )}{6 \,{\left (\cos \left (x\right ) + 1\right )}} - \frac{\sin \left (x\right )^{3}}{18 \,{\left (\cos \left (x\right ) + 1\right )}^{3}} - \frac{4}{3} \, \arctan \left (\frac{\sin \left (x\right )}{\cos \left (x\right ) + 1}\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(cos(x)*log(sin(x))/(cos(x) + 1)^2,x, algorithm="maxima")

[Out]

1/6*(3*sin(x)/(cos(x) + 1) - sin(x)^3/(cos(x) + 1)^3)*log(2*sin(x)/((sin(x)^2/(c
os(x) + 1)^2 + 1)*(cos(x) + 1))) + 5/6*sin(x)/(cos(x) + 1) - 1/18*sin(x)^3/(cos(
x) + 1)^3 - 4/3*arctan(sin(x)/(cos(x) + 1))

_______________________________________________________________________________________

Fricas [A]  time = 0.218074, size = 72, normalized size = 1.2 \[ -\frac{6 \, x \cos \left (x\right )^{2} - 3 \,{\left (2 \, \cos \left (x\right ) + 1\right )} \log \left (\sin \left (x\right )\right ) \sin \left (x\right ) + 12 \, x \cos \left (x\right ) -{\left (8 \, \cos \left (x\right ) + 7\right )} \sin \left (x\right ) + 6 \, x}{9 \,{\left (\cos \left (x\right )^{2} + 2 \, \cos \left (x\right ) + 1\right )}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(cos(x)*log(sin(x))/(cos(x) + 1)^2,x, algorithm="fricas")

[Out]

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

_______________________________________________________________________________________

Sympy [A]  time = 26.6043, size = 107, normalized size = 1.78 \[ - \frac{2 x}{3} + \frac{\log{\left (\tan ^{2}{\left (\frac{x}{2} \right )} + 1 \right )} \tan ^{3}{\left (\frac{x}{2} \right )}}{6} - \frac{\log{\left (\tan ^{2}{\left (\frac{x}{2} \right )} + 1 \right )} \tan{\left (\frac{x}{2} \right )}}{2} - \frac{\log{\left (\tan{\left (\frac{x}{2} \right )} \right )} \tan ^{3}{\left (\frac{x}{2} \right )}}{6} + \frac{\log{\left (\tan{\left (\frac{x}{2} \right )} \right )} \tan{\left (\frac{x}{2} \right )}}{2} - \frac{\log{\left (2 \right )} \tan ^{3}{\left (\frac{x}{2} \right )}}{6} - \frac{\tan ^{3}{\left (\frac{x}{2} \right )}}{18} + \frac{\log{\left (2 \right )} \tan{\left (\frac{x}{2} \right )}}{2} + \frac{5 \tan{\left (\frac{x}{2} \right )}}{6} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(cos(x)*ln(sin(x))/(1+cos(x))**2,x)

[Out]

-2*x/3 + log(tan(x/2)**2 + 1)*tan(x/2)**3/6 - log(tan(x/2)**2 + 1)*tan(x/2)/2 -
log(tan(x/2))*tan(x/2)**3/6 + log(tan(x/2))*tan(x/2)/2 - log(2)*tan(x/2)**3/6 -
tan(x/2)**3/18 + log(2)*tan(x/2)/2 + 5*tan(x/2)/6

_______________________________________________________________________________________

GIAC/XCAS [A]  time = 0.268546, size = 49, normalized size = 0.82 \[ -\frac{1}{18} \, \tan \left (\frac{1}{2} \, x\right )^{3} - \frac{1}{6} \,{\left (\tan \left (\frac{1}{2} \, x\right )^{3} - 3 \, \tan \left (\frac{1}{2} \, x\right )\right )}{\rm ln}\left (\sin \left (x\right )\right ) - \frac{2}{3} \, x + \frac{5}{6} \, \tan \left (\frac{1}{2} \, x\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(cos(x)*log(sin(x))/(cos(x) + 1)^2,x, algorithm="giac")

[Out]

-1/18*tan(1/2*x)^3 - 1/6*(tan(1/2*x)^3 - 3*tan(1/2*x))*ln(sin(x)) - 2/3*x + 5/6*
tan(1/2*x)