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

Optimal. Leaf size=145 \[ \frac {\sqrt {d} e^{a+\frac {b \sqrt {-c}}{\sqrt {d}}} \text {Ei}\left (-\frac {b \left (\sqrt {-c}-\sqrt {d} x\right )}{\sqrt {d}}\right )}{2 (-c)^{3/2}}-\frac {\sqrt {d} e^{a-\frac {b \sqrt {-c}}{\sqrt {d}}} \text {Ei}\left (\frac {b \left (\sqrt {d} x+\sqrt {-c}\right )}{\sqrt {d}}\right )}{2 (-c)^{3/2}}+\frac {e^a b \text {Ei}(b x)}{c}-\frac {e^{a+b x}}{c x} \]

[Out]

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

________________________________________________________________________________________

Rubi [A]  time = 0.35, antiderivative size = 145, normalized size of antiderivative = 1.00, number of steps used = 8, number of rules used = 4, integrand size = 20, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.200, Rules used = {2271, 2177, 2178, 2269} \[ \frac {\sqrt {d} e^{a+\frac {b \sqrt {-c}}{\sqrt {d}}} \text {Ei}\left (-\frac {b \left (\sqrt {-c}-\sqrt {d} x\right )}{\sqrt {d}}\right )}{2 (-c)^{3/2}}-\frac {\sqrt {d} e^{a-\frac {b \sqrt {-c}}{\sqrt {d}}} \text {Ei}\left (\frac {b \left (\sqrt {d} x+\sqrt {-c}\right )}{\sqrt {d}}\right )}{2 (-c)^{3/2}}+\frac {e^a b \text {Ei}(b x)}{c}-\frac {e^{a+b x}}{c x} \]

Antiderivative was successfully verified.

[In]

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

[Out]

-(E^(a + b*x)/(c*x)) + (b*E^a*ExpIntegralEi[b*x])/c + (Sqrt[d]*E^(a + (b*Sqrt[-c])/Sqrt[d])*ExpIntegralEi[-((b
*(Sqrt[-c] - Sqrt[d]*x))/Sqrt[d])])/(2*(-c)^(3/2)) - (Sqrt[d]*E^(a - (b*Sqrt[-c])/Sqrt[d])*ExpIntegralEi[(b*(S
qrt[-c] + Sqrt[d]*x))/Sqrt[d]])/(2*(-c)^(3/2))

Rule 2177

Int[((b_.)*(F_)^((g_.)*((e_.) + (f_.)*(x_))))^(n_.)*((c_.) + (d_.)*(x_))^(m_), x_Symbol] :> Simp[((c + d*x)^(m
+ 1)*(b*F^(g*(e + f*x)))^n)/(d*(m + 1)), x] - Dist[(f*g*n*Log[F])/(d*(m + 1)), Int[(c + d*x)^(m + 1)*(b*F^(g*
(e + f*x)))^n, x], x] /; FreeQ[{F, b, c, d, e, f, g, n}, x] && LtQ[m, -1] && IntegerQ[2*m] &&  !$UseGamma ===
True

Rule 2178

Int[(F_)^((g_.)*((e_.) + (f_.)*(x_)))/((c_.) + (d_.)*(x_)), x_Symbol] :> Simp[(F^(g*(e - (c*f)/d))*ExpIntegral
Ei[(f*g*(c + d*x)*Log[F])/d])/d, x] /; FreeQ[{F, c, d, e, f, g}, x] &&  !$UseGamma === True

Rule 2269

Int[(F_)^((g_.)*((d_.) + (e_.)*(x_))^(n_.))/((a_) + (c_.)*(x_)^2), x_Symbol] :> Int[ExpandIntegrand[F^(g*(d +
e*x)^n), 1/(a + c*x^2), x], x] /; FreeQ[{F, a, c, d, e, g, n}, x]

Rule 2271

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

Rubi steps

\begin {align*} \int \frac {e^{a+b x}}{x^2 \left (c+d x^2\right )} \, dx &=\int \left (\frac {e^{a+b x}}{c x^2}-\frac {d e^{a+b x}}{c \left (c+d x^2\right )}\right ) \, dx\\ &=\frac {\int \frac {e^{a+b x}}{x^2} \, dx}{c}-\frac {d \int \frac {e^{a+b x}}{c+d x^2} \, dx}{c}\\ &=-\frac {e^{a+b x}}{c x}+\frac {b \int \frac {e^{a+b x}}{x} \, dx}{c}-\frac {d \int \left (\frac {\sqrt {-c} e^{a+b x}}{2 c \left (\sqrt {-c}-\sqrt {d} x\right )}+\frac {\sqrt {-c} e^{a+b x}}{2 c \left (\sqrt {-c}+\sqrt {d} x\right )}\right ) \, dx}{c}\\ &=-\frac {e^{a+b x}}{c x}+\frac {b e^a \text {Ei}(b x)}{c}-\frac {d \int \frac {e^{a+b x}}{\sqrt {-c}-\sqrt {d} x} \, dx}{2 (-c)^{3/2}}-\frac {d \int \frac {e^{a+b x}}{\sqrt {-c}+\sqrt {d} x} \, dx}{2 (-c)^{3/2}}\\ &=-\frac {e^{a+b x}}{c x}+\frac {b e^a \text {Ei}(b x)}{c}+\frac {\sqrt {d} e^{a+\frac {b \sqrt {-c}}{\sqrt {d}}} \text {Ei}\left (-\frac {b \left (\sqrt {-c}-\sqrt {d} x\right )}{\sqrt {d}}\right )}{2 (-c)^{3/2}}-\frac {\sqrt {d} e^{a-\frac {b \sqrt {-c}}{\sqrt {d}}} \text {Ei}\left (\frac {b \left (\sqrt {-c}+\sqrt {d} x\right )}{\sqrt {d}}\right )}{2 (-c)^{3/2}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [C]  time = 0.29, size = 133, normalized size = 0.92 \[ \frac {e^a \left (i \sqrt {d} x e^{\frac {i b \sqrt {c}}{\sqrt {d}}} \text {Ei}\left (b \left (x-\frac {i \sqrt {c}}{\sqrt {d}}\right )\right )-i \sqrt {d} x e^{-\frac {i b \sqrt {c}}{\sqrt {d}}} \text {Ei}\left (b \left (x+\frac {i \sqrt {c}}{\sqrt {d}}\right )\right )+2 b \sqrt {c} x \text {Ei}(b x)-2 \sqrt {c} e^{b x}\right )}{2 c^{3/2} x} \]

Antiderivative was successfully verified.

[In]

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

[Out]

(E^a*(-2*Sqrt[c]*E^(b*x) + 2*b*Sqrt[c]*x*ExpIntegralEi[b*x] + I*Sqrt[d]*E^((I*b*Sqrt[c])/Sqrt[d])*x*ExpIntegra
lEi[b*(((-I)*Sqrt[c])/Sqrt[d] + x)] - (I*Sqrt[d]*x*ExpIntegralEi[b*((I*Sqrt[c])/Sqrt[d] + x)])/E^((I*b*Sqrt[c]
)/Sqrt[d])))/(2*c^(3/2)*x)

________________________________________________________________________________________

fricas [A]  time = 0.43, size = 128, normalized size = 0.88 \[ \frac {2 \, b^{2} c x {\rm Ei}\left (b x\right ) e^{a} + \sqrt {-\frac {b^{2} c}{d}} d x {\rm Ei}\left (b x - \sqrt {-\frac {b^{2} c}{d}}\right ) e^{\left (a + \sqrt {-\frac {b^{2} c}{d}}\right )} - \sqrt {-\frac {b^{2} c}{d}} d x {\rm Ei}\left (b x + \sqrt {-\frac {b^{2} c}{d}}\right ) e^{\left (a - \sqrt {-\frac {b^{2} c}{d}}\right )} - 2 \, b c e^{\left (b x + a\right )}}{2 \, b c^{2} x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \frac {e^{\left (b x + a\right )}}{{\left (d x^{2} + c\right )} x^{2}}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

maple [A]  time = 0.04, size = 142, normalized size = 0.98 \[ \left (-\frac {\Ei \left (1, -b x \right ) {\mathrm e}^{a}}{c}+\frac {\left (\Ei \left (1, \frac {a d +\sqrt {-c d}\, b -\left (b x +a \right ) d}{d}\right ) {\mathrm e}^{\frac {a d +\sqrt {-c d}\, b}{d}}-\Ei \left (1, -\frac {-a d +\sqrt {-c d}\, b +\left (b x +a \right ) d}{d}\right ) {\mathrm e}^{-\frac {-a d +\sqrt {-c d}\, b}{d}}\right ) d}{2 \sqrt {-c d}\, b c}-\frac {{\mathrm e}^{b x +a}}{b c x}\right ) b \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

maxima [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \frac {e^{\left (b x + a\right )}}{{\left (d x^{2} + c\right )} x^{2}}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.01 \[ \int \frac {{\mathrm {e}}^{a+b\,x}}{x^2\,\left (d\,x^2+c\right )} \,d x \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \[ e^{a} \int \frac {e^{b x}}{c x^{2} + d x^{4}}\, dx \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________