\(\int (-15-5 e^x+5 x^2+(-3-e^x+x^2) \log (x)+(-18+e^x (-6-5 x)+16 x^2+(-3+e^x (-1-x)+3 x^2) \log (x)) \log (2 x)) \, dx\) [2678]

Optimal result

Integrand size = 65, antiderivative size = 20 \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=x \left (-3-e^x+x^2\right ) (5+\log (x)) \log (2 x) \]

[Out]

x*(5+ln(x))*(-exp(x)+x^2-3)*ln(2*x)

Rubi [B] (verified)

Leaf count is larger than twice the leaf count of optimal. \(87\) vs. \(2(20)=40\).

Time = 0.62 (sec) , antiderivative size = 87, normalized size of antiderivative = 4.35, number of steps used = 46, number of rules used = 16, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.246, Rules used = {2225, 2634, 2209, 2207, 6874, 2326, 2230, 2637, 6618, 6610, 14, 2332, 2341, 2408, 2413, 12} \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=-\frac {x^3}{9}+\frac {1}{9} x^3 (1-3 \log (x))+\frac {1}{3} x^3 \log (x)+x^3 \log (x) \log (2 x)+5 x^3 \log (2 x)-5 e^x x \log (2 x)-e^x x \log (x) \log (2 x)-3 x \log (x) \log (2 x)-15 x \log (2 x) \]

[In]

Int[-15 - 5*E^x + 5*x^2 + (-3 - E^x + x^2)*Log[x] + (-18 + E^x*(-6 - 5*x) + 16*x^2 + (-3 + E^x*(-1 - x) + 3*x^
2)*Log[x])*Log[2*x],x]

[Out]

-1/9*x^3 + (x^3*(1 - 3*Log[x]))/9 + (x^3*Log[x])/3 - 15*x*Log[2*x] - 5*E^x*x*Log[2*x] + 5*x^3*Log[2*x] - 3*x*L
og[x]*Log[2*x] - E^x*x*Log[x]*Log[2*x] + x^3*Log[x]*Log[2*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 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 2207

Int[((b_.)*(F_)^((g_.)*((e_.) + (f_.)*(x_))))^(n_.)*((c_.) + (d_.)*(x_))^(m_.), x_Symbol] :> Simp[(c + d*x)^m*
((b*F^(g*(e + f*x)))^n/(f*g*n*Log[F])), x] - Dist[d*(m/(f*g*n*Log[F])), 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] && GtQ[m, 0] && IntegerQ[2*m] &&  !TrueQ[$UseGamma]

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 2225

Int[((F_)^((c_.)*((a_.) + (b_.)*(x_))))^(n_.), x_Symbol] :> Simp[(F^(c*(a + b*x)))^n/(b*c*n*Log[F]), x] /; Fre
eQ[{F, a, b, c, n}, x]

Rule 2230

Int[(F_)^((c_.)*(v_))*(u_)^(m_.)*(w_), x_Symbol] :> Int[ExpandIntegrand[F^(c*ExpandToSum[v, x]), w*NormalizePo
werOfLinear[u, x]^m, x], x] /; FreeQ[{F, c}, x] && PolynomialQ[w, x] && LinearQ[v, x] && PowerOfLinearQ[u, x]
&& IntegerQ[m] &&  !TrueQ[$UseGamma]

Rule 2326

Int[(y_.)*(F_)^(u_)*((v_) + (w_)), x_Symbol] :> With[{z = v*(y/(Log[F]*D[u, x]))}, Simp[F^u*z, x] /; EqQ[D[z,
x], w*y]] /; FreeQ[F, x]

Rule 2332

Int[Log[(c_.)*(x_)^(n_.)], x_Symbol] :> Simp[x*Log[c*x^n], x] - Simp[n*x, x] /; FreeQ[{c, n}, x]

Rule 2341

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

Rule 2408

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)*((d_.) + Log[(f_.)*(x_)^(r_.)]*(e_.)), x_Symbol] :> With[{u =
IntHide[(a + b*Log[c*x^n])^p, x]}, Dist[d + e*Log[f*x^r], u, x] - Dist[e*r, Int[SimplifyIntegrand[u/x, x], x],
x]] /; FreeQ[{a, b, c, d, e, f, n, p, r}, x]

