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

Wolfram Mathematica Online Integrator
The world's only full-power integration solver
∫
(Sqrt[(1 + x)/(1 - x)]*((-1 + x)*Sqrt[1 + x] + 2*Sqrt[1 - x]*ArcSin[Sqrt[1 + x]/Sqrt[2]]))/Sqrt[1 + x]

Integrate[Sqrt[(1 + x)/(1 - x)], x] ==
(Sqrt[(1 + x)/(1 - x)]*((-1 + x)*Sqrt[1 + x] + 2*Sqrt[1 - x]*ArcSin[Sqrt[1 + x]/Sqrt[2]]))/ Sqrt[1 + x] 

               1 + x
Integrate[Sqrt[-----], x] == 
               1 - x

      1 + x
(Sqrt[-----] ((-1 + x) Sqrt[1 + x] + 
      1 - x
 
                           Sqrt[1 + x]
      2 Sqrt[1 - x] ArcSin[-----------])) / 
                             Sqrt[2]
 
  Sqrt[1 + x]
Time to compute: 0.08 second
Spread the word: