\(\int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4))}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} (e^4-2 e^2 x+x^2)+e^{\frac {23 x+\log (4)}{e^2-x}} (-2 e^4 x^2+4 e^2 x^3-2 x^4)} \, dx\) [217]

Optimal result
Mathematica [A] (verified)
Rubi [A] (verified)
Maple [A] (verified)
Fricas [A] (verification not implemented)
Sympy [A] (verification not implemented)
Maxima [A] (verification not implemented)
Giac [F]
Mupad [B] (verification not implemented)
Reduce [F]

Optimal result

Integrand size = 140, antiderivative size = 33 \[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx=5-\frac {x^2}{e^{\frac {23 x+\log (4)}{e^2-x}}-x^2} \] Output:

5-x^2/(exp((2*ln(2)+23*x)/(exp(2)-x))-x^2)
                                                                                    
                                                                                    
 

Mathematica [A] (verified)

Time = 0.07 (sec) , antiderivative size = 49, normalized size of antiderivative = 1.48 \[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx=-\frac {e^{23} x^2}{4^{-\frac {1}{-e^2+x}} e^{-\frac {23 e^2}{-e^2+x}}-e^{23} x^2} \] Input:

Integrate[(E^((23*x + Log[4])/(E^2 - x))*(-2*E^4*x + 27*E^2*x^2 - 2*x^3 + 
x^2*Log[4]))/(E^4*x^4 - 2*E^2*x^5 + x^6 + E^((2*(23*x + Log[4]))/(E^2 - x) 
)*(E^4 - 2*E^2*x + x^2) + E^((23*x + Log[4])/(E^2 - x))*(-2*E^4*x^2 + 4*E^ 
2*x^3 - 2*x^4)),x]
 

Output:

-((E^23*x^2)/(1/(4^(-E^2 + x)^(-1)*E^((23*E^2)/(-E^2 + x))) - E^23*x^2))
 

Rubi [A] (verified)

Time = 2.83 (sec) , antiderivative size = 34, normalized size of antiderivative = 1.03, number of steps used = 6, number of rules used = 5, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.036, Rules used = {6, 2028, 7292, 7262, 17}

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^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 x^3+27 e^2 x^2+x^2 \log (4)-2 e^4 x\right )}{x^6-2 e^2 x^5+e^4 x^4+\left (x^2-2 e^2 x+e^4\right ) e^{\frac {2 (23 x+\log (4))}{e^2-x}}+\left (-2 x^4+4 e^2 x^3-2 e^4 x^2\right ) e^{\frac {23 x+\log (4)}{e^2-x}}} \, dx\)

\(\Big \downarrow \) 6

\(\displaystyle \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 x^3+x^2 \left (27 e^2+\log (4)\right )-2 e^4 x\right )}{x^6-2 e^2 x^5+e^4 x^4+\left (x^2-2 e^2 x+e^4\right ) e^{\frac {2 (23 x+\log (4))}{e^2-x}}+\left (-2 x^4+4 e^2 x^3-2 e^4 x^2\right ) e^{\frac {23 x+\log (4)}{e^2-x}}}dx\)

\(\Big \downarrow \) 2028

\(\displaystyle \int \frac {x e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 x^2+x \left (27 e^2+\log (4)\right )-2 e^4\right )}{x^6-2 e^2 x^5+e^4 x^4+\left (x^2-2 e^2 x+e^4\right ) e^{\frac {2 (23 x+\log (4))}{e^2-x}}+\left (-2 x^4+4 e^2 x^3-2 e^4 x^2\right ) e^{\frac {23 x+\log (4)}{e^2-x}}}dx\)

\(\Big \downarrow \) 7292

\(\displaystyle \int \frac {x e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 x^2+x \left (27 e^2+\log (4)\right )-2 e^4\right )}{\left (e^2-x\right )^2 \left (4^{\frac {1}{e^2-x}} e^{\frac {23 x}{e^2-x}}-x^2\right )^2}dx\)

\(\Big \downarrow \) 7262