Rule 2413

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)*((d_.) + Log[(f_.)*(x_)^(r_.)]*(e_.))*((g_.)*(x_))^(m_.), x_Sy
mbol] :> With[{u = IntHide[(g*x)^m*(a + b*Log[c*x^n])^p, x]}, Dist[d + e*Log[f*x^r], u, x] - Dist[e*r, Int[Sim
plifyIntegrand[u/x, x], x], x]] /; FreeQ[{a, b, c, d, e, f, g, m, n, p, r}, x] &&  !(EqQ[p, 1] && EqQ[a, 0] &&
NeQ[d, 0])

Rule 2634

Int[Log[u_]*(v_), x_Symbol] :> With[{w = IntHide[v, x]}, Dist[Log[u], w, x] - Int[SimplifyIntegrand[w*(D[u, x]
/u), x], x] /; InverseFunctionFreeQ[w, x]] /; InverseFunctionFreeQ[u, x]

Rule 2637

Int[Log[v_]*Log[w_]*(u_), x_Symbol] :> With[{z = IntHide[u, x]}, Dist[Log[v]*Log[w], z, x] + (-Int[SimplifyInt
egrand[z*Log[w]*(D[v, x]/v), x], x] - Int[SimplifyIntegrand[z*Log[v]*(D[w, x]/w), x], x]) /; InverseFunctionFr
eeQ[z, x]] /; InverseFunctionFreeQ[v, x] && InverseFunctionFreeQ[w, x]

Rule 6610

Int[ExpIntegralE[1, (b_.)*(x_)]/(x_), x_Symbol] :> Simp[b*x*HypergeometricPFQ[{1, 1, 1}, {2, 2, 2}, (-b)*x], x
] + (-Simp[EulerGamma*Log[x], x] - Simp[(1/2)*Log[b*x]^2, x]) /; FreeQ[b, x]

Rule 6618

Int[ExpIntegralEi[(b_.)*(x_)]/(x_), x_Symbol] :> Simp[Log[x]*(ExpIntegralEi[b*x] + ExpIntegralE[1, (-b)*x]), x
] - Int[ExpIntegralE[1, (-b)*x]/x, x] /; FreeQ[b, x]

Rule 6874

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

Rubi steps \begin{align*} \text {integral}& = -15 x+\frac {5 x^3}{3}-5 \int e^x \, dx+\int \left (-3-e^x+x^2\right ) \log (x) \, dx+\int \left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x) \, dx \\ & = -5 e^x-15 x+\frac {5 x^3}{3}-e^x \log (x)-3 x \log (x)+\frac {1}{3} x^3 \log (x)-\int \left (-3-\frac {e^x}{x}+\frac {x^2}{3}\right ) \, dx+\int \left (-e^x (6+5 x+\log (x)+x \log (x)) \log (2 x)+\left (-18+16 x^2-3 \log (x)+3 x^2 \log (x)\right ) \log (2 x)\right ) \, dx \\ & = -5 e^x-12 x+\frac {14 x^3}{9}-e^x \log (x)-3 x \log (x)+\frac {1}{3} x^3 \log (x)+\int \frac {e^x}{x} \, dx-\int e^x (6+5 x+\log (x)+x \log (x)) \log (2 x) \, dx+\int \left (-18+16 x^2-3 \log (x)+3 x^2 \log (x)\right ) \log (2 x) \, dx \\ & = -5 e^x-12 x+\frac {14 x^3}{9}+\text {Ei}(x)-e^x \log (x)-3 x \log (x)+\frac {1}{3} x^3 \log (x)-\int \left (6 e^x \log (2 x)+5 e^x x \log (2 x)+e^x \log (x) \log (2 x)+e^x x \log (x) \log (2 x)\right ) \, dx+\int \left (-18 \log (2 x)+16 x^2 \log (2 x)-3 \log (x) \log (2 x)+3 x^2 \log (x) \log (2 x)\right ) \, dx \\ & = -5 e^x-12 x+\frac {14 x^3}{9}+\text {Ei}(x)-e^x \log (x)-3 x \log (x)+\frac {1}{3} x^3 \log (x)-3 \int \log (x) \log (2 x) \, dx+3 \int x^2 \log (x) \log (2 x) \, dx-5 \int e^x x \log (2 x) \, dx-6 \int e^x \log (2 x) \, dx+16 \int x^2 \log (2 x) \, dx-18 \int \log (2 x) \, dx-\int e^x \log (x) \log (2 x) \, dx-\int e^x x \log (x) \log (2 x) \, dx \\ & = -5 e^x+6 x-\frac {2 x^3}{9}+\text {Ei}(x)-e^x \log (x)-3 x \log (x)+\frac {1}{3} x^3 \log (x)-e^x \log (2 x)-15 x \log (2 x)-5 e^x x \log (2 x)+5 x^3 \log (2 x)-3 x \log (x) \log (2 x)-e^x x \log (x) \log (2 x)+x^3 \log (x) \log (2 x)+3 \int (-1+\log (x)) \, dx-3 \int \frac {1}{9} x^2 (-1+3 \log (x)) \, dx+5 \int \frac {e^x (-1+x)}{x} \, dx+6 \int \frac {e^x}{x} \, dx+\int \frac {e^x \log (x)}{x} \, dx+\int \frac {e^x (-1+x) \log (x)}{x} \, dx+\int \frac {e^x \log (2 x)}{x} \, dx+\int \frac {e^x (-1+x) \log (2 x)}{x} \, dx \\ & = -5 e^x+3 x-\frac {2 x^3}{9}+7 \text {Ei}(x)-3 x \log (x)+\frac {1}{3} x^3 \log (x)-15 x \log (2 x)-5 e^x x \log (2 x)+5 x^3 \log (2 x)-3 x \log (x) \log (2 x)-e^x x \log (x) \log (2 x)+x^3 \log (x) \log (2 x)-\frac {1}{3} \int x^2 (-1+3 \log (x)) \, dx+3 \int \log (x) \, dx+5 \int \left (e^x-\frac {e^x}{x}\right ) \, dx-2 \int \frac {e^x-\text {Ei}(x)}{x} \, dx-2 \int \frac {\text {Ei}(x)}{x} \, dx \\ & = -5 e^x-\frac {x^3}{9}+7 \text {Ei}(x)+\frac {1}{9} x^3 (1-3 \log (x))+\frac {1}{3} x^3 \log (x)-15 x \log (2 x)-5 e^x x \log (2 x)+5 x^3 \log (2 x)-3 x \log (x) \log (2 x)-e^x x \log (x) \log (2 x)+x^3 \log (x) \log (2 x)+5 \int e^x \, dx-5 \int \frac {e^x}{x} \, dx-2 \left ((E_1(-x)+\text {Ei}(x)) \log (x)-\int \frac {E_1(-x)}{x} \, dx\right )-2 \int \left (\frac {e^x}{x}-\frac {\text {Ei}(x)}{x}\right ) \, dx \\ & = -\frac {x^3}{9}+2 \text {Ei}(x)+\frac {1}{9} x^3 (1-3 \log (x))+\frac {1}{3} x^3 \log (x)-2 \left (x \, _3F_3(1,1,1;2,2,2;x)+\frac {1}{2} \log ^2(-x)+\gamma \log (x)+(E_1(-x)+\text {Ei}(x)) \log (x)\right )-15 x \log (2 x)-5 e^x x \log (2 x)+5 x^3 \log (2 x)-3 x \log (x) \log (2 x)-e^x x \log (x) \log (2 x)+x^3 \log (x) \log (2 x)-2 \left (\int \frac {e^x}{x} \, dx-\int \frac {\text {Ei}(x)}{x} \, dx\right ) \\ & = -\frac {x^3}{9}+2 \text {Ei}(x)+\frac {1}{9} x^3 (1-3 \log (x))+\frac {1}{3} x^3 \log (x)-2 \left (x \, _3F_3(1,1,1;2,2,2;x)+\frac {1}{2} \log ^2(-x)+\gamma \log (x)+(E_1(-x)+\text {Ei}(x)) \log (x)\right )-15 x \log (2 x)-5 e^x x \log (2 x)+5 x^3 \log (2 x)-3 x \log (x) \log (2 x)-e^x x \log (x) \log (2 x)+x^3 \log (x) \log (2 x)-2 \left (\text {Ei}(x)-(E_1(-x)+\text {Ei}(x)) \log (x)+\int \frac {E_1(-x)}{x} \, dx\right ) \\ & = -\frac {x^3}{9}+2 \text {Ei}(x)+\frac {1}{9} x^3 (1-3 \log (x))+\frac {1}{3} x^3 \log (x)-2 \left (\text {Ei}(x)-x \, _3F_3(1,1,1;2,2,2;x)-\frac {1}{2} \log ^2(-x)-\gamma \log (x)-(E_1(-x)+\text {Ei}(x)) \log (x)\right )-2 \left (x \, _3F_3(1,1,1;2,2,2;x)+\frac {1}{2} \log ^2(-x)+\gamma \log (x)+(E_1(-x)+\text {Ei}(x)) \log (x)\right )-15 x \log (2 x)-5 e^x x \log (2 x)+5 x^3 \log (2 x)-3 x \log (x) \log (2 x)-e^x x \log (x) \log (2 x)+x^3 \log (x) \log (2 x) \\ \end{align*}

Mathematica [A] (verified)

Time = 0.31 (sec) , antiderivative size = 20, normalized size of antiderivative = 1.00 \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=x \left (-3-e^x+x^2\right ) (5+\log (x)) \log (2 x) \]

[In]

Integrate[-15 - 5*E^x + 5*x^2 + (-3 - E^x + x^2)*Log[x] + (-18 + E^x*(-6 - 5*x) + 16*x^2 + (-3 + E^x*(-1 - x)
+ 3*x^2)*Log[x])*Log[2*x],x]

[Out]

x*(-3 - E^x + x^2)*(5 + Log[x])*Log[2*x]

Maple [B] (verified)

Leaf count of result is larger than twice the leaf count of optimal. \(56\) vs. \(2(19)=38\).

Time = 0.27 (sec) , antiderivative size = 57, normalized size of antiderivative = 2.85

method	result	size
parallelrisch	\(5 x^{3} \ln \left (2 x \right )-3 x \ln \left (x \right ) \ln \left (2 x \right )-\ln \left (x \right ) {\mathrm e}^{x} \ln \left (2 x \right ) x -5 x \,{\mathrm e}^{x} \ln \left (2 x \right )-15 x \ln \left (2 x \right )+\ln \left (x \right ) \ln \left (2 x \right ) x^{3}\)	\(57\)
risch	\(x^{3} \ln \left (x \right )^{2}-x \,{\mathrm e}^{x} \ln \left (x \right )^{2}-3 x \ln \left (x \right )^{2}+\ln \left (2\right ) \ln \left (x \right ) x^{3}+5 x^{3} \ln \left (x \right )-3 x \ln \left (2\right ) \ln \left (x \right )-15 x \ln \left (x \right )-x \ln \left (2\right ) {\mathrm e}^{x} \ln \left (x \right )-5 x \,{\mathrm e}^{x} \ln \left (x \right )-15 x \ln \left (2\right )+5 x^{3} \ln \left (2\right )-5 x \ln \left (2\right ) {\mathrm e}^{x}\)	\(88\)

[In]

int((((-1-x)*exp(x)+3*x^2-3)*ln(x)+(-5*x-6)*exp(x)+16*x^2-18)*ln(2*x)+(-exp(x)+x^2-3)*ln(x)-5*exp(x)+5*x^2-15,
x,method=_RETURNVERBOSE)

[Out]

5*x^3*ln(2*x)-3*x*ln(x)*ln(2*x)-ln(x)*exp(x)*ln(2*x)*x-5*x*exp(x)*ln(2*x)-15*x*ln(2*x)+ln(x)*ln(2*x)*x^3

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 70 vs. \(2 (19) = 38\).

Time = 0.26 (sec) , antiderivative size = 70, normalized size of antiderivative = 3.50 \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=-5 \, x e^{x} \log \left (2\right ) + {\left (x^{3} - x e^{x} - 3 \, x\right )} \log \left (x\right )^{2} + 5 \, {\left (x^{3} - 3 \, x\right )} \log \left (2\right ) + {\left (5 \, x^{3} - {\left (x \log \left (2\right ) + 5 \, x\right )} e^{x} + {\left (x^{3} - 3 \, x\right )} \log \left (2\right ) - 15 \, x\right )} \log \left (x\right ) \]

[In]

integrate((((-1-x)*exp(x)+3*x^2-3)*log(x)+(-5*x-6)*exp(x)+16*x^2-18)*log(2*x)+(-exp(x)+x^2-3)*log(x)-5*exp(x)+
5*x^2-15,x, algorithm="fricas")

[Out]

-5*x*e^x*log(2) + (x^3 - x*e^x - 3*x)*log(x)^2 + 5*(x^3 - 3*x)*log(2) + (5*x^3 - (x*log(2) + 5*x)*e^x + (x^3 -
3*x)*log(2) - 15*x)*log(x)

Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 85 vs. \(2 (19) = 38\).

Time = 0.22 (sec) , antiderivative size = 85, normalized size of antiderivative = 4.25 \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=5 x^{3} \log {\left (2 \right )} - 15 x \log {\left (2 \right )} + \left (x^{3} - 3 x\right ) \log {\left (x \right )}^{2} + \left (- x \log {\left (x \right )}^{2} - 5 x \log {\left (x \right )} - x \log {\left (2 \right )} \log {\left (x \right )} - 5 x \log {\left (2 \right )}\right ) e^{x} + \left (x^{3} \log {\left (2 \right )} + 5 x^{3} - 15 x - 3 x \log {\left (2 \right )}\right ) \log {\left (x \right )} \]

[In]

integrate((((-1-x)*exp(x)+3*x**2-3)*ln(x)+(-5*x-6)*exp(x)+16*x**2-18)*ln(2*x)+(-exp(x)+x**2-3)*ln(x)-5*exp(x)+
5*x**2-15,x)

[Out]

5*x**3*log(2) - 15*x*log(2) + (x**3 - 3*x)*log(x)**2 + (-x*log(x)**2 - 5*x*log(x) - x*log(2)*log(x) - 5*x*log(
2))*exp(x) + (x**3*log(2) + 5*x**3 - 15*x - 3*x*log(2))*log(x)

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 87 vs. \(2 (19) = 38\).

Time = 0.35 (sec) , antiderivative size = 87, normalized size of antiderivative = 4.35 \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=\frac {5}{3} \, x^{3} {\left (3 \, \log \left (2\right ) - 1\right )} + \frac {5}{3} \, x^{3} + {\left (x^{3} - 3 \, x\right )} \log \left (x\right )^{2} - 15 \, x {\left (\log \left (2\right ) - 1\right )} - {\left (x {\left (\log \left (2\right ) + 5\right )} \log \left (x\right ) + x \log \left (x\right )^{2} + 5 \, x \log \left (2\right ) - 5\right )} e^{x} + {\left (x^{3} {\left (\log \left (2\right ) + 5\right )} - 3 \, x {\left (\log \left (2\right ) + 5\right )}\right )} \log \left (x\right ) - 15 \, x - 5 \, e^{x} \]

[In]

integrate((((-1-x)*exp(x)+3*x^2-3)*log(x)+(-5*x-6)*exp(x)+16*x^2-18)*log(2*x)+(-exp(x)+x^2-3)*log(x)-5*exp(x)+
5*x^2-15,x, algorithm="maxima")

[Out]

5/3*x^3*(3*log(2) - 1) + 5/3*x^3 + (x^3 - 3*x)*log(x)^2 - 15*x*(log(2) - 1) - (x*(log(2) + 5)*log(x) + x*log(x
)^2 + 5*x*log(2) - 5)*e^x + (x^3*(log(2) + 5) - 3*x*(log(2) + 5))*log(x) - 15*x - 5*e^x

Giac [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 107 vs. \(2 (19) = 38\).

Time = 0.26 (sec) , antiderivative size = 107, normalized size of antiderivative = 5.35 \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=x^{3} \log \left (2\right ) \log \left (x\right ) + x^{3} \log \left (x\right )^{2} + 5 \, x^{3} \log \left (2\right ) + \frac {14}{3} \, x^{3} \log \left (x\right ) - x e^{x} \log \left (2\right ) \log \left (x\right ) - x e^{x} \log \left (x\right )^{2} - 5 \, x e^{x} \log \left (2\right ) - 5 \, x e^{x} \log \left (x\right ) - 3 \, x \log \left (2\right ) \log \left (x\right ) - 3 \, x \log \left (x\right )^{2} - 15 \, x \log \left (2\right ) + \frac {1}{3} \, {\left (x^{3} - 9 \, x - 3 \, e^{x}\right )} \log \left (x\right ) - 12 \, x \log \left (x\right ) + e^{x} \log \left (x\right ) \]

[In]

integrate((((-1-x)*exp(x)+3*x^2-3)*log(x)+(-5*x-6)*exp(x)+16*x^2-18)*log(2*x)+(-exp(x)+x^2-3)*log(x)-5*exp(x)+
5*x^2-15,x, algorithm="giac")

[Out]

x^3*log(2)*log(x) + x^3*log(x)^2 + 5*x^3*log(2) + 14/3*x^3*log(x) - x*e^x*log(2)*log(x) - x*e^x*log(x)^2 - 5*x
*e^x*log(2) - 5*x*e^x*log(x) - 3*x*log(2)*log(x) - 3*x*log(x)^2 - 15*x*log(2) + 1/3*(x^3 - 9*x - 3*e^x)*log(x)
- 12*x*log(x) + e^x*log(x)

Mupad [B] (verification not implemented)

Time = 9.31 (sec) , antiderivative size = 21, normalized size of antiderivative = 1.05 \[ \int \left (-15-5 e^x+5 x^2+\left (-3-e^x+x^2\right ) \log (x)+\left (-18+e^x (-6-5 x)+16 x^2+\left (-3+e^x (-1-x)+3 x^2\right ) \log (x)\right ) \log (2 x)\right ) \, dx=-x\,\left (\ln \left (x\right )+5\right )\,\left (\ln \left (2\right )+\ln \left (x\right )\right )\,\left ({\mathrm {e}}^x-x^2+3\right ) \]

[In]

int(5*x^2 - log(2*x)*(exp(x)*(5*x + 6) - 16*x^2 + log(x)*(exp(x)*(x + 1) - 3*x^2 + 3) + 18) - log(x)*(exp(x) -
x^2 + 3) - 5*exp(x) - 15,x)

[Out]

-x*(log(x) + 5)*(log(2) + log(x))*(exp(x) - x^2 + 3)