\(\int \frac {e^{d+e x}}{x (a+b x+c x^2)} \, dx\) [36]

Optimal result

Integrand size = 23, antiderivative size = 169 \[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=\frac {e^d \operatorname {ExpIntegralEi}(e x)}{a}-\frac {\left (1+\frac {b}{\sqrt {b^2-4 a c}}\right ) e^{d-\frac {\left (b-\sqrt {b^2-4 a c}\right ) e}{2 c}} \operatorname {ExpIntegralEi}\left (\frac {e \left (b-\sqrt {b^2-4 a c}+2 c x\right )}{2 c}\right )}{2 a}-\frac {\left (1-\frac {b}{\sqrt {b^2-4 a c}}\right ) e^{d-\frac {\left (b+\sqrt {b^2-4 a c}\right ) e}{2 c}} \operatorname {ExpIntegralEi}\left (\frac {e \left (b+\sqrt {b^2-4 a c}+2 c x\right )}{2 c}\right )}{2 a} \] Output:

exp(d)*Ei(e*x)/a-1/2*(1+b/(-4*a*c+b^2)^(1/2))*exp(d-1/2*(b-(-4*a*c+b^2)^(1 
/2))*e/c)*Ei(1/2*e*(b-(-4*a*c+b^2)^(1/2)+2*c*x)/c)/a-1/2*(1-b/(-4*a*c+b^2) 
^(1/2))*exp(d-1/2*(b+(-4*a*c+b^2)^(1/2))*e/c)*Ei(1/2*e*(b+(-4*a*c+b^2)^(1/ 
2)+2*c*x)/c)/a
 

Mathematica [A] (verified)

Time = 0.66 (sec) , antiderivative size = 163, normalized size of antiderivative = 0.96 \[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=\frac {e^d \left (2 \operatorname {ExpIntegralEi}(e x)+\frac {e^{-\frac {\left (b+\sqrt {b^2-4 a c}\right ) e}{2 c}} \left (-\left (\left (b+\sqrt {b^2-4 a c}\right ) e^{\frac {\sqrt {b^2-4 a c} e}{c}} \operatorname {ExpIntegralEi}\left (\frac {e \left (b-\sqrt {b^2-4 a c}+2 c x\right )}{2 c}\right )\right )+\left (b-\sqrt {b^2-4 a c}\right ) \operatorname {ExpIntegralEi}\left (\frac {e \left (b+\sqrt {b^2-4 a c}+2 c x\right )}{2 c}\right )\right )}{\sqrt {b^2-4 a c}}\right )}{2 a} \] Input:

Integrate[E^(d + e*x)/(x*(a + b*x + c*x^2)),x]
 

Output:

(E^d*(2*ExpIntegralEi[e*x] + (-((b + Sqrt[b^2 - 4*a*c])*E^((Sqrt[b^2 - 4*a 
*c]*e)/c)*ExpIntegralEi[(e*(b - Sqrt[b^2 - 4*a*c] + 2*c*x))/(2*c)]) + (b - 
 Sqrt[b^2 - 4*a*c])*ExpIntegralEi[(e*(b + Sqrt[b^2 - 4*a*c] + 2*c*x))/(2*c 
)])/(Sqrt[b^2 - 4*a*c]*E^(((b + Sqrt[b^2 - 4*a*c])*e)/(2*c)))))/(2*a)
 

Rubi [A] (verified)

Time = 0.90 (sec) , antiderivative size = 169, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.087, Rules used = {2700, 2009}

Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.

\(\displaystyle \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx\)

\(\Big \downarrow \) 2700

\(\displaystyle \int \left (\frac {(-b-c x) e^{d+e x}}{a \left (a+b x+c x^2\right )}+\frac {e^{d+e x}}{a x}\right )dx\)

\(\Big \downarrow \) 2009

\(\displaystyle -\frac {\left (\frac {b}{\sqrt {b^2-4 a c}}+1\right ) e^{d-\frac {e \left (b-\sqrt {b^2-4 a c}\right )}{2 c}} \operatorname {ExpIntegralEi}\left (\frac {e \left (b+2 c x-\sqrt {b^2-4 a c}\right )}{2 c}\right )}{2 a}-\frac {\left (1-\frac {b}{\sqrt {b^2-4 a c}}\right ) e^{d-\frac {e \left (\sqrt {b^2-4 a c}+b\right )}{2 c}} \operatorname {ExpIntegralEi}\left (\frac {e \left (b+2 c x+\sqrt {b^2-4 a c}\right )}{2 c}\right )}{2 a}+\frac {e^d \operatorname {ExpIntegralEi}(e x)}{a}\)

Input:

Int[E^(d + e*x)/(x*(a + b*x + c*x^2)),x]
 

Output:

(E^d*ExpIntegralEi[e*x])/a - ((1 + b/Sqrt[b^2 - 4*a*c])*E^(d - ((b - Sqrt[ 
b^2 - 4*a*c])*e)/(2*c))*ExpIntegralEi[(e*(b - Sqrt[b^2 - 4*a*c] + 2*c*x))/ 
(2*c)])/(2*a) - ((1 - b/Sqrt[b^2 - 4*a*c])*E^(d - ((b + Sqrt[b^2 - 4*a*c]) 
*e)/(2*c))*ExpIntegralEi[(e*(b + Sqrt[b^2 - 4*a*c] + 2*c*x))/(2*c)])/(2*a)
 

Defintions of rubi rules used

rule 2009

Int[u_, x_Symbol] :> Simp[IntSum[u, x], x] /; SumQ[u]
 

rule 2700

Int[((F_)^((g_.)*((d_.) + (e_.)*(x_))^(n_.))*(u_)^(m_.))/((a_.) + (b_.)*(x_ 
) + (c_)*(x_)^2), x_Symbol] :> Int[ExpandIntegrand[F^(g*(d + e*x)^n), u^m/( 
a + b*x + c*x^2), x], x] /; FreeQ[{F, a, b, c, d, e, g, n}, x] && Polynomia 
lQ[u, x] && IntegerQ[m]
 

Maple [B] (verified)

Leaf count of result is larger than twice the leaf count of optimal. \(362\) vs. \(2(142)=284\).

Time = 0.06 (sec) , antiderivative size = 363, normalized size of antiderivative = 2.15

