3.7.65 \(\int \frac {1+4 x}{\sqrt {1-2 x+3 x^2+2 x^3+x^4}} \, dx\)
Optimal. Leaf size=53 \[ -\log \left (-x^4-3 x^3-5 x^2+\left (x^2+2 x+2\right ) \sqrt {x^4+2 x^3+3 x^2-2 x+1}-2 x\right ) \]
________________________________________________________________________________________
Rubi [F] time = 0.14, antiderivative size = 0, normalized size of antiderivative = 0.00,
number of steps used = 0, number of rules used = 0, integrand size = 0, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.000, Rules used =
{} \begin {gather*} \int \frac {1+4 x}{\sqrt {1-2 x+3 x^2+2 x^3+x^4}} \, dx \end {gather*}
Verification is not applicable to the result.
[In]
Int[(1 + 4*x)/Sqrt[1 - 2*x + 3*x^2 + 2*x^3 + x^4],x]
[Out]
Defer[Int][1/Sqrt[1 - 2*x + 3*x^2 + 2*x^3 + x^4], x] + 4*Defer[Int][x/Sqrt[1 - 2*x + 3*x^2 + 2*x^3 + x^4], x]
Rubi steps
\begin {align*} \int \frac {1+4 x}{\sqrt {1-2 x+3 x^2+2 x^3+x^4}} \, dx &=\int \left (\frac {1}{\sqrt {1-2 x+3 x^2+2 x^3+x^4}}+\frac {4 x}{\sqrt {1-2 x+3 x^2+2 x^3+x^4}}\right ) \, dx\\ &=4 \int \frac {x}{\sqrt {1-2 x+3 x^2+2 x^3+x^4}} \, dx+\int \frac {1}{\sqrt {1-2 x+3 x^2+2 x^3+x^4}} \, dx\\ \end {align*}
________________________________________________________________________________________
Mathematica [C] time = 1.39, size = 484, normalized size = 9.13 \begin {gather*} \frac {2 \left (-4 i-\sqrt {1-4 i}-\sqrt {1+4 i}\right ) \left (x+\frac {1}{2} \left ((1-2 i)+\sqrt {1-4 i}\right )\right )^2 \sqrt {\frac {\left (-4 i+\sqrt {1-4 i}-\sqrt {1+4 i}\right ) \left (-2 x+\sqrt {1+4 i}-(1+2 i)\right )}{\sqrt {1+4 i} \left (2 x+\sqrt {1-4 i}+(1-2 i)\right )}} \sqrt {\frac {\sqrt {1-4 i} \left (-4 i+\sqrt {1-4 i}-\sqrt {1+4 i}\right ) \left (-2 x+\sqrt {1-4 i}-(1-2 i)\right ) \left (2 x+\sqrt {1+4 i}+(1+2 i)\right )}{\left (4 i+\sqrt {1-4 i}+\sqrt {1+4 i}\right )^2 \left (2 x+\sqrt {1-4 i}+(1-2 i)\right )^2}} \left (\left ((1-4 i)+2 \sqrt {1-4 i}\right ) F\left (\sin ^{-1}\left (\sqrt {2} \sqrt {\frac {\sqrt {1-4 i} \left (2 x+\sqrt {1+4 i}+(1+2 i)\right )}{\left (4 i+\sqrt {1-4 i}+\sqrt {1+4 i}\right ) \left (2 x+\sqrt {1-4 i}+(1-2 i)\right )}}\right )|\frac {1}{2}+\frac {9}{2 \sqrt {17}}\right )+2 \left (4 i-\sqrt {1-4 i}+\sqrt {1+4 i}\right ) \Pi \left (\frac {4 i+\sqrt {1-4 i}+\sqrt {1+4 i}}{2 \sqrt {1-4 i}};\sin ^{-1}\left (\sqrt {2} \sqrt {\frac {\sqrt {1-4 i} \left (2 x+\sqrt {1+4 i}+(1+2 i)\right )}{\left (4 i+\sqrt {1-4 i}+\sqrt {1+4 i}\right ) \left (2 x+\sqrt {1-4 i}+(1-2 i)\right )}}\right )|\frac {1}{2}+\frac {9}{2 \sqrt {17}}\right )\right )}{\sqrt {1-4 i} \left (-4 i+\sqrt {1-4 i}-\sqrt {1+4 i}\right ) \sqrt {x^4+2 x^3+3 x^2-2 x+1}} \end {gather*}
Warning: Unable to verify antiderivative.
[In]
Integrate[(1 + 4*x)/Sqrt[1 - 2*x + 3*x^2 + 2*x^3 + x^4],x]
[Out]
(2*(-4*I - Sqrt[1 - 4*I] - Sqrt[1 + 4*I])*(((1 - 2*I) + Sqrt[1 - 4*I])/2 + x)^2*Sqrt[((-4*I + Sqrt[1 - 4*I] -
Sqrt[1 + 4*I])*((-1 - 2*I) + Sqrt[1 + 4*I] - 2*x))/(Sqrt[1 + 4*I]*((1 - 2*I) + Sqrt[1 - 4*I] + 2*x))]*Sqrt[(Sq
rt[1 - 4*I]*(-4*I + Sqrt[1 - 4*I] - Sqrt[1 + 4*I])*((-1 + 2*I) + Sqrt[1 - 4*I] - 2*x)*((1 + 2*I) + Sqrt[1 + 4*
I] + 2*x))/((4*I + Sqrt[1 - 4*I] + Sqrt[1 + 4*I])^2*((1 - 2*I) + Sqrt[1 - 4*I] + 2*x)^2)]*(((1 - 4*I) + 2*Sqrt
[1 - 4*I])*EllipticF[ArcSin[Sqrt[2]*Sqrt[(Sqrt[1 - 4*I]*((1 + 2*I) + Sqrt[1 + 4*I] + 2*x))/((4*I + Sqrt[1 - 4*
I] + Sqrt[1 + 4*I])*((1 - 2*I) + Sqrt[1 - 4*I] + 2*x))]], 1/2 + 9/(2*Sqrt[17])] + 2*(4*I - Sqrt[1 - 4*I] + Sqr
t[1 + 4*I])*EllipticPi[(4*I + Sqrt[1 - 4*I] + Sqrt[1 + 4*I])/(2*Sqrt[1 - 4*I]), ArcSin[Sqrt[2]*Sqrt[(Sqrt[1 -
4*I]*((1 + 2*I) + Sqrt[1 + 4*I] + 2*x))/((4*I + Sqrt[1 - 4*I] + Sqrt[1 + 4*I])*((1 - 2*I) + Sqrt[1 - 4*I] + 2*
x))]], 1/2 + 9/(2*Sqrt[17])]))/(Sqrt[1 - 4*I]*(-4*I + Sqrt[1 - 4*I] - Sqrt[1 + 4*I])*Sqrt[1 - 2*x + 3*x^2 + 2*
x^3 + x^4])
________________________________________________________________________________________
IntegrateAlgebraic [A] time = 5.07, size = 53, normalized size = 1.00 \begin {gather*} -\log \left (-x^4-3 x^3-5 x^2+\left (x^2+2 x+2\right ) \sqrt {x^4+2 x^3+3 x^2-2 x+1}-2 x\right ) \end {gather*}
Antiderivative was successfully verified.
[In]
IntegrateAlgebraic[(1 + 4*x)/Sqrt[1 - 2*x + 3*x^2 + 2*x^3 + x^4],x]
[Out]
-Log[-2*x - 5*x^2 - 3*x^3 - x^4 + (2 + 2*x + x^2)*Sqrt[1 - 2*x + 3*x^2 + 2*x^3 + x^4]]
________________________________________________________________________________________
fricas [A] time = 0.44, size = 47, normalized size = 0.89 \begin {gather*} \log \left (x^{4} + 3 \, x^{3} + 5 \, x^{2} + \sqrt {x^{4} + 2 \, x^{3} + 3 \, x^{2} - 2 \, x + 1} {\left (x^{2} + 2 \, x + 2\right )} + 2 \, x\right ) \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate((1+4*x)/(x^4+2*x^3+3*x^2-2*x+1)^(1/2),x, algorithm="fricas")
[Out]
log(x^4 + 3*x^3 + 5*x^2 + sqrt(x^4 + 2*x^3 + 3*x^2 - 2*x + 1)*(x^2 + 2*x + 2) + 2*x)
________________________________________________________________________________________
giac [F] time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {4 \, x + 1}{\sqrt {x^{4} + 2 \, x^{3} + 3 \, x^{2} - 2 \, x + 1}}\,{d x} \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate((1+4*x)/(x^4+2*x^3+3*x^2-2*x+1)^(1/2),x, algorithm="giac")
[Out]
integrate((4*x + 1)/sqrt(x^4 + 2*x^3 + 3*x^2 - 2*x + 1), x)
________________________________________________________________________________________
maple [C] time = 1.14, size = 2700, normalized size = 50.94 \begin {gather*} \text {Expression too large to display} \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
int((1+4*x)/(x^4+2*x^3+3*x^2-2*x+1)^(1/2),x)
[Out]
2*(-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)+RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*((RootOf(_Z^4+2*_Z^3+
3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1)
)/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(x-RootOf(_Z^4+2*_Z^3+
3*_Z^2-2*_Z+1,index=2)))^(1/2)*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))^2*((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_
Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3))/(RootOf(
_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_
Z+1,index=2)))^(1/2)*((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*(x
-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z
^2-2*_Z+1,index=1))/(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)))^(1/2)/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,ind
ex=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3
+3*_Z^2-2*_Z+1,index=1))/((x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,in
dex=2))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)))^(1/2)*Ell
ipticF(((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))*(x-RootOf(_Z^4+2
*_Z^3+3*_Z^2-2*_Z+1,index=1))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,inde
x=1))/(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)))^(1/2),((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(
_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3))*(-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)+RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z
+1,index=1))/(-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3)+RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(RootOf(_Z
^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)))^(1/2))+8*(-RootOf(_Z^4+2*_Z^3+3*_
Z^2-2*_Z+1,index=4)+RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-Roo
tOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(RootOf(_Z^4+2*_Z^3+3*_Z
^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)))^(
1/2)*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))^2*((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2
*_Z^3+3*_Z^2-2*_Z+1,index=1))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,
index=3)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)))^(1/2)*((Roo
tOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2
-2*_Z+1,index=4))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(x-Roo
tOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)))^(1/2)/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3
*_Z^2-2*_Z+1,index=2))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(
(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))*(x-RootOf(_Z^4+2*_
Z^3+3*_Z^2-2*_Z+1,index=3))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)))^(1/2)*(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*
_Z+1,index=2)*EllipticF(((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))
*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3
*_Z^2-2*_Z+1,index=1))/(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)))^(1/2),((RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1
,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3))*(-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)+RootOf(_Z^4+2
*_Z^3+3*_Z^2-2*_Z+1,index=1))/(-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3)+RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,ind
ex=1))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)))^(1/2))+(-RootOf(
_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)+RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))*EllipticPi(((RootOf(_Z^4+2*_Z^3+
3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2))*(x-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1)
)/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(x-RootOf(_Z^4+2*_Z^3+
3*_Z^2-2*_Z+1,index=2)))^(1/2),(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,ind
ex=1))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)),((RootOf(_Z^4+2*_
Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3))*(-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index
=4)+RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=1))/(-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=3)+RootOf(_Z^4+2*_Z^3+
3*_Z^2-2*_Z+1,index=1))/(RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=2)-RootOf(_Z^4+2*_Z^3+3*_Z^2-2*_Z+1,index=4)))
^(1/2)))
________________________________________________________________________________________
maxima [F] time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {4 \, x + 1}{\sqrt {x^{4} + 2 \, x^{3} + 3 \, x^{2} - 2 \, x + 1}}\,{d x} \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate((1+4*x)/(x^4+2*x^3+3*x^2-2*x+1)^(1/2),x, algorithm="maxima")
[Out]
integrate((4*x + 1)/sqrt(x^4 + 2*x^3 + 3*x^2 - 2*x + 1), x)
________________________________________________________________________________________
mupad [F] time = 0.00, size = -1, normalized size = -0.02 \begin {gather*} \int \frac {4\,x+1}{\sqrt {x^4+2\,x^3+3\,x^2-2\,x+1}} \,d x \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
int((4*x + 1)/(3*x^2 - 2*x + 2*x^3 + x^4 + 1)^(1/2),x)
[Out]
int((4*x + 1)/(3*x^2 - 2*x + 2*x^3 + x^4 + 1)^(1/2), x)
________________________________________________________________________________________
sympy [F] time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {4 x + 1}{\sqrt {x^{4} + 2 x^{3} + 3 x^{2} - 2 x + 1}}\, dx \end {gather*}
Verification of antiderivative is not currently implemented for this CAS.
[In]
integrate((1+4*x)/(x**4+2*x**3+3*x**2-2*x+1)**(1/2),x)
[Out]
Integral((4*x + 1)/sqrt(x**4 + 2*x**3 + 3*x**2 - 2*x + 1), x)
________________________________________________________________________________________