\(\displaystyle \int \frac {1}{\left (\frac {4^{\frac {1}{e^2-x}} e^{\frac {23 x}{e^2-x}}}{x^2}-1\right )^2}d\frac {4^{\frac {1}{e^2-x}} e^{\frac {23 x}{e^2-x}}}{x^2}\)

\(\Big \downarrow \) 17

\(\displaystyle \frac {1}{1-\frac {4^{\frac {1}{e^2-x}} e^{\frac {23 x}{e^2-x}}}{x^2}}\)

Input:

Int[(E^((23*x + Log[4])/(E^2 - x))*(-2*E^4*x + 27*E^2*x^2 - 2*x^3 + x^2*Lo 
g[4]))/(E^4*x^4 - 2*E^2*x^5 + x^6 + E^((2*(23*x + Log[4]))/(E^2 - x))*(E^4 
 - 2*E^2*x + x^2) + E^((23*x + Log[4])/(E^2 - x))*(-2*E^4*x^2 + 4*E^2*x^3 
- 2*x^4)),x]
 

Output:

(1 - (4^(E^2 - x)^(-1)*E^((23*x)/(E^2 - x)))/x^2)^(-1)
 

Defintions of rubi rules used

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

rule 17
Int[(c_.)*((a_.) + (b_.)*(x_))^(m_.), x_Symbol] :> Simp[c*((a + b*x)^(m + 1 
)/(b*(m + 1))), x] /; FreeQ[{a, b, c, m}, x] && NeQ[m, -1]
 

rule 2028
Int[(Fx_.)*((a_.)*(x_)^(r_.) + (b_.)*(x_)^(s_.) + (c_.)*(x_)^(t_.))^(p_.), 
x_Symbol] :> Int[x^(p*r)*(a + b*x^(s - r) + c*x^(t - r))^p*Fx, x] /; FreeQ[ 
{a, b, c, r, s, t}, x] && IntegerQ[p] && PosQ[s - r] && PosQ[t - r] &&  !(E 
qQ[p, 1] && EqQ[u, 1])
 

rule 7262
Int[(u_)*((a_.)*(v_)^(p_.) + (b_.)*(w_)^(q_.))^(m_.), x_Symbol] :> With[{c 
= Simplify[u/(p*w*D[v, x] - q*v*D[w, x])]}, Simp[c*p   Subst[Int[(b + a*x^p 
)^m, x], x, v*w^(m*q + 1)], x] /; FreeQ[c, x]] /; FreeQ[{a, b, m, p, q}, x] 
 && EqQ[p + q*(m*p + 1), 0] && IntegerQ[p] && IntegerQ[m]
 

rule 7292
Int[u_, x_Symbol] :> With[{v = NormalizeIntegrand[u, x]}, Int[v, x] /; v =! 
= u]
 
Maple [A] (verified)

Time = 4.38 (sec) , antiderivative size = 31, normalized size of antiderivative = 0.94

method result size
risch \(\frac {x^{2}}{x^{2}-{\mathrm e}^{\frac {2 \ln \left (2\right )+23 x}{{\mathrm e}^{2}-x}}}\) \(31\)
parallelrisch \(\frac {x^{2}}{x^{2}-{\mathrm e}^{\frac {2 \ln \left (2\right )+23 x}{{\mathrm e}^{2}-x}}}\) \(31\)
norman \(\frac {-x \,{\mathrm e}^{\frac {2 \ln \left (2\right )+23 x}{{\mathrm e}^{2}-x}}+{\mathrm e}^{2} {\mathrm e}^{\frac {2 \ln \left (2\right )+23 x}{{\mathrm e}^{2}-x}}}{\left (x^{2}-{\mathrm e}^{\frac {2 \ln \left (2\right )+23 x}{{\mathrm e}^{2}-x}}\right ) \left ({\mathrm e}^{2}-x \right )}\) \(79\)

Input:

int((2*x^2*ln(2)-2*x*exp(2)^2+27*x^2*exp(2)-2*x^3)*exp((2*ln(2)+23*x)/(exp 
(2)-x))/((exp(2)^2-2*exp(2)*x+x^2)*exp((2*ln(2)+23*x)/(exp(2)-x))^2+(-2*x^ 
2*exp(2)^2+4*x^3*exp(2)-2*x^4)*exp((2*ln(2)+23*x)/(exp(2)-x))+x^4*exp(2)^2 
-2*exp(2)*x^5+x^6),x,method=_RETURNVERBOSE)
 

Output:

x^2/(x^2-exp((2*ln(2)+23*x)/(exp(2)-x)))
 

Fricas [A] (verification not implemented)

Time = 0.09 (sec) , antiderivative size = 31, normalized size of antiderivative = 0.94 \[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx=\frac {x^{2}}{x^{2} - e^{\left (-\frac {23 \, x + 2 \, \log \left (2\right )}{x - e^{2}}\right )}} \] Input:

integrate((2*x^2*log(2)-2*x*exp(2)^2+27*x^2*exp(2)-2*x^3)*exp((2*log(2)+23 
*x)/(exp(2)-x))/((exp(2)^2-2*exp(2)*x+x^2)*exp((2*log(2)+23*x)/(exp(2)-x)) 
^2+(-2*x^2*exp(2)^2+4*x^3*exp(2)-2*x^4)*exp((2*log(2)+23*x)/(exp(2)-x))+x^ 
4*exp(2)^2-2*exp(2)*x^5+x^6),x, algorithm="fricas")
 

Output:

x^2/(x^2 - e^(-(23*x + 2*log(2))/(x - e^2)))
                                                                                    
                                                                                    
 

Sympy [A] (verification not implemented)

Time = 0.11 (sec) , antiderivative size = 22, normalized size of antiderivative = 0.67 \[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx=- \frac {x^{2}}{- x^{2} + e^{\frac {23 x + 2 \log {\left (2 \right )}}{- x + e^{2}}}} \] Input:

integrate((2*x**2*ln(2)-2*x*exp(2)**2+27*x**2*exp(2)-2*x**3)*exp((2*ln(2)+ 
23*x)/(exp(2)-x))/((exp(2)**2-2*exp(2)*x+x**2)*exp((2*ln(2)+23*x)/(exp(2)- 
x))**2+(-2*x**2*exp(2)**2+4*x**3*exp(2)-2*x**4)*exp((2*ln(2)+23*x)/(exp(2) 
-x))+x**4*exp(2)**2-2*exp(2)*x**5+x**6),x)
 

Output:

-x**2/(-x**2 + exp((23*x + 2*log(2))/(-x + exp(2))))
 

Maxima [A] (verification not implemented)

Time = 0.23 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.06 \[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx=\frac {1}{x^{2} e^{\left (\frac {23 \, e^{2}}{x - e^{2}} + \frac {2 \, \log \left (2\right )}{x - e^{2}} + 23\right )} - 1} \] Input:

integrate((2*x^2*log(2)-2*x*exp(2)^2+27*x^2*exp(2)-2*x^3)*exp((2*log(2)+23 
*x)/(exp(2)-x))/((exp(2)^2-2*exp(2)*x+x^2)*exp((2*log(2)+23*x)/(exp(2)-x)) 
^2+(-2*x^2*exp(2)^2+4*x^3*exp(2)-2*x^4)*exp((2*log(2)+23*x)/(exp(2)-x))+x^ 
4*exp(2)^2-2*exp(2)*x^5+x^6),x, algorithm="maxima")
 

Output:

1/(x^2*e^(23*e^2/(x - e^2) + 2*log(2)/(x - e^2) + 23) - 1)
 

Giac [F]

\[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx=\int { -\frac {{\left (2 \, x^{3} - 27 \, x^{2} e^{2} - 2 \, x^{2} \log \left (2\right ) + 2 \, x e^{4}\right )} e^{\left (-\frac {23 \, x + 2 \, \log \left (2\right )}{x - e^{2}}\right )}}{x^{6} - 2 \, x^{5} e^{2} + x^{4} e^{4} - 2 \, {\left (x^{4} - 2 \, x^{3} e^{2} + x^{2} e^{4}\right )} e^{\left (-\frac {23 \, x + 2 \, \log \left (2\right )}{x - e^{2}}\right )} + {\left (x^{2} - 2 \, x e^{2} + e^{4}\right )} e^{\left (-\frac {2 \, {\left (23 \, x + 2 \, \log \left (2\right )\right )}}{x - e^{2}}\right )}} \,d x } \] Input:

integrate((2*x^2*log(2)-2*x*exp(2)^2+27*x^2*exp(2)-2*x^3)*exp((2*log(2)+23 
*x)/(exp(2)-x))/((exp(2)^2-2*exp(2)*x+x^2)*exp((2*log(2)+23*x)/(exp(2)-x)) 
^2+(-2*x^2*exp(2)^2+4*x^3*exp(2)-2*x^4)*exp((2*log(2)+23*x)/(exp(2)-x))+x^ 
4*exp(2)^2-2*exp(2)*x^5+x^6),x, algorithm="giac")
 

Output:

integrate(-(2*x^3 - 27*x^2*e^2 - 2*x^2*log(2) + 2*x*e^4)*e^(-(23*x + 2*log 
(2))/(x - e^2))/(x^6 - 2*x^5*e^2 + x^4*e^4 - 2*(x^4 - 2*x^3*e^2 + x^2*e^4) 
*e^(-(23*x + 2*log(2))/(x - e^2)) + (x^2 - 2*x*e^2 + e^4)*e^(-2*(23*x + 2* 
log(2))/(x - e^2))), x)
 

Mupad [B] (verification not implemented)

Time = 3.09 (sec) , antiderivative size = 164, normalized size of antiderivative = 4.97 \[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx=-\frac {x^3\,{\left (x^2-2\,{\mathrm {e}}^2\,x+{\mathrm {e}}^4\right )}^2\,\left (2\,{\mathrm {e}}^4-27\,x\,{\mathrm {e}}^2-2\,x\,\ln \left (2\right )+2\,x^2\right )}{\left (\frac {{\mathrm {e}}^{-\frac {23\,x}{x-{\mathrm {e}}^2}}}{2^{\frac {2}{x-{\mathrm {e}}^2}}}-x^2\right )\,\left (2\,x\,{\mathrm {e}}^{12}-35\,x^6\,{\mathrm {e}}^2+122\,x^5\,{\mathrm {e}}^4-178\,x^4\,{\mathrm {e}}^6+122\,x^3\,{\mathrm {e}}^8-35\,x^2\,{\mathrm {e}}^{10}-x^6\,\ln \left (4\right )+2\,x^7+4\,x^5\,{\mathrm {e}}^2\,\ln \left (4\right )-6\,x^4\,{\mathrm {e}}^4\,\ln \left (4\right )+4\,x^3\,{\mathrm {e}}^6\,\ln \left (4\right )-x^2\,{\mathrm {e}}^8\,\ln \left (4\right )\right )} \] Input:

int(-(exp(-(23*x + 2*log(2))/(x - exp(2)))*(2*x*exp(4) - 27*x^2*exp(2) - 2 
*x^2*log(2) + 2*x^3))/(x^4*exp(4) - 2*x^5*exp(2) + x^6 - exp(-(23*x + 2*lo 
g(2))/(x - exp(2)))*(2*x^2*exp(4) - 4*x^3*exp(2) + 2*x^4) + exp(-(2*(23*x 
+ 2*log(2)))/(x - exp(2)))*(exp(4) - 2*x*exp(2) + x^2)),x)
 

Output:

-(x^3*(exp(4) - 2*x*exp(2) + x^2)^2*(2*exp(4) - 27*x*exp(2) - 2*x*log(2) + 
 2*x^2))/((exp(-(23*x)/(x - exp(2)))/2^(2/(x - exp(2))) - x^2)*(2*x*exp(12 
) - 35*x^6*exp(2) + 122*x^5*exp(4) - 178*x^4*exp(6) + 122*x^3*exp(8) - 35* 
x^2*exp(10) - x^6*log(4) + 2*x^7 + 4*x^5*exp(2)*log(4) - 6*x^4*exp(4)*log( 
4) + 4*x^3*exp(6)*log(4) - x^2*exp(8)*log(4)))
 

