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

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

________________________________________________________________________________________

Rubi [C]  time = 1.00, antiderivative size = 373, normalized size of antiderivative = 12.43, number of steps used = 15, number of rules used = 8, integrand size = 29, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.276, Rules used = {2056, 6725, 716, 1098, 934, 168, 538, 537} \begin {gather*} \frac {\sqrt {x} \sqrt {-\left (\left (1-\sqrt {5}\right ) x\right )-2} \sqrt {\frac {\left (1+\sqrt {5}\right ) x+2}{\left (1-\sqrt {5}\right ) x+2}} F\left (\sin ^{-1}\left (\frac {\sqrt {2} \sqrt [4]{5} \sqrt {x}}{\sqrt {-\left (\left (1-\sqrt {5}\right ) x\right )-2}}\right )|\frac {1}{10} \left (5-\sqrt {5}\right )\right )}{\sqrt [4]{5} \sqrt {\frac {1}{\left (1-\sqrt {5}\right ) x+2}} \sqrt {x^3-x^2-x}}-\frac {\sqrt {3+\sqrt {5}} \sqrt {x} \sqrt {2 x+\sqrt {5}-1} \sqrt {1-\frac {2 x}{1+\sqrt {5}}} \Pi \left (\frac {1}{2} \left (-1-\sqrt {5}\right );\sin ^{-1}\left (\sqrt {\frac {2}{1+\sqrt {5}}} \sqrt {x}\right )|\frac {1}{2} \left (-3-\sqrt {5}\right )\right )}{\sqrt {x^3-x^2-x}}-\frac {\sqrt {3+\sqrt {5}} \sqrt {x} \sqrt {2 x+\sqrt {5}-1} \sqrt {1-\frac {2 x}{1+\sqrt {5}}} \Pi \left (\frac {1}{2} \left (1+\sqrt {5}\right );\sin ^{-1}\left (\sqrt {\frac {2}{1+\sqrt {5}}} \sqrt {x}\right )|\frac {1}{2} \left (-3-\sqrt {5}\right )\right )}{\sqrt {x^3-x^2-x}} \end {gather*}

Warning: Unable to verify antiderivative.

[In]

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

[Out]

(Sqrt[x]*Sqrt[-2 - (1 - Sqrt[5])*x]*Sqrt[(2 + (1 + Sqrt[5])*x)/(2 + (1 - Sqrt[5])*x)]*EllipticF[ArcSin[(Sqrt[2
]*5^(1/4)*Sqrt[x])/Sqrt[-2 - (1 - Sqrt[5])*x]], (5 - Sqrt[5])/10])/(5^(1/4)*Sqrt[(2 + (1 - Sqrt[5])*x)^(-1)]*S
qrt[-x - x^2 + x^3]) - (Sqrt[3 + Sqrt[5]]*Sqrt[x]*Sqrt[-1 + Sqrt[5] + 2*x]*Sqrt[1 - (2*x)/(1 + Sqrt[5])]*Ellip
ticPi[(-1 - Sqrt[5])/2, ArcSin[Sqrt[2/(1 + Sqrt[5])]*Sqrt[x]], (-3 - Sqrt[5])/2])/Sqrt[-x - x^2 + x^3] - (Sqrt
[3 + Sqrt[5]]*Sqrt[x]*Sqrt[-1 + Sqrt[5] + 2*x]*Sqrt[1 - (2*x)/(1 + Sqrt[5])]*EllipticPi[(1 + Sqrt[5])/2, ArcSi
n[Sqrt[2/(1 + Sqrt[5])]*Sqrt[x]], (-3 - Sqrt[5])/2])/Sqrt[-x - x^2 + x^3]

Rule 168

Int[1/(((a_.) + (b_.)*(x_))*Sqrt[(c_.) + (d_.)*(x_)]*Sqrt[(e_.) + (f_.)*(x_)]*Sqrt[(g_.) + (h_.)*(x_)]), x_Sym
bol] :> Dist[-2, Subst[Int[1/(Simp[b*c - a*d - b*x^2, x]*Sqrt[Simp[(d*e - c*f)/d + (f*x^2)/d, x]]*Sqrt[Simp[(d
*g - c*h)/d + (h*x^2)/d, x]]), x], x, Sqrt[c + d*x]], x] /; FreeQ[{a, b, c, d, e, f, g, h}, x] && GtQ[(d*e - c
*f)/d, 0]

Rule 537

Int[1/(((a_) + (b_.)*(x_)^2)*Sqrt[(c_) + (d_.)*(x_)^2]*Sqrt[(e_) + (f_.)*(x_)^2]), x_Symbol] :> Simp[(1*Ellipt
icPi[(b*c)/(a*d), ArcSin[Rt[-(d/c), 2]*x], (c*f)/(d*e)])/(a*Sqrt[c]*Sqrt[e]*Rt[-(d/c), 2]), x] /; FreeQ[{a, b,
c, d, e, f}, x] &&  !GtQ[d/c, 0] && GtQ[c, 0] && GtQ[e, 0] &&  !( !GtQ[f/e, 0] && SimplerSqrtQ[-(f/e), -(d/c)
])

Rule 538

Int[1/(((a_) + (b_.)*(x_)^2)*Sqrt[(c_) + (d_.)*(x_)^2]*Sqrt[(e_) + (f_.)*(x_)^2]), x_Symbol] :> Dist[Sqrt[1 +
(d*x^2)/c]/Sqrt[c + d*x^2], Int[1/((a + b*x^2)*Sqrt[1 + (d*x^2)/c]*Sqrt[e + f*x^2]), x], x] /; FreeQ[{a, b, c,
d, e, f}, x] &&  !GtQ[c, 0]

Rule 716

Int[(x_)^(m_)/Sqrt[(a_) + (b_.)*(x_) + (c_.)*(x_)^2], x_Symbol] :> Dist[2, Subst[Int[x^(2*m + 1)/Sqrt[a + b*x^
2 + c*x^4], x], x, Sqrt[x]], x] /; FreeQ[{a, b, c}, x] && NeQ[b^2 - 4*a*c, 0] && EqQ[m^2, 1/4]

Rule 934

Int[1/(((d_.) + (e_.)*(x_))*Sqrt[(f_.) + (g_.)*(x_)]*Sqrt[(a_.) + (b_.)*(x_) + (c_.)*(x_)^2]), x_Symbol] :> Wi
th[{q = Rt[b^2 - 4*a*c, 2]}, Dist[(Sqrt[b - q + 2*c*x]*Sqrt[b + q + 2*c*x])/Sqrt[a + b*x + c*x^2], Int[1/((d +
e*x)*Sqrt[f + g*x]*Sqrt[b - q + 2*c*x]*Sqrt[b + q + 2*c*x]), x], x]] /; FreeQ[{a, b, c, d, e, f, g}, x] && Ne
Q[e*f - d*g, 0] && NeQ[b^2 - 4*a*c, 0] && NeQ[c*d^2 - b*d*e + a*e^2, 0]

Rule 1098

Int[1/Sqrt[(a_) + (b_.)*(x_)^2 + (c_.)*(x_)^4], x_Symbol] :> With[{q = Rt[b^2 - 4*a*c, 2]}, Simp[(Sqrt[(2*a +
(b - q)*x^2)/(2*a + (b + q)*x^2)]*Sqrt[(2*a + (b + q)*x^2)/q]*EllipticF[ArcSin[x/Sqrt[(2*a + (b + q)*x^2)/(2*q
)]], (b + q)/(2*q)])/(2*Sqrt[a + b*x^2 + c*x^4]*Sqrt[a/(2*a + (b + q)*x^2)]), x]] /; FreeQ[{a, b, c}, x] && Gt
Q[b^2 - 4*a*c, 0] && LtQ[a, 0] && GtQ[c, 0]

Rule 2056

Int[(u_.)*(P_)^(p_.), x_Symbol] :> With[{m = MinimumMonomialExponent[P, x]}, Dist[P^FracPart[p]/(x^(m*FracPart
[p])*Distrib[1/x^m, P]^FracPart[p]), Int[u*x^(m*p)*Distrib[1/x^m, P]^p, x], x]] /; FreeQ[p, x] &&  !IntegerQ[p
] && SumQ[P] && EveryQ[BinomialQ[#1, x] & , P] &&  !PolyQ[P, x, 2]

Rule 6725

Int[(u_)/((a_) + (b_.)*(x_)^(n_)), x_Symbol] :> With[{v = RationalFunctionExpand[u/(a + b*x^n), x]}, Int[v, x]
/; SumQ[v]] /; FreeQ[{a, b}, x] && IGtQ[n, 0]

Rubi steps

\begin {align*} \int \frac {1+x^2}{\left (-1+x^2\right ) \sqrt {-x-x^2+x^3}} \, dx &=\frac {\left (\sqrt {x} \sqrt {-1-x+x^2}\right ) \int \frac {1+x^2}{\sqrt {x} \left (-1+x^2\right ) \sqrt {-1-x+x^2}} \, dx}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\left (\sqrt {x} \sqrt {-1-x+x^2}\right ) \int \left (\frac {1}{\sqrt {x} \sqrt {-1-x+x^2}}+\frac {2}{\sqrt {x} \left (-1+x^2\right ) \sqrt {-1-x+x^2}}\right ) \, dx}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\left (\sqrt {x} \sqrt {-1-x+x^2}\right ) \int \frac {1}{\sqrt {x} \sqrt {-1-x+x^2}} \, dx}{\sqrt {-x-x^2+x^3}}+\frac {\left (2 \sqrt {x} \sqrt {-1-x+x^2}\right ) \int \frac {1}{\sqrt {x} \left (-1+x^2\right ) \sqrt {-1-x+x^2}} \, dx}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\left (2 \sqrt {x} \sqrt {-1-x+x^2}\right ) \int \left (-\frac {1}{2 (1-x) \sqrt {x} \sqrt {-1-x+x^2}}-\frac {1}{2 \sqrt {x} (1+x) \sqrt {-1-x+x^2}}\right ) \, dx}{\sqrt {-x-x^2+x^3}}+\frac {\left (2 \sqrt {x} \sqrt {-1-x+x^2}\right ) \operatorname {Subst}\left (\int \frac {1}{\sqrt {-1-x^2+x^4}} \, dx,x,\sqrt {x}\right )}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\sqrt {x} \sqrt {-2-\left (1-\sqrt {5}\right ) x} \sqrt {\frac {2+\left (1+\sqrt {5}\right ) x}{2+\left (1-\sqrt {5}\right ) x}} F\left (\sin ^{-1}\left (\frac {\sqrt {2} \sqrt [4]{5} \sqrt {x}}{\sqrt {-2-\left (1-\sqrt {5}\right ) x}}\right )|\frac {1}{10} \left (5-\sqrt {5}\right )\right )}{\sqrt [4]{5} \sqrt {\frac {1}{2+\left (1-\sqrt {5}\right ) x}} \sqrt {-x-x^2+x^3}}-\frac {\left (\sqrt {x} \sqrt {-1-x+x^2}\right ) \int \frac {1}{(1-x) \sqrt {x} \sqrt {-1-x+x^2}} \, dx}{\sqrt {-x-x^2+x^3}}-\frac {\left (\sqrt {x} \sqrt {-1-x+x^2}\right ) \int \frac {1}{\sqrt {x} (1+x) \sqrt {-1-x+x^2}} \, dx}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\sqrt {x} \sqrt {-2-\left (1-\sqrt {5}\right ) x} \sqrt {\frac {2+\left (1+\sqrt {5}\right ) x}{2+\left (1-\sqrt {5}\right ) x}} F\left (\sin ^{-1}\left (\frac {\sqrt {2} \sqrt [4]{5} \sqrt {x}}{\sqrt {-2-\left (1-\sqrt {5}\right ) x}}\right )|\frac {1}{10} \left (5-\sqrt {5}\right )\right )}{\sqrt [4]{5} \sqrt {\frac {1}{2+\left (1-\sqrt {5}\right ) x}} \sqrt {-x-x^2+x^3}}-\frac {\left (\sqrt {x} \sqrt {-1-\sqrt {5}+2 x} \sqrt {-1+\sqrt {5}+2 x}\right ) \int \frac {1}{(1-x) \sqrt {x} \sqrt {-1-\sqrt {5}+2 x} \sqrt {-1+\sqrt {5}+2 x}} \, dx}{\sqrt {-x-x^2+x^3}}-\frac {\left (\sqrt {x} \sqrt {-1-\sqrt {5}+2 x} \sqrt {-1+\sqrt {5}+2 x}\right ) \int \frac {1}{\sqrt {x} (1+x) \sqrt {-1-\sqrt {5}+2 x} \sqrt {-1+\sqrt {5}+2 x}} \, dx}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\sqrt {x} \sqrt {-2-\left (1-\sqrt {5}\right ) x} \sqrt {\frac {2+\left (1+\sqrt {5}\right ) x}{2+\left (1-\sqrt {5}\right ) x}} F\left (\sin ^{-1}\left (\frac {\sqrt {2} \sqrt [4]{5} \sqrt {x}}{\sqrt {-2-\left (1-\sqrt {5}\right ) x}}\right )|\frac {1}{10} \left (5-\sqrt {5}\right )\right )}{\sqrt [4]{5} \sqrt {\frac {1}{2+\left (1-\sqrt {5}\right ) x}} \sqrt {-x-x^2+x^3}}+\frac {\left (2 \sqrt {x} \sqrt {-1-\sqrt {5}+2 x} \sqrt {-1+\sqrt {5}+2 x}\right ) \operatorname {Subst}\left (\int \frac {1}{\left (-1-x^2\right ) \sqrt {-1-\sqrt {5}+2 x^2} \sqrt {-1+\sqrt {5}+2 x^2}} \, dx,x,\sqrt {x}\right )}{\sqrt {-x-x^2+x^3}}+\frac {\left (2 \sqrt {x} \sqrt {-1-\sqrt {5}+2 x} \sqrt {-1+\sqrt {5}+2 x}\right ) \operatorname {Subst}\left (\int \frac {1}{\left (-1+x^2\right ) \sqrt {-1-\sqrt {5}+2 x^2} \sqrt {-1+\sqrt {5}+2 x^2}} \, dx,x,\sqrt {x}\right )}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\sqrt {x} \sqrt {-2-\left (1-\sqrt {5}\right ) x} \sqrt {\frac {2+\left (1+\sqrt {5}\right ) x}{2+\left (1-\sqrt {5}\right ) x}} F\left (\sin ^{-1}\left (\frac {\sqrt {2} \sqrt [4]{5} \sqrt {x}}{\sqrt {-2-\left (1-\sqrt {5}\right ) x}}\right )|\frac {1}{10} \left (5-\sqrt {5}\right )\right )}{\sqrt [4]{5} \sqrt {\frac {1}{2+\left (1-\sqrt {5}\right ) x}} \sqrt {-x-x^2+x^3}}+\frac {\left (2 \sqrt {x} \sqrt {-1+\sqrt {5}+2 x} \sqrt {1-\frac {2 x}{1+\sqrt {5}}}\right ) \operatorname {Subst}\left (\int \frac {1}{\left (-1-x^2\right ) \sqrt {-1+\sqrt {5}+2 x^2} \sqrt {1+\frac {2 x^2}{-1-\sqrt {5}}}} \, dx,x,\sqrt {x}\right )}{\sqrt {-x-x^2+x^3}}+\frac {\left (2 \sqrt {x} \sqrt {-1+\sqrt {5}+2 x} \sqrt {1-\frac {2 x}{1+\sqrt {5}}}\right ) \operatorname {Subst}\left (\int \frac {1}{\left (-1+x^2\right ) \sqrt {-1+\sqrt {5}+2 x^2} \sqrt {1+\frac {2 x^2}{-1-\sqrt {5}}}} \, dx,x,\sqrt {x}\right )}{\sqrt {-x-x^2+x^3}}\\ &=\frac {\sqrt {x} \sqrt {-2-\left (1-\sqrt {5}\right ) x} \sqrt {\frac {2+\left (1+\sqrt {5}\right ) x}{2+\left (1-\sqrt {5}\right ) x}} F\left (\sin ^{-1}\left (\frac {\sqrt {2} \sqrt [4]{5} \sqrt {x}}{\sqrt {-2-\left (1-\sqrt {5}\right ) x}}\right )|\frac {1}{10} \left (5-\sqrt {5}\right )\right )}{\sqrt [4]{5} \sqrt {\frac {1}{2+\left (1-\sqrt {5}\right ) x}} \sqrt {-x-x^2+x^3}}-\frac {\sqrt {3+\sqrt {5}} \sqrt {x} \sqrt {-1+\sqrt {5}+2 x} \sqrt {1-\frac {2 x}{1+\sqrt {5}}} \Pi \left (\frac {1}{2} \left (-1-\sqrt {5}\right );\sin ^{-1}\left (\sqrt {\frac {2}{1+\sqrt {5}}} \sqrt {x}\right )|\frac {1}{2} \left (-3-\sqrt {5}\right )\right )}{\sqrt {-x-x^2+x^3}}-\frac {\sqrt {3+\sqrt {5}} \sqrt {x} \sqrt {-1+\sqrt {5}+2 x} \sqrt {1-\frac {2 x}{1+\sqrt {5}}} \Pi \left (\frac {1}{2} \left (1+\sqrt {5}\right );\sin ^{-1}\left (\sqrt {\frac {2}{1+\sqrt {5}}} \sqrt {x}\right )|\frac {1}{2} \left (-3-\sqrt {5}\right )\right )}{\sqrt {-x-x^2+x^3}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [C]  time = 6.71, size = 1680, normalized size = 56.00

result too large to display

Warning: Unable to verify antiderivative.

[In]

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

[Out]

-((Sqrt[2]*(-1 + x^(-2))*x^(3/2)*(1 + x^2)*(((-2*I)*Sqrt[1 - x^(-2) - x^(-1)]*EllipticF[I*ArcSinh[Sqrt[2/(1 +
Sqrt[5])]/Sqrt[x]], -3/2 - Sqrt[5]/2])/Sqrt[-1 + Sqrt[5]] + ((2*I)*Sqrt[1 - x^(-2) - x^(-1)]*EllipticPi[(1 + S
qrt[5])/2, I*ArcSinh[Sqrt[2/(1 + Sqrt[5])]/Sqrt[x]], (-3 - Sqrt[5])/2])/Sqrt[-1 + Sqrt[5]] + ((Sqrt[-1 + Sqrt[
5]] + I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5])] - 2/Sqrt[x])^2*Sqrt[(I*Sqrt[2*(1 + Sqrt[5])] + 2/Sqrt[x])/(
(1 + 2*I)*Sqrt[2] - Sqrt[10] + (2*Sqrt[-1 + Sqrt[5]])/Sqrt[x] - ((2*I)*Sqrt[1 + Sqrt[5]])/Sqrt[x])]*Sqrt[(I*Sq
rt[2*(1 + Sqrt[5])] - 2/Sqrt[x])/(Sqrt[2]*((-1 + 2*I) + Sqrt[5]) - (2*(Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]
]))/Sqrt[x])]*Sqrt[(Sqrt[2]*((-1 - 2*I) + Sqrt[5]) + (2*(Sqrt[-1 + Sqrt[5]] - I*Sqrt[1 + Sqrt[5]]))/Sqrt[x])/(
Sqrt[2]*((-1 + 2*I) + Sqrt[5]) - (2*(Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]]))/Sqrt[x])]*((2 + Sqrt[2*(-1 + S
qrt[5])])*EllipticF[ArcSin[Sqrt[((Sqrt[-1 + Sqrt[5]] - I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5])] + 2/Sqrt[x
]))/((Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5])] - 2/Sqrt[x]))]], -3/5 - (4*I)/5] - 2*S
qrt[2*(-1 + Sqrt[5])]*EllipticPi[((-2 + Sqrt[2*(-1 + Sqrt[5])])*(Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]]))/((
2 + Sqrt[2*(-1 + Sqrt[5])])*(Sqrt[-1 + Sqrt[5]] - I*Sqrt[1 + Sqrt[5]])), ArcSin[Sqrt[((Sqrt[-1 + Sqrt[5]] - I*
Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5])] + 2/Sqrt[x]))/((Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(
-1 + Sqrt[5])] - 2/Sqrt[x]))]], -3/5 - (4*I)/5]))/((-2 + Sqrt[2*(-1 + Sqrt[5])])*(2 + Sqrt[2*(-1 + Sqrt[5])])*
(Sqrt[-1 + Sqrt[5]] - I*Sqrt[1 + Sqrt[5]])) - ((Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5
])] - 2/Sqrt[x])^2*Sqrt[(I*Sqrt[2*(1 + Sqrt[5])] + 2/Sqrt[x])/((1 + 2*I)*Sqrt[2] - Sqrt[10] + (2*Sqrt[-1 + Sqr
t[5]])/Sqrt[x] - ((2*I)*Sqrt[1 + Sqrt[5]])/Sqrt[x])]*Sqrt[(I*Sqrt[2*(1 + Sqrt[5])] - 2/Sqrt[x])/(Sqrt[2]*((-1
+ 2*I) + Sqrt[5]) - (2*(Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]]))/Sqrt[x])]*Sqrt[(Sqrt[2]*((-1 - 2*I) + Sqrt[
5]) + (2*(Sqrt[-1 + Sqrt[5]] - I*Sqrt[1 + Sqrt[5]]))/Sqrt[x])/(Sqrt[2]*((-1 + 2*I) + Sqrt[5]) - (2*(Sqrt[-1 +
Sqrt[5]] + I*Sqrt[1 + Sqrt[5]]))/Sqrt[x])]*((-2 + Sqrt[2*(-1 + Sqrt[5])])*EllipticF[ArcSin[Sqrt[((Sqrt[-1 + Sq
rt[5]] - I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5])] + 2/Sqrt[x]))/((Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]]
)*(Sqrt[2*(-1 + Sqrt[5])] - 2/Sqrt[x]))]], -3/5 - (4*I)/5] - 2*Sqrt[2*(-1 + Sqrt[5])]*EllipticPi[((2 + Sqrt[2*
(-1 + Sqrt[5])])*(Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]]))/((-2 + Sqrt[2*(-1 + Sqrt[5])])*(Sqrt[-1 + Sqrt[5]
] - I*Sqrt[1 + Sqrt[5]])), ArcSin[Sqrt[((Sqrt[-1 + Sqrt[5]] - I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5])] + 2
/Sqrt[x]))/((Sqrt[-1 + Sqrt[5]] + I*Sqrt[1 + Sqrt[5]])*(Sqrt[2*(-1 + Sqrt[5])] - 2/Sqrt[x]))]], -3/5 - (4*I)/5
]))/((-2 + Sqrt[2*(-1 + Sqrt[5])])*(2 + Sqrt[2*(-1 + Sqrt[5])])*(Sqrt[-1 + Sqrt[5]] - I*Sqrt[1 + Sqrt[5]]))))/
((-x^(-2) + x^2)*Sqrt[x*(-1 - x + x^2)]))

