3.525 \(\int \frac {e-2 f x^2}{e^2-4 d f x^2+4 e f x^2+4 f^2 x^4} \, dx\)

Optimal. Leaf size=73 \[ \frac {\log \left (2 \sqrt {d} \sqrt {f} x+e+2 f x^2\right )}{4 \sqrt {d} \sqrt {f}}-\frac {\log \left (-2 \sqrt {d} \sqrt {f} x+e+2 f x^2\right )}{4 \sqrt {d} \sqrt {f}} \]

[Out]

-1/4*ln(e+2*f*x^2-2*x*d^(1/2)*f^(1/2))/d^(1/2)/f^(1/2)+1/4*ln(e+2*f*x^2+2*x*d^(1/2)*f^(1/2))/d^(1/2)/f^(1/2)

________________________________________________________________________________________

Rubi [A]  time = 0.04, antiderivative size = 73, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 37, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.081, Rules used = {6, 1164, 628} \[ \frac {\log \left (2 \sqrt {d} \sqrt {f} x+e+2 f x^2\right )}{4 \sqrt {d} \sqrt {f}}-\frac {\log \left (-2 \sqrt {d} \sqrt {f} x+e+2 f x^2\right )}{4 \sqrt {d} \sqrt {f}} \]

Antiderivative was successfully verified.

[In]

Int[(e - 2*f*x^2)/(e^2 - 4*d*f*x^2 + 4*e*f*x^2 + 4*f^2*x^4),x]

[Out]

-Log[e - 2*Sqrt[d]*Sqrt[f]*x + 2*f*x^2]/(4*Sqrt[d]*Sqrt[f]) + Log[e + 2*Sqrt[d]*Sqrt[f]*x + 2*f*x^2]/(4*Sqrt[d
]*Sqrt[f])

Rule 6

Int[(u_.)*((w_.) + (a_.)*(v_) + (b_.)*(v_))^(p_.), x_Symbol] :> Int[u*((a + b)*v + w)^p, x] /; FreeQ[{a, b}, x
] &&  !FreeQ[v, x]

Rule 628

Int[((d_) + (e_.)*(x_))/((a_.) + (b_.)*(x_) + (c_.)*(x_)^2), x_Symbol] :> Simp[(d*Log[RemoveContent[a + b*x +
c*x^2, x]])/b, x] /; FreeQ[{a, b, c, d, e}, x] && EqQ[2*c*d - b*e, 0]

Rule 1164

Int[((d_) + (e_.)*(x_)^2)/((a_) + (b_.)*(x_)^2 + (c_.)*(x_)^4), x_Symbol] :> With[{q = Rt[(-2*d)/e - b/c, 2]},
Dist[e/(2*c*q), Int[(q - 2*x)/Simp[d/e + q*x - x^2, x], x], x] + Dist[e/(2*c*q), Int[(q + 2*x)/Simp[d/e - q*x
- x^2, x], x], x]] /; FreeQ[{a, b, c, d, e}, x] && NeQ[b^2 - 4*a*c, 0] && EqQ[c*d^2 - a*e^2, 0] &&  !GtQ[b^2
- 4*a*c, 0]

Rubi steps

