integrals.wolfram.com   Use one of Mathematica's 2500+ functions FREE online

Wolfram Mathematica Online Integrator
The world's only full-power integration solver
∫

((-2*x*Cot[(a*x)/2])/a + (4*Log[Sin[(a*x)/2]])/a^2)/2


Integrate[x/(1 - Cos[a*x]), x] ==
((-2*x*Cot[(a*x)/2])/a + (4*Log[Sin[(a*x)/2]])/a^2)/2



               x
Integrate[------------, x] == 
          1 - Cos[a x]

         a x              a x
-2 x Cot[---]   4 Log[Sin[---]]
          2                2
------------- + ---------------
      a                2
                      a
-------------------------------
               2

Time to compute: 0.02 second

Spread the word: