\(\int \frac {-54+70 x+33 x^2+e^{2 x} (19 x-8 x^2-6 x^3)+e^x (26 x-2 x^2-6 x^3)+(-63 x-54 x^2) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx\) [7549]

Optimal result

Integrand size = 89, antiderivative size = 33 \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=\frac {\frac {1}{9} \left (1+e^x\right )^2-\log (2 x)}{\left (\frac {2}{3}-x\right ) (3+x)} \]

[Out]

1/(3+x)*(1/3*(exp(x)+1)*(1/3*exp(x)+1/3)-ln(2*x))/(2/3-x)

Rubi [B] (verified)

Leaf count is larger than twice the leaf count of optimal. \(113\) vs. \(2(33)=66\).

Time = 1.02 (sec) , antiderivative size = 113, normalized size of antiderivative = 3.42, number of steps used = 32, number of rules used = 11, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.124, Rules used = {6873, 12, 6874, 46, 90, 78, 2208, 2209, 2404, 2351, 31} \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=\frac {2 e^x}{11 (2-3 x)}+\frac {e^{2 x}}{11 (2-3 x)}+\frac {1}{11 (2-3 x)}+\frac {2 e^x}{33 (x+3)}+\frac {e^{2 x}}{33 (x+3)}+\frac {1}{33 (x+3)}-\frac {\log (x)}{2}-\frac {27 x \log (2 x)}{22 (2-3 x)}+\frac {x \log (2 x)}{11 (x+3)} \]

[In]

Int[(-54 + 70*x + 33*x^2 + E^(2*x)*(19*x - 8*x^2 - 6*x^3) + E^x*(26*x - 2*x^2 - 6*x^3) + (-63*x - 54*x^2)*Log[
2*x])/(108*x - 252*x^2 + 39*x^3 + 126*x^4 + 27*x^5),x]

[Out]

1/(11*(2 - 3*x)) + (2*E^x)/(11*(2 - 3*x)) + E^(2*x)/(11*(2 - 3*x)) + 1/(33*(3 + x)) + (2*E^x)/(33*(3 + x)) + E
^(2*x)/(33*(3 + x)) - Log[x]/2 - (27*x*Log[2*x])/(22*(2 - 3*x)) + (x*Log[2*x])/(11*(3 + x))

Rule 12

Int[(a_)*(u_), x_Symbol] :> Dist[a, Int[u, x], x] /; FreeQ[a, x] &&  !MatchQ[u, (b_)*(v_) /; FreeQ[b, x]]

Rule 31

Int[((a_) + (b_.)*(x_))^(-1), x_Symbol] :> Simp[Log[RemoveContent[a + b*x, x]]/b, x] /; FreeQ[{a, b}, x]

Rule 46

Int[((a_) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d*x
)^n, x], x] /; FreeQ[{a, b, c, d}, x] && NeQ[b*c - a*d, 0] && ILtQ[m, 0] && IntegerQ[n] &&  !(IGtQ[n, 0] && Lt
Q[m + n + 2, 0])

Rule 78

Int[((a_.) + (b_.)*(x_))*((c_) + (d_.)*(x_))^(n_.)*((e_.) + (f_.)*(x_))^(p_.), x_Symbol] :> Int[ExpandIntegran
d[(a + b*x)*(c + d*x)^n*(e + f*x)^p, x], x] /; FreeQ[{a, b, c, d, e, f, n}, x] && NeQ[b*c - a*d, 0] && ((ILtQ[
n, 0] && ILtQ[p, 0]) || EqQ[p, 1] || (IGtQ[p, 0] && ( !IntegerQ[n] || LeQ[9*p + 5*(n + 2), 0] || GeQ[n + p + 1
, 0] || (GeQ[n + p + 2, 0] && RationalQ[a, b, c, d, e, f]))))

Rule 90

Int[((a_.) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.)*((e_.) + (f_.)*(x_))^(p_.), x_Symbol] :> Int[ExpandI
ntegrand[(a + b*x)^m*(c + d*x)^n*(e + f*x)^p, x], x] /; FreeQ[{a, b, c, d, e, f, p}, x] && IntegersQ[m, n] &&
(IntegerQ[p] || (GtQ[m, 0] && GeQ[n, -1]))

Rule 2208

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] &&  !TrueQ[$UseGamm
a]

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 2351

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))*((d_) + (e_.)*(x_)^(r_.))^(q_), x_Symbol] :> Simp[x*(d + e*x^r)^(q +
1)*((a + b*Log[c*x^n])/d), x] - Dist[b*(n/d), Int[(d + e*x^r)^(q + 1), x], x] /; FreeQ[{a, b, c, d, e, n, q,
r}, x] && EqQ[r*(q + 1) + 1, 0]

Rule 2404

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)*(RFx_), x_Symbol] :> With[{u = ExpandIntegrand[(a + b*Log[c*x^
n])^p, RFx, x]}, Int[u, x] /; SumQ[u]] /; FreeQ[{a, b, c, n}, x] && RationalFunctionQ[RFx, x] && IGtQ[p, 0]

Rule 6873

Int[u_, x_Symbol] :> With[{v = NormalizeIntegrand[u, x]}, Int[v, x] /; v =!= u]

Rule 6874

Int[u_, x_Symbol] :> With[{v = ExpandIntegrand[u, x]}, Int[v, x] /; SumQ[v]]

Rubi steps \begin{align*} \text {integral}& = \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{3 x \left (6-7 x-3 x^2\right )^2} \, dx \\ & = \frac {1}{3} \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{x \left (6-7 x-3 x^2\right )^2} \, dx \\ & = \frac {1}{3} \int \left (\frac {70}{(3+x)^2 (-2+3 x)^2}-\frac {54}{x (3+x)^2 (-2+3 x)^2}+\frac {33 x}{(3+x)^2 (-2+3 x)^2}-\frac {2 e^x \left (-13+x+3 x^2\right )}{(3+x)^2 (-2+3 x)^2}-\frac {e^{2 x} \left (-19+8 x+6 x^2\right )}{(3+x)^2 (-2+3 x)^2}-\frac {9 (7+6 x) \log (2 x)}{(3+x)^2 (-2+3 x)^2}\right ) \, dx \\ & = -\left (\frac {1}{3} \int \frac {e^{2 x} \left (-19+8 x+6 x^2\right )}{(3+x)^2 (-2+3 x)^2} \, dx\right )-\frac {2}{3} \int \frac {e^x \left (-13+x+3 x^2\right )}{(3+x)^2 (-2+3 x)^2} \, dx-3 \int \frac {(7+6 x) \log (2 x)}{(3+x)^2 (-2+3 x)^2} \, dx+11 \int \frac {x}{(3+x)^2 (-2+3 x)^2} \, dx-18 \int \frac {1}{x (3+x)^2 (-2+3 x)^2} \, dx+\frac {70}{3} \int \frac {1}{(3+x)^2 (-2+3 x)^2} \, dx \\ & = -\left (\frac {1}{3} \int \left (\frac {e^{2 x}}{11 (3+x)^2}-\frac {2 e^{2 x}}{11 (3+x)}-\frac {9 e^{2 x}}{11 (-2+3 x)^2}+\frac {6 e^{2 x}}{11 (-2+3 x)}\right ) \, dx\right )-\frac {2}{3} \int \left (\frac {e^x}{11 (3+x)^2}-\frac {e^x}{11 (3+x)}-\frac {9 e^x}{11 (-2+3 x)^2}+\frac {3 e^x}{11 (-2+3 x)}\right ) \, dx-3 \int \left (-\frac {\log (2 x)}{11 (3+x)^2}+\frac {9 \log (2 x)}{11 (-2+3 x)^2}\right ) \, dx+11 \int \left (-\frac {3}{121 (3+x)^2}-\frac {7}{1331 (3+x)}+\frac {6}{121 (-2+3 x)^2}+\frac {21}{1331 (-2+3 x)}\right ) \, dx-18 \int \left (\frac {1}{36 x}-\frac {1}{363 (3+x)^2}-\frac {29}{11979 (3+x)}+\frac {27}{242 (-2+3 x)^2}-\frac {405}{5324 (-2+3 x)}\right ) \, dx+\frac {70}{3} \int \left (\frac {1}{121 (3+x)^2}+\frac {6}{1331 (3+x)}+\frac {9}{121 (-2+3 x)^2}-\frac {18}{1331 (-2+3 x)}\right ) \, dx \\ & = \frac {1}{11 (2-3 x)}+\frac {1}{33 (3+x)}+\frac {9}{22} \log (2-3 x)-\frac {\log (x)}{2}+\frac {1}{11} \log (3+x)-\frac {1}{33} \int \frac {e^{2 x}}{(3+x)^2} \, dx-\frac {2}{33} \int \frac {e^x}{(3+x)^2} \, dx+\frac {2}{33} \int \frac {e^x}{3+x} \, dx+\frac {2}{33} \int \frac {e^{2 x}}{3+x} \, dx-\frac {2}{11} \int \frac {e^x}{-2+3 x} \, dx-\frac {2}{11} \int \frac {e^{2 x}}{-2+3 x} \, dx+\frac {3}{11} \int \frac {e^{2 x}}{(-2+3 x)^2} \, dx+\frac {3}{11} \int \frac {\log (2 x)}{(3+x)^2} \, dx+\frac {6}{11} \int \frac {e^x}{(-2+3 x)^2} \, dx-\frac {27}{11} \int \frac {\log (2 x)}{(-2+3 x)^2} \, dx \\ & = \frac {1}{11 (2-3 x)}+\frac {2 e^x}{11 (2-3 x)}+\frac {e^{2 x}}{11 (2-3 x)}+\frac {1}{33 (3+x)}+\frac {2 e^x}{33 (3+x)}+\frac {e^{2 x}}{33 (3+x)}-\frac {2}{33} e^{4/3} \operatorname {ExpIntegralEi}\left (-\frac {2}{3} (2-3 x)\right )+\frac {2 \operatorname {ExpIntegralEi}(3+x)}{33 e^3}+\frac {2 \operatorname {ExpIntegralEi}(2 (3+x))}{33 e^6}-\frac {2}{33} e^{2/3} \operatorname {ExpIntegralEi}\left (\frac {1}{3} (-2+3 x)\right )+\frac {9}{22} \log (2-3 x)-\frac {\log (x)}{2}-\frac {27 x \log (2 x)}{22 (2-3 x)}+\frac {x \log (2 x)}{11 (3+x)}+\frac {1}{11} \log (3+x)-\frac {2}{33} \int \frac {e^x}{3+x} \, dx-\frac {2}{33} \int \frac {e^{2 x}}{3+x} \, dx-\frac {1}{11} \int \frac {1}{3+x} \, dx+\frac {2}{11} \int \frac {e^x}{-2+3 x} \, dx+\frac {2}{11} \int \frac {e^{2 x}}{-2+3 x} \, dx-\frac {27}{22} \int \frac {1}{-2+3 x} \, dx \\ & = \frac {1}{11 (2-3 x)}+\frac {2 e^x}{11 (2-3 x)}+\frac {e^{2 x}}{11 (2-3 x)}+\frac {1}{33 (3+x)}+\frac {2 e^x}{33 (3+x)}+\frac {e^{2 x}}{33 (3+x)}-\frac {\log (x)}{2}-\frac {27 x \log (2 x)}{22 (2-3 x)}+\frac {x \log (2 x)}{11 (3+x)} \\ \end{align*}

Mathematica [A] (verified)

Time = 1.03 (sec) , antiderivative size = 32, normalized size of antiderivative = 0.97 \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=\frac {-\left (1+e^x\right )^2+9 \log (2 x)}{3 \left (-6+7 x+3 x^2\right )} \]

[In]

Integrate[(-54 + 70*x + 33*x^2 + E^(2*x)*(19*x - 8*x^2 - 6*x^3) + E^x*(26*x - 2*x^2 - 6*x^3) + (-63*x - 54*x^2
)*Log[2*x])/(108*x - 252*x^2 + 39*x^3 + 126*x^4 + 27*x^5),x]

[Out]

(-(1 + E^x)^2 + 9*Log[2*x])/(3*(-6 + 7*x + 3*x^2))

Maple [A] (verified)

Time = 0.21 (sec) , antiderivative size = 33, normalized size of antiderivative = 1.00

method	result	size
parallelrisch	\(\frac {-7-7 \,{\mathrm e}^{2 x}-14 \,{\mathrm e}^{x}+63 \ln \left (2 x \right )}{63 x^{2}+147 x -126}\)	\(33\)
risch	\(\frac {3 \ln \left (2 x \right )}{3 x^{2}+7 x -6}-\frac {{\mathrm e}^{2 x}+2 \,{\mathrm e}^{x}+1}{3 \left (3 x^{2}+7 x -6\right )}\)	\(44\)
default	\(-\frac {\ln \left (x \right )}{2}-\frac {1}{11 \left (-2+3 x \right )}+\frac {9 \ln \left (-2+3 x \right )}{22}+\frac {1}{99+33 x}+\frac {\ln \left (3+x \right )}{11}-\frac {\ln \left (2 x +6\right )}{11}+\frac {2 \ln \left (2 x \right ) x}{11 \left (2 x +6\right )}-\frac {9 \ln \left (6 x -4\right )}{22}+\frac {27 \ln \left (2 x \right ) x}{11 \left (6 x -4\right )}+\frac {2 \,{\mathrm e}^{x}}{33 \left (3+x \right )}-\frac {2 \,{\mathrm e}^{x}}{33 \left (-\frac {2}{3}+x \right )}+\frac {{\mathrm e}^{2 x}}{99+33 x}-\frac {{\mathrm e}^{2 x}}{33 \left (-\frac {2}{3}+x \right )}\)	\(120\)
parts	\(-\frac {\ln \left (x \right )}{2}-\frac {1}{11 \left (-2+3 x \right )}+\frac {9 \ln \left (-2+3 x \right )}{22}+\frac {1}{99+33 x}+\frac {\ln \left (3+x \right )}{11}-\frac {\ln \left (2 x +6\right )}{11}+\frac {2 \ln \left (2 x \right ) x}{11 \left (2 x +6\right )}-\frac {9 \ln \left (6 x -4\right )}{22}+\frac {27 \ln \left (2 x \right ) x}{11 \left (6 x -4\right )}+\frac {2 \,{\mathrm e}^{x}}{33 \left (3+x \right )}-\frac {2 \,{\mathrm e}^{x}}{33 \left (-\frac {2}{3}+x \right )}+\frac {{\mathrm e}^{2 x}}{99+33 x}-\frac {{\mathrm e}^{2 x}}{33 \left (-\frac {2}{3}+x \right )}\)	\(120\)

[In]

int(((-54*x^2-63*x)*ln(2*x)+(-6*x^3-8*x^2+19*x)*exp(x)^2+(-6*x^3-2*x^2+26*x)*exp(x)+33*x^2+70*x-54)/(27*x^5+12
6*x^4+39*x^3-252*x^2+108*x),x,method=_RETURNVERBOSE)

[Out]

1/21*(-7-7*exp(x)^2-14*exp(x)+63*ln(2*x))/(3*x^2+7*x-6)

Fricas [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 30, normalized size of antiderivative = 0.91 \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=-\frac {e^{\left (2 \, x\right )} + 2 \, e^{x} - 9 \, \log \left (2 \, x\right ) + 1}{3 \, {\left (3 \, x^{2} + 7 \, x - 6\right )}} \]

[In]

integrate(((-54*x^2-63*x)*log(2*x)+(-6*x^3-8*x^2+19*x)*exp(x)^2+(-6*x^3-2*x^2+26*x)*exp(x)+33*x^2+70*x-54)/(27
*x^5+126*x^4+39*x^3-252*x^2+108*x),x, algorithm="fricas")

[Out]

-1/3*(e^(2*x) + 2*e^x - 9*log(2*x) + 1)/(3*x^2 + 7*x - 6)

Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 76 vs. \(2 (22) = 44\).

Time = 0.21 (sec) , antiderivative size = 76, normalized size of antiderivative = 2.30 \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=\frac {\left (- 18 x^{2} - 42 x + 36\right ) e^{x} + \left (- 9 x^{2} - 21 x + 18\right ) e^{2 x}}{81 x^{4} + 378 x^{3} + 117 x^{2} - 756 x + 324} - \frac {1}{9 x^{2} + 21 x - 18} + \frac {3 \log {\left (2 x \right )}}{3 x^{2} + 7 x - 6} \]

[In]

integrate(((-54*x**2-63*x)*ln(2*x)+(-6*x**3-8*x**2+19*x)*exp(x)**2+(-6*x**3-2*x**2+26*x)*exp(x)+33*x**2+70*x-5
4)/(27*x**5+126*x**4+39*x**3-252*x**2+108*x),x)

[Out]

((-18*x**2 - 42*x + 36)*exp(x) + (-9*x**2 - 21*x + 18)*exp(2*x))/(81*x**4 + 378*x**3 + 117*x**2 - 756*x + 324)
- 1/(9*x**2 + 21*x - 18) + 3*log(2*x)/(3*x**2 + 7*x - 6)

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 104 vs. \(2 (27) = 54\).

Time = 0.32 (sec) , antiderivative size = 104, normalized size of antiderivative = 3.15 \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=\frac {3 \, {\left (3 \, x^{2} + 7 \, x\right )} \log \left (x\right ) - 2 \, e^{\left (2 \, x\right )} - 4 \, e^{x} + 18 \, \log \left (2\right )}{6 \, {\left (3 \, x^{2} + 7 \, x - 6\right )}} + \frac {3 \, {\left (21 \, x + 85\right )}}{121 \, {\left (3 \, x^{2} + 7 \, x - 6\right )}} + \frac {7 \, x - 12}{11 \, {\left (3 \, x^{2} + 7 \, x - 6\right )}} - \frac {70 \, {\left (6 \, x + 7\right )}}{363 \, {\left (3 \, x^{2} + 7 \, x - 6\right )}} - \frac {1}{2} \, \log \left (x\right ) \]

[In]

integrate(((-54*x^2-63*x)*log(2*x)+(-6*x^3-8*x^2+19*x)*exp(x)^2+(-6*x^3-2*x^2+26*x)*exp(x)+33*x^2+70*x-54)/(27
*x^5+126*x^4+39*x^3-252*x^2+108*x),x, algorithm="maxima")

[Out]

1/6*(3*(3*x^2 + 7*x)*log(x) - 2*e^(2*x) - 4*e^x + 18*log(2))/(3*x^2 + 7*x - 6) + 3/121*(21*x + 85)/(3*x^2 + 7*
x - 6) + 1/11*(7*x - 12)/(3*x^2 + 7*x - 6) - 70/363*(6*x + 7)/(3*x^2 + 7*x - 6) - 1/2*log(x)

Giac [A] (verification not implemented)

none

Time = 0.28 (sec) , antiderivative size = 30, normalized size of antiderivative = 0.91 \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=-\frac {e^{\left (2 \, x\right )} + 2 \, e^{x} - 9 \, \log \left (2 \, x\right ) + 1}{3 \, {\left (3 \, x^{2} + 7 \, x - 6\right )}} \]

[In]

integrate(((-54*x^2-63*x)*log(2*x)+(-6*x^3-8*x^2+19*x)*exp(x)^2+(-6*x^3-2*x^2+26*x)*exp(x)+33*x^2+70*x-54)/(27
*x^5+126*x^4+39*x^3-252*x^2+108*x),x, algorithm="giac")

[Out]

-1/3*(e^(2*x) + 2*e^x - 9*log(2*x) + 1)/(3*x^2 + 7*x - 6)

Mupad [B] (verification not implemented)

Time = 13.67 (sec) , antiderivative size = 64, normalized size of antiderivative = 1.94 \[ \int \frac {-54+70 x+33 x^2+e^{2 x} \left (19 x-8 x^2-6 x^3\right )+e^x \left (26 x-2 x^2-6 x^3\right )+\left (-63 x-54 x^2\right ) \log (2 x)}{108 x-252 x^2+39 x^3+126 x^4+27 x^5} \, dx=\frac {\ln \left (2\,x\right )}{x^2+\frac {7\,x}{3}-2}-\frac {{\mathrm {e}}^{2\,x}}{9\,\left (x^2+\frac {7\,x}{3}-2\right )}-\frac {1}{9\,\left (x^2+\frac {7\,x}{3}-2\right )}-\frac {2\,{\mathrm {e}}^x}{9\,\left (x^2+\frac {7\,x}{3}-2\right )} \]

[In]

int(-(log(2*x)*(63*x + 54*x^2) - 70*x + exp(2*x)*(8*x^2 - 19*x + 6*x^3) - 33*x^2 + exp(x)*(2*x^2 - 26*x + 6*x^
3) + 54)/(108*x - 252*x^2 + 39*x^3 + 126*x^4 + 27*x^5),x)

[Out]

log(2*x)/((7*x)/3 + x^2 - 2) - exp(2*x)/(9*((7*x)/3 + x^2 - 2)) - 1/(9*((7*x)/3 + x^2 - 2)) - (2*exp(x))/(9*((
7*x)/3 + x^2 - 2))