\begin {align*} \int \frac {e-2 f x^2}{e^2-4 d f x^2+4 e f x^2+4 f^2 x^4} \, dx &=\int \frac {e-2 f x^2}{e^2+(-4 d+4 e) f x^2+4 f^2 x^4} \, dx\\ &=-\frac {\int \frac {\frac {\sqrt {d}}{\sqrt {f}}+2 x}{-\frac {e}{2 f}-\frac {\sqrt {d} x}{\sqrt {f}}-x^2} \, dx}{4 \sqrt {d} \sqrt {f}}-\frac {\int \frac {\frac {\sqrt {d}}{\sqrt {f}}-2 x}{-\frac {e}{2 f}+\frac {\sqrt {d} x}{\sqrt {f}}-x^2} \, dx}{4 \sqrt {d} \sqrt {f}}\\ &=-\frac {\log \left (e-2 \sqrt {d} \sqrt {f} x+2 f x^2\right )}{4 \sqrt {d} \sqrt {f}}+\frac {\log \left (e+2 \sqrt {d} \sqrt {f} x+2 f x^2\right )}{4 \sqrt {d} \sqrt {f}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [C]  time = 0.14, size = 233, normalized size = 3.19 \[ \frac {-\frac {\left (\sqrt {d} \sqrt {2 e-d}-i d+2 i e\right ) \tan ^{-1}\left (\frac {\sqrt {2} \sqrt {f} x}{\sqrt {-i \sqrt {d} \sqrt {2 e-d}-d+e}}\right )}{\sqrt {-i \sqrt {d} \sqrt {2 e-d}-d+e}}-\frac {\left (\sqrt {d} \sqrt {2 e-d}+i d-2 i e\right ) \tan ^{-1}\left (\frac {\sqrt {2} \sqrt {f} x}{\sqrt {i \sqrt {d} \sqrt {2 e-d}-d+e}}\right )}{\sqrt {i \sqrt {d} \sqrt {2 e-d}-d+e}}}{2 \sqrt {2} \sqrt {d} \sqrt {f} \sqrt {2 e-d}} \]

Antiderivative was successfully verified.

[In]

Integrate[(e - 2*f*x^2)/(e^2 - 4*d*f*x^2 + 4*e*f*x^2 + 4*f^2*x^4),x]

[Out]

(-((((-I)*d + (2*I)*e + Sqrt[d]*Sqrt[-d + 2*e])*ArcTan[(Sqrt[2]*Sqrt[f]*x)/Sqrt[-d + e - I*Sqrt[d]*Sqrt[-d + 2
*e]]])/Sqrt[-d + e - I*Sqrt[d]*Sqrt[-d + 2*e]]) - ((I*d - (2*I)*e + Sqrt[d]*Sqrt[-d + 2*e])*ArcTan[(Sqrt[2]*Sq
rt[f]*x)/Sqrt[-d + e + I*Sqrt[d]*Sqrt[-d + 2*e]]])/Sqrt[-d + e + I*Sqrt[d]*Sqrt[-d + 2*e]])/(2*Sqrt[2]*Sqrt[d]
*Sqrt[-d + 2*e]*Sqrt[f])

________________________________________________________________________________________

fricas [A]  time = 0.75, size = 146, normalized size = 2.00 \[ \left [\frac {\sqrt {d f} \log \left (\frac {4 \, f^{2} x^{4} + 4 \, {\left (d + e\right )} f x^{2} + e^{2} + 4 \, {\left (2 \, f x^{3} + e x\right )} \sqrt {d f}}{4 \, f^{2} x^{4} - 4 \, {\left (d - e\right )} f x^{2} + e^{2}}\right )}{4 \, d f}, -\frac {\sqrt {-d f} \arctan \left (\frac {\sqrt {-d f} x}{d}\right ) - \sqrt {-d f} \arctan \left (\frac {{\left (2 \, f x^{3} - {\left (2 \, d - e\right )} x\right )} \sqrt {-d f}}{d e}\right )}{2 \, d f}\right ] \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-2*f*x^2+e)/(4*f^2*x^4-4*d*f*x^2+4*e*f*x^2+e^2),x, algorithm="fricas")

[Out]

[1/4*sqrt(d*f)*log((4*f^2*x^4 + 4*(d + e)*f*x^2 + e^2 + 4*(2*f*x^3 + e*x)*sqrt(d*f))/(4*f^2*x^4 - 4*(d - e)*f*
x^2 + e^2))/(d*f), -1/2*(sqrt(-d*f)*arctan(sqrt(-d*f)*x/d) - sqrt(-d*f)*arctan((2*f*x^3 - (2*d - e)*x)*sqrt(-d
*f)/(d*e)))/(d*f)]

________________________________________________________________________________________

giac [F(-2)]  time = 0.00, size = 0, normalized size = 0.00 \[ \text {Exception raised: TypeError} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-2*f*x^2+e)/(4*f^2*x^4-4*d*f*x^2+4*e*f*x^2+e^2),x, algorithm="giac")

[Out]

Exception raised: TypeError >> An error occurred running a Giac command:INPUT:sage2:=int(sage0,x):;OUTPUT:inde
x.cc index_m operator + Error: Bad Argument Valueindex.cc index_m operator + Error: Bad Argument Valueindex.cc
index_m operator + Error: Bad Argument ValueDone

________________________________________________________________________________________