method	result	size
risch	\(\frac {{\mathrm e}^{-\frac {b e -2 c d -\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (\frac {-b e +2 c d -2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) b e}{2 a \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}-\frac {{\mathrm e}^{-\frac {b e -2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (-\frac {b e -2 c d +2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) b e}{2 a \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}+\frac {{\mathrm e}^{-\frac {b e -2 c d -\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (\frac {-b e +2 c d -2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right )}{2 a}+\frac {{\mathrm e}^{-\frac {b e -2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (-\frac {b e -2 c d +2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right )}{2 a}-\frac {{\mathrm e}^{d} \operatorname {expIntegral}_{1}\left (-e x \right )}{a}\)	\(363\)
derivativedivides	\(\frac {{\mathrm e}^{\frac {-b e +2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (\frac {-b e +2 c d -2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) b e -{\mathrm e}^{-\frac {b e -2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (-\frac {b e -2 c d +2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) b e +{\mathrm e}^{\frac {-b e +2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (\frac {-b e +2 c d -2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}+{\mathrm e}^{-\frac {b e -2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (-\frac {b e -2 c d +2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 a \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}-\frac {{\mathrm e}^{d} \operatorname {expIntegral}_{1}\left (-e x \right )}{a}\)	\(369\)
default	\(\frac {{\mathrm e}^{\frac {-b e +2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (\frac {-b e +2 c d -2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) b e -{\mathrm e}^{-\frac {b e -2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (-\frac {b e -2 c d +2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) b e +{\mathrm e}^{\frac {-b e +2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (\frac {-b e +2 c d -2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}+{\mathrm e}^{-\frac {b e -2 c d +\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}} \operatorname {expIntegral}_{1}\left (-\frac {b e -2 c d +2 c \left (e x +d \right )+\sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 c}\right ) \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}{2 a \sqrt {-4 a c \,e^{2}+b^{2} e^{2}}}-\frac {{\mathrm e}^{d} \operatorname {expIntegral}_{1}\left (-e x \right )}{a}\)	\(369\)

Input:

int(exp(e*x+d)/x/(c*x^2+b*x+a),x,method=_RETURNVERBOSE)
 

Output:

1/2/a/(-4*a*c*e^2+b^2*e^2)^(1/2)*exp(-1/2/c*(b*e-2*c*d-(-4*a*c*e^2+b^2*e^2 
)^(1/2)))*Ei(1,1/2*(-b*e+2*c*d-2*c*(e*x+d)+(-4*a*c*e^2+b^2*e^2)^(1/2))/c)* 
b*e-1/2/a/(-4*a*c*e^2+b^2*e^2)^(1/2)*exp(-1/2*(b*e-2*c*d+(-4*a*c*e^2+b^2*e 
^2)^(1/2))/c)*Ei(1,-1/2*(b*e-2*c*d+2*c*(e*x+d)+(-4*a*c*e^2+b^2*e^2)^(1/2)) 
/c)*b*e+1/2/a*exp(-1/2/c*(b*e-2*c*d-(-4*a*c*e^2+b^2*e^2)^(1/2)))*Ei(1,1/2* 
(-b*e+2*c*d-2*c*(e*x+d)+(-4*a*c*e^2+b^2*e^2)^(1/2))/c)+1/2/a*exp(-1/2*(b*e 
-2*c*d+(-4*a*c*e^2+b^2*e^2)^(1/2))/c)*Ei(1,-1/2*(b*e-2*c*d+2*c*(e*x+d)+(-4 
*a*c*e^2+b^2*e^2)^(1/2))/c)-1/a*exp(d)*Ei(1,-e*x)
 

Fricas [A] (verification not implemented)

Time = 0.09 (sec) , antiderivative size = 241, normalized size of antiderivative = 1.43 \[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=\frac {2 \, {\left (b^{2} - 4 \, a c\right )} e {\rm Ei}\left (e x\right ) e^{d} - {\left (b c \sqrt {\frac {{\left (b^{2} - 4 \, a c\right )} e^{2}}{c^{2}}} + {\left (b^{2} - 4 \, a c\right )} e\right )} {\rm Ei}\left (\frac {2 \, c e x + b e - c \sqrt {\frac {{\left (b^{2} - 4 \, a c\right )} e^{2}}{c^{2}}}}{2 \, c}\right ) e^{\left (\frac {2 \, c d - b e + c \sqrt {\frac {{\left (b^{2} - 4 \, a c\right )} e^{2}}{c^{2}}}}{2 \, c}\right )} + {\left (b c \sqrt {\frac {{\left (b^{2} - 4 \, a c\right )} e^{2}}{c^{2}}} - {\left (b^{2} - 4 \, a c\right )} e\right )} {\rm Ei}\left (\frac {2 \, c e x + b e + c \sqrt {\frac {{\left (b^{2} - 4 \, a c\right )} e^{2}}{c^{2}}}}{2 \, c}\right ) e^{\left (\frac {2 \, c d - b e - c \sqrt {\frac {{\left (b^{2} - 4 \, a c\right )} e^{2}}{c^{2}}}}{2 \, c}\right )}}{2 \, {\left (a b^{2} - 4 \, a^{2} c\right )} e} \] Input:

integrate(exp(e*x+d)/x/(c*x^2+b*x+a),x, algorithm="fricas")
 

Output:

1/2*(2*(b^2 - 4*a*c)*e*Ei(e*x)*e^d - (b*c*sqrt((b^2 - 4*a*c)*e^2/c^2) + (b 
^2 - 4*a*c)*e)*Ei(1/2*(2*c*e*x + b*e - c*sqrt((b^2 - 4*a*c)*e^2/c^2))/c)*e 
^(1/2*(2*c*d - b*e + c*sqrt((b^2 - 4*a*c)*e^2/c^2))/c) + (b*c*sqrt((b^2 - 
4*a*c)*e^2/c^2) - (b^2 - 4*a*c)*e)*Ei(1/2*(2*c*e*x + b*e + c*sqrt((b^2 - 4 
*a*c)*e^2/c^2))/c)*e^(1/2*(2*c*d - b*e - c*sqrt((b^2 - 4*a*c)*e^2/c^2))/c) 
)/((a*b^2 - 4*a^2*c)*e)
 

Sympy [F]

\[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=e^{d} \int \frac {e^{e x}}{a x + b x^{2} + c x^{3}}\, dx \] Input:

integrate(exp(e*x+d)/x/(c*x**2+b*x+a),x)
 

Output:

exp(d)*Integral(exp(e*x)/(a*x + b*x**2 + c*x**3), x)
 

Maxima [F]

\[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=\int { \frac {e^{\left (e x + d\right )}}{{\left (c x^{2} + b x + a\right )} x} \,d x } \] Input:

integrate(exp(e*x+d)/x/(c*x^2+b*x+a),x, algorithm="maxima")
 

Output:

integrate(e^(e*x + d)/((c*x^2 + b*x + a)*x), x)
 

Giac [F]

\[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=\int { \frac {e^{\left (e x + d\right )}}{{\left (c x^{2} + b x + a\right )} x} \,d x } \] Input:

integrate(exp(e*x+d)/x/(c*x^2+b*x+a),x, algorithm="giac")
 

Output:

integrate(e^(e*x + d)/((c*x^2 + b*x + a)*x), x)
                                                                                    
                                                                                    
 

Mupad [F(-1)]

Timed out. \[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=\int \frac {{\mathrm {e}}^{d+e\,x}}{x\,\left (c\,x^2+b\,x+a\right )} \,d x \] Input:

int(exp(d + e*x)/(x*(a + b*x + c*x^2)),x)
 

Output:

int(exp(d + e*x)/(x*(a + b*x + c*x^2)), x)
 

Reduce [F]

\[ \int \frac {e^{d+e x}}{x \left (a+b x+c x^2\right )} \, dx=e^{d} \left (\int \frac {e^{e x}}{c \,x^{3}+b \,x^{2}+a x}d x \right ) \] Input:

int(exp(e*x+d)/x/(c*x^2+b*x+a),x)
 

Output:

e**d*int(e**(e*x)/(a*x + b*x**2 + c*x**3),x)