3.884 \(\int \frac{x \sqrt{1-x^2}}{x-x^3+\sqrt{1-x^2}} \, dx\)

Optimal. Leaf size=122 \[ -\frac{\tan ^{-1}\left (\frac{1-2 x^2}{\sqrt{3}}\right )}{\sqrt{3}}-\frac{\tan ^{-1}\left (\frac{x}{\sqrt{-\frac{-\sqrt{3}+i}{\sqrt{3}+i}} \sqrt{1-x^2}}\right )}{\sqrt{3}}-\frac{\tan ^{-1}\left (\frac{\sqrt{-\frac{-\sqrt{3}+i}{\sqrt{3}+i}} x}{\sqrt{1-x^2}}\right )}{\sqrt{3}}+\sin ^{-1}(x) \]

[Out]

ArcSin[x] - ArcTan[(1 - 2*x^2)/Sqrt[3]]/Sqrt[3] - ArcTan[x/(Sqrt[-((I - Sqrt[3])
/(I + Sqrt[3]))]*Sqrt[1 - x^2])]/Sqrt[3] - ArcTan[(Sqrt[-((I - Sqrt[3])/(I + Sqr
t[3]))]*x)/Sqrt[1 - x^2]]/Sqrt[3]

_______________________________________________________________________________________

Rubi [A]  time = 0.775428, antiderivative size = 149, normalized size of antiderivative = 1.22, number of steps used = 13, number of rules used = 10, integrand size = 33, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.303 \[ -\frac{x^2}{2}-\frac{\tan ^{-1}\left (\frac{1-2 x^2}{\sqrt{3}}\right )}{\sqrt{3}}-\frac{\tan ^{-1}\left (\frac{x}{\sqrt{-\frac{-\sqrt{3}+i}{\sqrt{3}+i}} \sqrt{1-x^2}}\right )}{\sqrt{3}}-\frac{\tan ^{-1}\left (\frac{\sqrt{-\frac{-\sqrt{3}+i}{\sqrt{3}+i}} x}{\sqrt{1-x^2}}\right )}{\sqrt{3}}+\frac{1}{4} (1-x)^2+\frac{1}{4} (x+1)^2+\sin ^{-1}(x) \]

Warning: Unable to verify antiderivative.

[In]  Int[(x*Sqrt[1 - x^2])/(x - x^3 + Sqrt[1 - x^2]),x]

[Out]

(1 - x)^2/4 - x^2/2 + (1 + x)^2/4 + ArcSin[x] - ArcTan[(1 - 2*x^2)/Sqrt[3]]/Sqrt
[3] - ArcTan[x/(Sqrt[-((I - Sqrt[3])/(I + Sqrt[3]))]*Sqrt[1 - x^2])]/Sqrt[3] - A
rcTan[(Sqrt[-((I - Sqrt[3])/(I + Sqrt[3]))]*x)/Sqrt[1 - x^2]]/Sqrt[3]

_______________________________________________________________________________________