maple [B]  time = 0.05, size = 394, normalized size = 5.40 \[ \frac {\sqrt {2}\, d f \arctanh \left (\frac {\sqrt {2}\, f x}{\sqrt {d f -e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}\right )}{4 \sqrt {\left (d -2 e \right ) d \,f^{2}}\, \sqrt {d f -e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}+\frac {\sqrt {2}\, d f \arctan \left (\frac {\sqrt {2}\, f x}{\sqrt {-d f +e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}\right )}{4 \sqrt {\left (d -2 e \right ) d \,f^{2}}\, \sqrt {-d f +e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}-\frac {\sqrt {2}\, e f \arctanh \left (\frac {\sqrt {2}\, f x}{\sqrt {d f -e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}\right )}{2 \sqrt {\left (d -2 e \right ) d \,f^{2}}\, \sqrt {d f -e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}-\frac {\sqrt {2}\, e f \arctan \left (\frac {\sqrt {2}\, f x}{\sqrt {-d f +e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}\right )}{2 \sqrt {\left (d -2 e \right ) d \,f^{2}}\, \sqrt {-d f +e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}+\frac {\sqrt {2}\, \arctanh \left (\frac {\sqrt {2}\, f x}{\sqrt {d f -e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}\right )}{4 \sqrt {d f -e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}-\frac {\sqrt {2}\, \arctan \left (\frac {\sqrt {2}\, f x}{\sqrt {-d f +e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}}\right )}{4 \sqrt {-d f +e f +\sqrt {\left (d -2 e \right ) d \,f^{2}}}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((-2*f*x^2+e)/(4*f^2*x^4-4*d*f*x^2+4*e*f*x^2+e^2),x)

[Out]

1/4*f/(d*f^2*(d-2*e))^(1/2)*2^(1/2)/(d*f-e*f+(d*f^2*(d-2*e))^(1/2))^(1/2)*arctanh(f*x*2^(1/2)/(d*f-e*f+(d*f^2*
(d-2*e))^(1/2))^(1/2))*d-1/2*f/(d*f^2*(d-2*e))^(1/2)*2^(1/2)/(d*f-e*f+(d*f^2*(d-2*e))^(1/2))^(1/2)*arctanh(f*x
*2^(1/2)/(d*f-e*f+(d*f^2*(d-2*e))^(1/2))^(1/2))*e+1/4*2^(1/2)/(d*f-e*f+(d*f^2*(d-2*e))^(1/2))^(1/2)*arctanh(f*
x*2^(1/2)/(d*f-e*f+(d*f^2*(d-2*e))^(1/2))^(1/2))+1/4*f/(d*f^2*(d-2*e))^(1/2)*2^(1/2)/(-d*f+e*f+(d*f^2*(d-2*e))
^(1/2))^(1/2)*arctan(f*x*2^(1/2)/(-d*f+e*f+(d*f^2*(d-2*e))^(1/2))^(1/2))*d-1/2*f/(d*f^2*(d-2*e))^(1/2)*2^(1/2)
/(-d*f+e*f+(d*f^2*(d-2*e))^(1/2))^(1/2)*arctan(f*x*2^(1/2)/(-d*f+e*f+(d*f^2*(d-2*e))^(1/2))^(1/2))*e-1/4*2^(1/
2)/(-d*f+e*f+(d*f^2*(d-2*e))^(1/2))^(1/2)*arctan(f*x*2^(1/2)/(-d*f+e*f+(d*f^2*(d-2*e))^(1/2))^(1/2))

________________________________________________________________________________________

maxima [F]  time = 0.00, size = 0, normalized size = 0.00 \[ -\int \frac {2 \, f x^{2} - e}{4 \, f^{2} x^{4} - 4 \, d f x^{2} + 4 \, e f x^{2} + e^{2}}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-2*f*x^2+e)/(4*f^2*x^4-4*d*f*x^2+4*e*f*x^2+e^2),x, algorithm="maxima")

[Out]

-integrate((2*f*x^2 - e)/(4*f^2*x^4 - 4*d*f*x^2 + 4*e*f*x^2 + e^2), x)

________________________________________________________________________________________

mupad [B]  time = 3.14, size = 28, normalized size = 0.38 \[ \frac {\mathrm {atanh}\left (\frac {2\,\sqrt {d}\,\sqrt {f}\,x}{2\,f\,x^2+e}\right )}{2\,\sqrt {d}\,\sqrt {f}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((e - 2*f*x^2)/(e^2 + 4*f^2*x^4 - 4*d*f*x^2 + 4*e*f*x^2),x)

[Out]

atanh((2*d^(1/2)*f^(1/2)*x)/(e + 2*f*x^2))/(2*d^(1/2)*f^(1/2))

________________________________________________________________________________________

sympy [A]  time = 0.58, size = 63, normalized size = 0.86 \[ - \frac {\sqrt {\frac {1}{d f}} \log {\left (- d x \sqrt {\frac {1}{d f}} + \frac {e}{2 f} + x^{2} \right )}}{4} + \frac {\sqrt {\frac {1}{d f}} \log {\left (d x \sqrt {\frac {1}{d f}} + \frac {e}{2 f} + x^{2} \right )}}{4} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((-2*f*x**2+e)/(4*f**2*x**4-4*d*f*x**2+4*e*f*x**2+e**2),x)

[Out]

-sqrt(1/(d*f))*log(-d*x*sqrt(1/(d*f)) + e/(2*f) + x**2)/4 + sqrt(1/(d*f))*log(d*x*sqrt(1/(d*f)) + e/(2*f) + x*
*2)/4

________________________________________________________________________________________