3.6.53 \(\int \frac {a+b F^{\frac {c \sqrt {d+e x}}{\sqrt {d f-e f x}}}}{d^2-e^2 x^2} \, dx\) [553]

Optimal. Leaf size=68 \[ \frac {b \text {Ei}\left (\frac {c \sqrt {d+e x} \log (F)}{\sqrt {d f-e f x}}\right )}{d e}+\frac {a \log \left (\frac {\sqrt {d+e x}}{\sqrt {d f-e f x}}\right )}{d e} \]

[Out]

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

________________________________________________________________________________________

Rubi [A]
time = 0.12, antiderivative size = 68, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 45, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.067, Rules used = {2329, 14, 2209} \begin {gather*} \frac {a \log \left (\frac {\sqrt {d+e x}}{\sqrt {d f-e f x}}\right )}{d e}+\frac {b \text {Ei}\left (\frac {c \sqrt {d+e x} \log (F)}{\sqrt {d f-e f x}}\right )}{d e} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(a + b*F^((c*Sqrt[d + e*x])/Sqrt[d*f - e*f*x]))/(d^2 - e^2*x^2),x]

[Out]

(b*ExpIntegralEi[(c*Sqrt[d + e*x]*Log[F])/Sqrt[d*f - e*f*x]])/(d*e) + (a*Log[Sqrt[d + e*x]/Sqrt[d*f - e*f*x]])
/(d*e)

Rule 14

Int[(u_)*((c_.)*(x_))^(m_.), x_Symbol] :> Int[ExpandIntegrand[(c*x)^m*u, x], x] /; FreeQ[{c, m}, x] && SumQ[u]
&&  !LinearQ[u, x] &&  !MatchQ[u, (a_) + (b_.)*(v_) /; FreeQ[{a, b}, x] && InverseFunctionQ[v]]

Rule 2209

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

Rule 2329

Int[((a_.) + (b_.)*(F_)^(((c_.)*Sqrt[(d_.) + (e_.)*(x_)])/Sqrt[(f_.) + (g_.)*(x_)]))^(n_.)/((A_) + (C_.)*(x_)^
2), x_Symbol] :> Dist[2*e*(g/(C*(e*f - d*g))), Subst[Int[(a + b*F^(c*x))^n/x, x], x, Sqrt[d + e*x]/Sqrt[f + g*
x]], x] /; FreeQ[{a, b, c, d, e, f, g, A, C, F}, x] && EqQ[C*d*f - A*e*g, 0] && EqQ[e*f + d*g, 0] && IGtQ[n, 0
]

Rubi steps

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

________________________________________________________________________________________

Mathematica [F]
time = 0.30, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {a+b F^{\frac {c \sqrt {d+e x}}{\sqrt {d f-e f x}}}}{d^2-e^2 x^2} \, dx \end {gather*}

Verification is not applicable to the result.

[In]

Integrate[(a + b*F^((c*Sqrt[d + e*x])/Sqrt[d*f - e*f*x]))/(d^2 - e^2*x^2),x]

[Out]

Integrate[(a + b*F^((c*Sqrt[d + e*x])/Sqrt[d*f - e*f*x]))/(d^2 - e^2*x^2), x]

________________________________________________________________________________________

Maple [F]
time = 0.01, size = 0, normalized size = 0.00 \[\int \frac {a +b \,F^{\frac {c \sqrt {e x +d}}{\sqrt {-e f x +d f}}}}{-e^{2} x^{2}+d^{2}}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a+b*F^(c*(e*x+d)^(1/2)/(-e*f*x+d*f)^(1/2)))/(-e^2*x^2+d^2),x)

[Out]

int((a+b*F^(c*(e*x+d)^(1/2)/(-e*f*x+d*f)^(1/2)))/(-e^2*x^2+d^2),x)

________________________________________________________________________________________

Maxima [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Failed to integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*F^(c*(e*x+d)^(1/2)/(-e*f*x+d*f)^(1/2)))/(-e^2*x^2+d^2),x, algorithm="maxima")

[Out]

1/2*a*(log(e*x + d)/(d*e) - log(e*x - d)/(d*e)) - b*integrate(F^(sqrt(e*x + d)*c/(sqrt(-e*x + d)*sqrt(f)))/(e^
2*x^2 - d^2), x)

________________________________________________________________________________________

Fricas [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*F^(c*(e*x+d)^(1/2)/(-e*f*x+d*f)^(1/2)))/(-e^2*x^2+d^2),x, algorithm="fricas")

[Out]

integral(-(a + b/F^(sqrt(-f*x*e + d*f)*sqrt(x*e + d)*c/(f*x*e - d*f)))/(x^2*e^2 - d^2), x)

________________________________________________________________________________________

Sympy [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} - \int \frac {a}{- d^{2} + e^{2} x^{2}}\, dx - \int \frac {F^{\frac {c \sqrt {d + e x}}{\sqrt {d f - e f x}}} b}{- d^{2} + e^{2} x^{2}}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*F**(c*(e*x+d)**(1/2)/(-e*f*x+d*f)**(1/2)))/(-e**2*x**2+d**2),x)

[Out]

-Integral(a/(-d**2 + e**2*x**2), x) - Integral(F**(c*sqrt(d + e*x)/sqrt(d*f - e*f*x))*b/(-d**2 + e**2*x**2), x
)

________________________________________________________________________________________

Giac [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*F^(c*(e*x+d)^(1/2)/(-e*f*x+d*f)^(1/2)))/(-e^2*x^2+d^2),x, algorithm="giac")

[Out]

integrate(-(F^(sqrt(x*e + d)*c/sqrt(-f*x*e + d*f))*b + a)/(x^2*e^2 - d^2), x)

________________________________________________________________________________________

Mupad [F]
time = 0.00, size = -1, normalized size = -0.01 \begin {gather*} \int \frac {a+b\,{\mathrm {e}}^{\frac {c\,\ln \left (F\right )\,\sqrt {d+e\,x}}{\sqrt {d\,f-e\,f\,x}}}}{d^2-e^2\,x^2} \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a + F^((c*(d + e*x)^(1/2))/(d*f - e*f*x)^(1/2))*b)/(d^2 - e^2*x^2),x)

[Out]

int((a + b*exp((c*log(F)*(d + e*x)^(1/2))/(d*f - e*f*x)^(1/2)))/(d^2 - e^2*x^2), x)

________________________________________________________________________________________