Reduce [F]

\[ \int \frac {e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x+27 e^2 x^2-2 x^3+x^2 \log (4)\right )}{e^4 x^4-2 e^2 x^5+x^6+e^{\frac {2 (23 x+\log (4))}{e^2-x}} \left (e^4-2 e^2 x+x^2\right )+e^{\frac {23 x+\log (4)}{e^2-x}} \left (-2 e^4 x^2+4 e^2 x^3-2 x^4\right )} \, dx =\text {Too large to display} \] Input:

int((2*x^2*log(2)-2*x*exp(2)^2+27*x^2*exp(2)-2*x^3)*exp((2*log(2)+23*x)/(e 
xp(2)-x))/((exp(2)^2-2*exp(2)*x+x^2)*exp((2*log(2)+23*x)/(exp(2)-x))^2+(-2 
*x^2*exp(2)^2+4*x^3*exp(2)-2*x^4)*exp((2*log(2)+23*x)/(exp(2)-x))+x^4*exp( 
2)^2-2*exp(2)*x^5+x^6),x)
 

Output:

 - 2*int((e**((2*log(2) + 23*x)/(e**2 - x))*x**3)/(e**((4*log(2) + 46*x)/( 
e**2 - x))*e**4 - 2*e**((4*log(2) + 46*x)/(e**2 - x))*e**2*x + e**((4*log( 
2) + 46*x)/(e**2 - x))*x**2 - 2*e**((2*log(2) + 23*x)/(e**2 - x))*e**4*x** 
2 + 4*e**((2*log(2) + 23*x)/(e**2 - x))*e**2*x**3 - 2*e**((2*log(2) + 23*x 
)/(e**2 - x))*x**4 + e**4*x**4 - 2*e**2*x**5 + x**6),x) + 2*int((e**((2*lo 
g(2) + 23*x)/(e**2 - x))*x**2)/(e**((4*log(2) + 46*x)/(e**2 - x))*e**4 - 2 
*e**((4*log(2) + 46*x)/(e**2 - x))*e**2*x + e**((4*log(2) + 46*x)/(e**2 - 
x))*x**2 - 2*e**((2*log(2) + 23*x)/(e**2 - x))*e**4*x**2 + 4*e**((2*log(2) 
 + 23*x)/(e**2 - x))*e**2*x**3 - 2*e**((2*log(2) + 23*x)/(e**2 - x))*x**4 
+ e**4*x**4 - 2*e**2*x**5 + x**6),x)*log(2) + 27*int((e**((2*log(2) + 23*x 
)/(e**2 - x))*x**2)/(e**((4*log(2) + 46*x)/(e**2 - x))*e**4 - 2*e**((4*log 
(2) + 46*x)/(e**2 - x))*e**2*x + e**((4*log(2) + 46*x)/(e**2 - x))*x**2 - 
2*e**((2*log(2) + 23*x)/(e**2 - x))*e**4*x**2 + 4*e**((2*log(2) + 23*x)/(e 
**2 - x))*e**2*x**3 - 2*e**((2*log(2) + 23*x)/(e**2 - x))*x**4 + e**4*x**4 
 - 2*e**2*x**5 + x**6),x)*e**2 - 2*int((e**((2*log(2) + 23*x)/(e**2 - x))* 
x)/(e**((4*log(2) + 46*x)/(e**2 - x))*e**4 - 2*e**((4*log(2) + 46*x)/(e**2 
 - x))*e**2*x + e**((4*log(2) + 46*x)/(e**2 - x))*x**2 - 2*e**((2*log(2) + 
 23*x)/(e**2 - x))*e**4*x**2 + 4*e**((2*log(2) + 23*x)/(e**2 - x))*e**2*x* 
*3 - 2*e**((2*log(2) + 23*x)/(e**2 - x))*x**4 + e**4*x**4 - 2*e**2*x**5 + 
x**6),x)*e**4