________________________________________________________________________________________

IntegrateAlgebraic [A]  time = 0.07, size = 30, normalized size = 1.00 \begin {gather*} -2 \tan ^{-1}\left (\frac {\sqrt {-x-x^2+x^3}}{-1-x+x^2}\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

-2*ArcTan[Sqrt[-x - x^2 + x^3]/(-1 - x + x^2)]

________________________________________________________________________________________

fricas [A]  time = 0.50, size = 25, normalized size = 0.83 \begin {gather*} \arctan \left (\frac {x^{2} - 2 \, x - 1}{2 \, \sqrt {x^{3} - x^{2} - x}}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((x^2+1)/(x^2-1)/(x^3-x^2-x)^(1/2),x, algorithm="fricas")

[Out]

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

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {x^{2} + 1}{\sqrt {x^{3} - x^{2} - x} {\left (x^{2} - 1\right )}}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((x^2+1)/(x^2-1)/(x^3-x^2-x)^(1/2),x, algorithm="giac")

[Out]

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

________________________________________________________________________________________

maple [C]  time = 0.34, size = 63, normalized size = 2.10

method	result	size
trager	\(\RootOf \left (\textit {\_Z}^{2}+1\right ) \ln \left (\frac {-\RootOf \left (\textit {\_Z}^{2}+1\right ) x^{2}+2 \RootOf \left (\textit {\_Z}^{2}+1\right ) x +2 \sqrt {x^{3}-x^{2}-x}+\RootOf \left (\textit {\_Z}^{2}+1\right )}{\left (-1+x \right ) \left (1+x \right )}\right )\)	\(63\)
default	\(\frac {2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \sqrt {-5 \left (x -\frac {1}{2}-\frac {\sqrt {5}}{2}\right ) \sqrt {5}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticF \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right )}{5 \sqrt {x^{3}-x^{2}-x}}-\frac {2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \sqrt {-5 \left (x -\frac {1}{2}-\frac {\sqrt {5}}{2}\right ) \sqrt {5}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticPi \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\frac {1}{2}-\frac {\sqrt {5}}{2}}{\frac {3}{2}-\frac {\sqrt {5}}{2}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right )}{5 \sqrt {x^{3}-x^{2}-x}\, \left (\frac {3}{2}-\frac {\sqrt {5}}{2}\right )}+\frac {2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \sqrt {-5 \left (x -\frac {1}{2}-\frac {\sqrt {5}}{2}\right ) \sqrt {5}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticPi \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\frac {1}{2}-\frac {\sqrt {5}}{2}}{-\frac {1}{2}-\frac {\sqrt {5}}{2}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right )}{5 \sqrt {x^{3}-x^{2}-x}\, \left (-\frac {1}{2}-\frac {\sqrt {5}}{2}\right )}\)	\(387\)
elliptic	\(\frac {\sqrt {\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}-\frac {1}{2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right )}+\frac {\sqrt {5}}{\sqrt {5}-1}}\, \sqrt {-5 x \sqrt {5}+\frac {5 \sqrt {5}}{2}+\frac {25}{2}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticF \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right ) \sqrt {5}}{5 \sqrt {x^{3}-x^{2}-x}}-\frac {\sqrt {\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}-\frac {1}{2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right )}+\frac {\sqrt {5}}{\sqrt {5}-1}}\, \sqrt {-5 x \sqrt {5}+\frac {5 \sqrt {5}}{2}+\frac {25}{2}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticF \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right )}{5 \sqrt {x^{3}-x^{2}-x}}-\frac {\sqrt {\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}-\frac {1}{2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right )}+\frac {\sqrt {5}}{\sqrt {5}-1}}\, \sqrt {-5 x \sqrt {5}+\frac {5 \sqrt {5}}{2}+\frac {25}{2}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticPi \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\frac {1}{2}-\frac {\sqrt {5}}{2}}{\frac {3}{2}-\frac {\sqrt {5}}{2}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right ) \sqrt {5}}{5 \sqrt {x^{3}-x^{2}-x}\, \left (\frac {3}{2}-\frac {\sqrt {5}}{2}\right )}+\frac {\sqrt {\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}-\frac {1}{2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right )}+\frac {\sqrt {5}}{\sqrt {5}-1}}\, \sqrt {-5 x \sqrt {5}+\frac {5 \sqrt {5}}{2}+\frac {25}{2}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticPi \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\frac {1}{2}-\frac {\sqrt {5}}{2}}{\frac {3}{2}-\frac {\sqrt {5}}{2}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right )}{5 \sqrt {x^{3}-x^{2}-x}\, \left (\frac {3}{2}-\frac {\sqrt {5}}{2}\right )}+\frac {\sqrt {\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}-\frac {1}{2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right )}+\frac {\sqrt {5}}{\sqrt {5}-1}}\, \sqrt {-5 x \sqrt {5}+\frac {5 \sqrt {5}}{2}+\frac {25}{2}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticPi \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\frac {1}{2}-\frac {\sqrt {5}}{2}}{-\frac {1}{2}-\frac {\sqrt {5}}{2}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right ) \sqrt {5}}{5 \sqrt {x^{3}-x^{2}-x}\, \left (-\frac {1}{2}-\frac {\sqrt {5}}{2}\right )}-\frac {\sqrt {\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}-\frac {1}{2 \left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right )}+\frac {\sqrt {5}}{\sqrt {5}-1}}\, \sqrt {-5 x \sqrt {5}+\frac {5 \sqrt {5}}{2}+\frac {25}{2}}\, \sqrt {-\frac {x}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\, \EllipticPi \left (\sqrt {\frac {x -\frac {1}{2}+\frac {\sqrt {5}}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}, \frac {\frac {1}{2}-\frac {\sqrt {5}}{2}}{-\frac {1}{2}-\frac {\sqrt {5}}{2}}, \frac {\sqrt {5}\, \sqrt {\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right ) \sqrt {5}}}{5}\right )}{5 \sqrt {x^{3}-x^{2}-x}\, \left (-\frac {1}{2}-\frac {\sqrt {5}}{2}\right )}\)	\(853\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((x^2+1)/(x^2-1)/(x^3-x^2-x)^(1/2),x,method=_RETURNVERBOSE)

[Out]

RootOf(_Z^2+1)*ln((-RootOf(_Z^2+1)*x^2+2*RootOf(_Z^2+1)*x+2*(x^3-x^2-x)^(1/2)+RootOf(_Z^2+1))/(-1+x)/(1+x))

________________________________________________________________________________________

maxima [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {x^{2} + 1}{\sqrt {x^{3} - x^{2} - x} {\left (x^{2} - 1\right )}}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((x^2+1)/(x^2-1)/(x^3-x^2-x)^(1/2),x, algorithm="maxima")

[Out]

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

________________________________________________________________________________________

mupad [B]  time = 0.14, size = 206, normalized size = 6.87 \begin {gather*} -\frac {\sqrt {\frac {x}{\frac {\sqrt {5}}{2}+\frac {1}{2}}}\,\sqrt {\frac {x+\frac {\sqrt {5}}{2}-\frac {1}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}}\,\left (\sqrt {5}+1\right )\,\sqrt {\frac {\frac {\sqrt {5}}{2}-x+\frac {1}{2}}{\frac {\sqrt {5}}{2}+\frac {1}{2}}}\,\left (\Pi \left (-\frac {\sqrt {5}}{2}-\frac {1}{2};\mathrm {asin}\left (\sqrt {\frac {x}{\frac {\sqrt {5}}{2}+\frac {1}{2}}}\right )\middle |-\frac {\frac {\sqrt {5}}{2}+\frac {1}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}\right )-\mathrm {F}\left (\mathrm {asin}\left (\sqrt {\frac {x}{\frac {\sqrt {5}}{2}+\frac {1}{2}}}\right )\middle |-\frac {\frac {\sqrt {5}}{2}+\frac {1}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}\right )+\Pi \left (\frac {\sqrt {5}}{2}+\frac {1}{2};\mathrm {asin}\left (\sqrt {\frac {x}{\frac {\sqrt {5}}{2}+\frac {1}{2}}}\right )\middle |-\frac {\frac {\sqrt {5}}{2}+\frac {1}{2}}{\frac {\sqrt {5}}{2}-\frac {1}{2}}\right )\right )}{\sqrt {x^3-x^2-\left (\frac {\sqrt {5}}{2}-\frac {1}{2}\right )\,\left (\frac {\sqrt {5}}{2}+\frac {1}{2}\right )\,x}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

-((x/(5^(1/2)/2 + 1/2))^(1/2)*((x + 5^(1/2)/2 - 1/2)/(5^(1/2)/2 - 1/2))^(1/2)*(5^(1/2) + 1)*((5^(1/2)/2 - x +
1/2)/(5^(1/2)/2 + 1/2))^(1/2)*(ellipticPi(- 5^(1/2)/2 - 1/2, asin((x/(5^(1/2)/2 + 1/2))^(1/2)), -(5^(1/2)/2 +
1/2)/(5^(1/2)/2 - 1/2)) - ellipticF(asin((x/(5^(1/2)/2 + 1/2))^(1/2)), -(5^(1/2)/2 + 1/2)/(5^(1/2)/2 - 1/2)) +
ellipticPi(5^(1/2)/2 + 1/2, asin((x/(5^(1/2)/2 + 1/2))^(1/2)), -(5^(1/2)/2 + 1/2)/(5^(1/2)/2 - 1/2))))/(x^3 -
x^2 - x*(5^(1/2)/2 - 1/2)*(5^(1/2)/2 + 1/2))^(1/2)

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {x^{2} + 1}{\sqrt {x \left (x^{2} - x - 1\right )} \left (x - 1\right ) \left (x + 1\right )}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________