Rubi in Sympy [F]  time = 0., size = 0, normalized size = 0. \[ \int \frac{x \sqrt{- x^{2} + 1}}{- x^{3} + x + \sqrt{- x^{2} + 1}}\, dx \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  rubi_integrate(x*(-x**2+1)**(1/2)/(x-x**3+(-x**2+1)**(1/2)),x)

[Out]

Integral(x*sqrt(-x**2 + 1)/(-x**3 + x + sqrt(-x**2 + 1)), x)

_______________________________________________________________________________________

Mathematica [B]  time = 6.56211, size = 2155, normalized size = 17.66 \[ \text{Result too large to show} \]

Antiderivative was successfully verified.

[In]  Integrate[(x*Sqrt[1 - x^2])/(x - x^3 + Sqrt[1 - x^2]),x]

[Out]

ArcSin[x] + ((-I + Sqrt[3])*ArcTan[(x*(7*I - Sqrt[3] + (8*I)*Sqrt[3]*x + (7*I)*x
^2 + Sqrt[3]*x^2))/(-6*I + 2*Sqrt[3] + 3*x - (11*I)*Sqrt[3]*x - (18*I)*x^2 - 2*S
qrt[3]*x^2 - 3*x^3 - (3*I)*Sqrt[3]*x^3 - (2*I)*Sqrt[2*(1 - I*Sqrt[3])]*Sqrt[1 -
x^2] - (2*I)*Sqrt[6*(1 - I*Sqrt[3])]*x*Sqrt[1 - x^2] - (2*I)*Sqrt[2*(1 - I*Sqrt[
3])]*x^2*Sqrt[1 - x^2])])/(2*Sqrt[6*(1 - I*Sqrt[3])]) - ((-I + Sqrt[3])*ArcTan[(
x*(7*I - Sqrt[3] - (8*I)*Sqrt[3]*x + (7*I)*x^2 + Sqrt[3]*x^2))/(6*I - 2*Sqrt[3]
+ 3*x - (11*I)*Sqrt[3]*x + (18*I)*x^2 + 2*Sqrt[3]*x^2 - 3*x^3 - (3*I)*Sqrt[3]*x^
3 + (2*I)*Sqrt[2*(1 - I*Sqrt[3])]*Sqrt[1 - x^2] - (2*I)*Sqrt[6*(1 - I*Sqrt[3])]*
x*Sqrt[1 - x^2] + (2*I)*Sqrt[2*(1 - I*Sqrt[3])]*x^2*Sqrt[1 - x^2])])/(2*Sqrt[6*(
1 - I*Sqrt[3])]) - ((I + Sqrt[3])*ArcTan[(x*(-7*I - Sqrt[3] - (8*I)*Sqrt[3]*x -
(7*I)*x^2 + Sqrt[3]*x^2))/(-6*I - 2*Sqrt[3] - 3*x - (11*I)*Sqrt[3]*x - (18*I)*x^
2 + 2*Sqrt[3]*x^2 + 3*x^3 - (3*I)*Sqrt[3]*x^3 - (2*I)*Sqrt[2*(1 + I*Sqrt[3])]*Sq
rt[1 - x^2] - (2*I)*Sqrt[6*(1 + I*Sqrt[3])]*x*Sqrt[1 - x^2] - (2*I)*Sqrt[2*(1 +
I*Sqrt[3])]*x^2*Sqrt[1 - x^2])])/(2*Sqrt[6*(1 + I*Sqrt[3])]) + ((I + Sqrt[3])*Ar
cTan[(x*(-7*I - Sqrt[3] + (8*I)*Sqrt[3]*x - (7*I)*x^2 + Sqrt[3]*x^2))/(6*I + 2*S
qrt[3] - 3*x - (11*I)*Sqrt[3]*x + (18*I)*x^2 - 2*Sqrt[3]*x^2 + 3*x^3 - (3*I)*Sqr
t[3]*x^3 + (2*I)*Sqrt[2*(1 + I*Sqrt[3])]*Sqrt[1 - x^2] - (2*I)*Sqrt[6*(1 + I*Sqr
t[3])]*x*Sqrt[1 - x^2] + (2*I)*Sqrt[2*(1 + I*Sqrt[3])]*x^2*Sqrt[1 - x^2])])/(2*S
qrt[6*(1 + I*Sqrt[3])]) + ((I/4)*(-I + Sqrt[3])*Log[(-I + Sqrt[3] - 2*x)^2*(I +
Sqrt[3] - 2*x)^2])/Sqrt[6*(1 - I*Sqrt[3])] - ((I/4)*(I + Sqrt[3])*Log[(-I + Sqrt
[3] - 2*x)^2*(I + Sqrt[3] - 2*x)^2])/Sqrt[6*(1 + I*Sqrt[3])] - ((I/4)*(-I + Sqrt
[3])*Log[(-I + Sqrt[3] + 2*x)^2*(I + Sqrt[3] + 2*x)^2])/Sqrt[6*(1 - I*Sqrt[3])]
+ ((I/4)*(I + Sqrt[3])*Log[(-I + Sqrt[3] + 2*x)^2*(I + Sqrt[3] + 2*x)^2])/Sqrt[6
*(1 + I*Sqrt[3])] - ((I/2)*Log[-1/2 - (I/2)*Sqrt[3] + x^2])/Sqrt[3] + ((I/2)*Log
[-1/2 + (I/2)*Sqrt[3] + x^2])/Sqrt[3] - ((I/4)*(-I + Sqrt[3])*Log[3*I + Sqrt[3]
- 3*x - (5*I)*Sqrt[3]*x + (10*I)*x^2 + 3*x^3 - (3*I)*Sqrt[3]*x^3 + I*x^4 - Sqrt[
3]*x^4 + (2*I)*Sqrt[2*(1 - I*Sqrt[3])]*Sqrt[1 - x^2] - (3*I)*Sqrt[6*(1 - I*Sqrt[
3])]*x*Sqrt[1 - x^2] + (5*I)*Sqrt[2*(1 - I*Sqrt[3])]*x^2*Sqrt[1 - x^2] - I*Sqrt[
6*(1 - I*Sqrt[3])]*x^3*Sqrt[1 - x^2]])/Sqrt[6*(1 - I*Sqrt[3])] + ((I/4)*(-I + Sq
rt[3])*Log[3*I + Sqrt[3] + 3*x + (5*I)*Sqrt[3]*x + (10*I)*x^2 - 3*x^3 + (3*I)*Sq
rt[3]*x^3 + I*x^4 - Sqrt[3]*x^4 + (2*I)*Sqrt[2*(1 - I*Sqrt[3])]*Sqrt[1 - x^2] +
(3*I)*Sqrt[6*(1 - I*Sqrt[3])]*x*Sqrt[1 - x^2] + (5*I)*Sqrt[2*(1 - I*Sqrt[3])]*x^
2*Sqrt[1 - x^2] + I*Sqrt[6*(1 - I*Sqrt[3])]*x^3*Sqrt[1 - x^2]])/Sqrt[6*(1 - I*Sq
rt[3])] - ((I/4)*(I + Sqrt[3])*Log[-3*I + Sqrt[3] + 3*x - (5*I)*Sqrt[3]*x - (10*
I)*x^2 - 3*x^3 - (3*I)*Sqrt[3]*x^3 - I*x^4 - Sqrt[3]*x^4 - (2*I)*Sqrt[2*(1 + I*S
qrt[3])]*Sqrt[1 - x^2] - (3*I)*Sqrt[6*(1 + I*Sqrt[3])]*x*Sqrt[1 - x^2] - (5*I)*S
qrt[2*(1 + I*Sqrt[3])]*x^2*Sqrt[1 - x^2] - I*Sqrt[6*(1 + I*Sqrt[3])]*x^3*Sqrt[1
- x^2]])/Sqrt[6*(1 + I*Sqrt[3])] + ((I/4)*(I + Sqrt[3])*Log[-3*I + Sqrt[3] - 3*x
+ (5*I)*Sqrt[3]*x - (10*I)*x^2 + 3*x^3 + (3*I)*Sqrt[3]*x^3 - I*x^4 - Sqrt[3]*x^
4 - (2*I)*Sqrt[2*(1 + I*Sqrt[3])]*Sqrt[1 - x^2] + (3*I)*Sqrt[6*(1 + I*Sqrt[3])]*
x*Sqrt[1 - x^2] - (5*I)*Sqrt[2*(1 + I*Sqrt[3])]*x^2*Sqrt[1 - x^2] + I*Sqrt[6*(1
+ I*Sqrt[3])]*x^3*Sqrt[1 - x^2]])/Sqrt[6*(1 + I*Sqrt[3])]

_______________________________________________________________________________________

Maple [B]  time = 0.082, size = 234, normalized size = 1.9 \[{\frac{i}{6}}\sqrt{3}\ln \left ({\frac{1}{{x}^{2}} \left ( \sqrt{-{x}^{2}+1}-1 \right ) ^{2}}+{\frac{i\sqrt{3}+1}{x} \left ( \sqrt{-{x}^{2}+1}-1 \right ) }-1 \right ) -{\frac{i}{6}}\sqrt{3}\ln \left ({\frac{1}{{x}^{2}} \left ( \sqrt{-{x}^{2}+1}-1 \right ) ^{2}}+{\frac{1-i\sqrt{3}}{x} \left ( \sqrt{-{x}^{2}+1}-1 \right ) }-1 \right ) -2\,\arctan \left ({\frac{\sqrt{-{x}^{2}+1}-1}{x}} \right ) +{\frac{i}{6}}\sqrt{3}\ln \left ({\frac{1}{{x}^{2}} \left ( \sqrt{-{x}^{2}+1}-1 \right ) ^{2}}+{\frac{-1+i\sqrt{3}}{x} \left ( \sqrt{-{x}^{2}+1}-1 \right ) }-1 \right ) -{\frac{i}{6}}\sqrt{3}\ln \left ({\frac{1}{{x}^{2}} \left ( \sqrt{-{x}^{2}+1}-1 \right ) ^{2}}+{\frac{-i\sqrt{3}-1}{x} \left ( \sqrt{-{x}^{2}+1}-1 \right ) }-1 \right ) +{\frac{\sqrt{3}}{3}\arctan \left ({\frac{ \left ( 2\,{x}^{2}-1 \right ) \sqrt{3}}{3}} \right ) } \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  int(x*(-x^2+1)^(1/2)/(x-x^3+(-x^2+1)^(1/2)),x)

[Out]

1/6*I*3^(1/2)*ln(((-x^2+1)^(1/2)-1)^2/x^2+(I*3^(1/2)+1)*((-x^2+1)^(1/2)-1)/x-1)-
1/6*I*3^(1/2)*ln(((-x^2+1)^(1/2)-1)^2/x^2+(1-I*3^(1/2))*((-x^2+1)^(1/2)-1)/x-1)-
2*arctan(((-x^2+1)^(1/2)-1)/x)+1/6*I*3^(1/2)*ln(((-x^2+1)^(1/2)-1)^2/x^2+(-1+I*3
^(1/2))*((-x^2+1)^(1/2)-1)/x-1)-1/6*I*3^(1/2)*ln(((-x^2+1)^(1/2)-1)^2/x^2+(-I*3^
(1/2)-1)*((-x^2+1)^(1/2)-1)/x-1)+1/3*3^(1/2)*arctan(1/3*(2*x^2-1)*3^(1/2))

_______________________________________________________________________________________

Maxima [F]  time = 0., size = 0, normalized size = 0. \[ \frac{1}{2} \, x^{2} + \int -\frac{x^{4} - x^{2}}{x^{3} - x - \sqrt{x + 1} \sqrt{-x + 1}}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(-sqrt(-x^2 + 1)*x/(x^3 - x - sqrt(-x^2 + 1)),x, algorithm="maxima")

[Out]

1/2*x^2 + integrate(-(x^4 - x^2)/(x^3 - x - sqrt(x + 1)*sqrt(-x + 1)), x)

_______________________________________________________________________________________

Fricas [A]  time = 0.268776, size = 151, normalized size = 1.24 \[ -\frac{1}{3} \, \sqrt{3}{\left (2 \, \sqrt{3} \arctan \left (\frac{\sqrt{-x^{2} + 1} - 1}{x}\right ) - \arctan \left (\frac{1}{3} \, \sqrt{3}{\left (2 \, x^{2} - 1\right )}\right ) + \arctan \left (-\frac{2 \, \sqrt{3}{\left (2 \, x^{2} - 1\right )} \sqrt{-x^{2} + 1} + \sqrt{3}{\left (2 \, x^{4} - 5 \, x^{2} + 2\right )}}{3 \,{\left (2 \, x^{3} -{\left (x^{3} - 2 \, x\right )} \sqrt{-x^{2} + 1} - 2 \, x\right )}}\right )\right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(-sqrt(-x^2 + 1)*x/(x^3 - x - sqrt(-x^2 + 1)),x, algorithm="fricas")

[Out]

-1/3*sqrt(3)*(2*sqrt(3)*arctan((sqrt(-x^2 + 1) - 1)/x) - arctan(1/3*sqrt(3)*(2*x
^2 - 1)) + arctan(-1/3*(2*sqrt(3)*(2*x^2 - 1)*sqrt(-x^2 + 1) + sqrt(3)*(2*x^4 -
5*x^2 + 2))/(2*x^3 - (x^3 - 2*x)*sqrt(-x^2 + 1) - 2*x)))

_______________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(x*(-x**2+1)**(1/2)/(x-x**3+(-x**2+1)**(1/2)),x)

[Out]

Timed out

_______________________________________________________________________________________

GIAC/XCAS [A]  time = 0.294657, size = 261, normalized size = 2.14 \[ \frac{1}{2} \, \pi{\rm sign}\left (x\right ) - \frac{1}{6} \, \sqrt{3}{\left (\pi{\rm sign}\left (x\right ) + 2 \, \arctan \left (-\frac{\sqrt{3} x{\left (\frac{\sqrt{-x^{2} + 1} - 1}{x} + \frac{{\left (\sqrt{-x^{2} + 1} - 1\right )}^{2}}{x^{2}} - 1\right )}}{3 \,{\left (\sqrt{-x^{2} + 1} - 1\right )}}\right )\right )} - \frac{1}{6} \, \sqrt{3}{\left (\pi{\rm sign}\left (x\right ) + 2 \, \arctan \left (\frac{\sqrt{3} x{\left (\frac{\sqrt{-x^{2} + 1} - 1}{x} - \frac{{\left (\sqrt{-x^{2} + 1} - 1\right )}^{2}}{x^{2}} + 1\right )}}{3 \,{\left (\sqrt{-x^{2} + 1} - 1\right )}}\right )\right )} + \frac{1}{3} \, \sqrt{3} \arctan \left (\frac{1}{3} \, \sqrt{3}{\left (2 \, x^{2} - 1\right )}\right ) + \arctan \left (-\frac{x{\left (\frac{{\left (\sqrt{-x^{2} + 1} - 1\right )}^{2}}{x^{2}} - 1\right )}}{2 \,{\left (\sqrt{-x^{2} + 1} - 1\right )}}\right ) \]

Verification of antiderivative is not currently implemented for this CAS.

[In]  integrate(-sqrt(-x^2 + 1)*x/(x^3 - x - sqrt(-x^2 + 1)),x, algorithm="giac")

[Out]

1/2*pi*sign(x) - 1/6*sqrt(3)*(pi*sign(x) + 2*arctan(-1/3*sqrt(3)*x*((sqrt(-x^2 +
1) - 1)/x + (sqrt(-x^2 + 1) - 1)^2/x^2 - 1)/(sqrt(-x^2 + 1) - 1))) - 1/6*sqrt(3
)*(pi*sign(x) + 2*arctan(1/3*sqrt(3)*x*((sqrt(-x^2 + 1) - 1)/x - (sqrt(-x^2 + 1)
- 1)^2/x^2 + 1)/(sqrt(-x^2 + 1) - 1))) + 1/3*sqrt(3)*arctan(1/3*sqrt(3)*(2*x^2
- 1)) + arctan(-1/2*x*((sqrt(-x^2 + 1) - 1)^2/x^2 - 1)/(sqrt(-x^2 + 1) - 1))