\(\int \frac {-100 x^2+40 x^3-4 x^4+(200 x^2-120 x^3+16 x^4) \log (x)+(-1-76 x^2+24 x^3) \log ^2(x)-\log (3 e^{\frac {100 x^2-40 x^3+4 x^4+(-40 x^2+8 x^3) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx\) [6813]

Optimal result

Integrand size = 124, antiderivative size = 27 \[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=\frac {1+\log \left (3 e^{\frac {4 x^2 (-5+x+\log (x))^2}{\log (x)}}\right )}{x} \]

[Out]

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

Rubi [A] (verified)

Time = 0.43 (sec) , antiderivative size = 51, normalized size of antiderivative = 1.89, number of steps used = 47, number of rules used = 11, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.089, Rules used = {6820, 2357, 2367, 2335, 2346, 2209, 2403, 2332, 30, 2635, 12} \[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}+\frac {1}{x} \]

[In]

Int[(-100*x^2 + 40*x^3 - 4*x^4 + (200*x^2 - 120*x^3 + 16*x^4)*Log[x] + (-1 - 76*x^2 + 24*x^3)*Log[x]^2 - Log[3
*E^((100*x^2 - 40*x^3 + 4*x^4 + (-40*x^2 + 8*x^3)*Log[x] + 4*x^2*Log[x]^2)/Log[x])]*Log[x]^2 + 8*x^2*Log[x]^3)
/(x^2*Log[x]^2),x]

[Out]

x^(-1) + Log[3*E^((4*(5 - x)^2*x^2)/Log[x])*x^(4*x^2 - (8*(5 - x)*x^2)/Log[x])]/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 30

Int[(x_)^(m_.), x_Symbol] :> Simp[x^(m + 1)/(m + 1), x] /; FreeQ[m, x] && NeQ[m, -1]

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 2332

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

Rule 2335

Int[Log[(c_.)*(x_)]^(-1), x_Symbol] :> Simp[LogIntegral[c*x]/c, x] /; FreeQ[c, x]

Rule 2346

Int[((a_.) + Log[(c_.)*(x_)]*(b_.))^(p_)*(x_)^(m_.), x_Symbol] :> Dist[1/c^(m + 1), Subst[Int[E^((m + 1)*x)*(a
+ b*x)^p, x], x, Log[c*x]], x] /; FreeQ[{a, b, c, p}, x] && IntegerQ[m]

Rule 2357

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

Rule 2367

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)*((d_) + (e_.)*(x_)^(r_.))^(q_.), x_Symbol] :> With[{u = Expand
Integrand[(a + b*Log[c*x^n])^p, (d + e*x^r)^q, x]}, Int[u, x] /; SumQ[u]] /; FreeQ[{a, b, c, d, e, n, p, q, r}
, x] && IntegerQ[q] && (GtQ[q, 0] || (IGtQ[p, 0] && IntegerQ[r]))

Rule 2403

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)*(Polyx_), x_Symbol] :> Int[ExpandIntegrand[Polyx*(a + b*Log[c*
x^n])^p, x], x] /; FreeQ[{a, b, c, n, p}, x] && PolynomialQ[Polyx, x]

Rule 2635

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

Rule 6820

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

Rubi steps \begin{align*} \text {integral}& = \int \left (-76-\frac {1}{x^2}+24 x-\frac {4 (-5+x)^2}{\log ^2(x)}+\frac {8 \left (25-15 x+2 x^2\right )}{\log (x)}+8 \log (x)-\frac {\log \left (3 \exp \left (\frac {4 (-5+x) x^2 (-5+x+2 \log (x))}{\log (x)}\right ) x^{4 x^2}\right )}{x^2}\right ) \, dx \\ & = \frac {1}{x}-76 x+12 x^2-4 \int \frac {(-5+x)^2}{\log ^2(x)} \, dx+8 \int \frac {25-15 x+2 x^2}{\log (x)} \, dx+8 \int \log (x) \, dx-\int \frac {\log \left (3 \exp \left (\frac {4 (-5+x) x^2 (-5+x+2 \log (x))}{\log (x)}\right ) x^{4 x^2}\right )}{x^2} \, dx \\ & = \frac {1}{x}-84 x+12 x^2+\frac {4 (5-x)^2 x}{\log (x)}+8 x \log (x)+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}+8 \int \left (\frac {25}{\log (x)}-\frac {15 x}{\log (x)}+\frac {2 x^2}{\log (x)}\right ) \, dx-12 \int \frac {(-5+x)^2}{\log (x)} \, dx-40 \int \frac {-5+x}{\log (x)} \, dx+\int 4 \left (19-6 x+\frac {(-5+x)^2}{\log ^2(x)}+\frac {-50+30 x-4 x^2}{\log (x)}-2 \log (x)\right ) \, dx \\ & = \frac {1}{x}-84 x+12 x^2+\frac {4 (5-x)^2 x}{\log (x)}+8 x \log (x)+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}+4 \int \left (19-6 x+\frac {(-5+x)^2}{\log ^2(x)}+\frac {-50+30 x-4 x^2}{\log (x)}-2 \log (x)\right ) \, dx-12 \int \left (\frac {25}{\log (x)}-\frac {10 x}{\log (x)}+\frac {x^2}{\log (x)}\right ) \, dx+16 \int \frac {x^2}{\log (x)} \, dx-40 \int \left (-\frac {5}{\log (x)}+\frac {x}{\log (x)}\right ) \, dx-120 \int \frac {x}{\log (x)} \, dx+200 \int \frac {1}{\log (x)} \, dx \\ & = \frac {1}{x}-8 x+\frac {4 (5-x)^2 x}{\log (x)}+8 x \log (x)+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}+200 \text {li}(x)+4 \int \frac {(-5+x)^2}{\log ^2(x)} \, dx+4 \int \frac {-50+30 x-4 x^2}{\log (x)} \, dx-8 \int \log (x) \, dx-12 \int \frac {x^2}{\log (x)} \, dx+16 \text {Subst}\left (\int \frac {e^{3 x}}{x} \, dx,x,\log (x)\right )-40 \int \frac {x}{\log (x)} \, dx+120 \int \frac {x}{\log (x)} \, dx-120 \text {Subst}\left (\int \frac {e^{2 x}}{x} \, dx,x,\log (x)\right )+200 \int \frac {1}{\log (x)} \, dx-300 \int \frac {1}{\log (x)} \, dx \\ & = \frac {1}{x}-120 \text {Ei}(2 \log (x))+16 \text {Ei}(3 \log (x))+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}+100 \text {li}(x)+4 \int \left (-\frac {50}{\log (x)}+\frac {30 x}{\log (x)}-\frac {4 x^2}{\log (x)}\right ) \, dx+12 \int \frac {(-5+x)^2}{\log (x)} \, dx-12 \text {Subst}\left (\int \frac {e^{3 x}}{x} \, dx,x,\log (x)\right )+40 \int \frac {-5+x}{\log (x)} \, dx-40 \text {Subst}\left (\int \frac {e^{2 x}}{x} \, dx,x,\log (x)\right )+120 \text {Subst}\left (\int \frac {e^{2 x}}{x} \, dx,x,\log (x)\right ) \\ & = \frac {1}{x}-40 \text {Ei}(2 \log (x))+4 \text {Ei}(3 \log (x))+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}+100 \text {li}(x)+12 \int \left (\frac {25}{\log (x)}-\frac {10 x}{\log (x)}+\frac {x^2}{\log (x)}\right ) \, dx-16 \int \frac {x^2}{\log (x)} \, dx+40 \int \left (-\frac {5}{\log (x)}+\frac {x}{\log (x)}\right ) \, dx+120 \int \frac {x}{\log (x)} \, dx-200 \int \frac {1}{\log (x)} \, dx \\ & = \frac {1}{x}-40 \text {Ei}(2 \log (x))+4 \text {Ei}(3 \log (x))+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}-100 \text {li}(x)+12 \int \frac {x^2}{\log (x)} \, dx-16 \text {Subst}\left (\int \frac {e^{3 x}}{x} \, dx,x,\log (x)\right )+40 \int \frac {x}{\log (x)} \, dx-120 \int \frac {x}{\log (x)} \, dx+120 \text {Subst}\left (\int \frac {e^{2 x}}{x} \, dx,x,\log (x)\right )-200 \int \frac {1}{\log (x)} \, dx+300 \int \frac {1}{\log (x)} \, dx \\ & = \frac {1}{x}+80 \text {Ei}(2 \log (x))-12 \text {Ei}(3 \log (x))+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x}+12 \text {Subst}\left (\int \frac {e^{3 x}}{x} \, dx,x,\log (x)\right )+40 \text {Subst}\left (\int \frac {e^{2 x}}{x} \, dx,x,\log (x)\right )-120 \text {Subst}\left (\int \frac {e^{2 x}}{x} \, dx,x,\log (x)\right ) \\ & = \frac {1}{x}+\frac {\log \left (3 e^{\frac {4 (5-x)^2 x^2}{\log (x)}} x^{4 x^2-\frac {8 (5-x) x^2}{\log (x)}}\right )}{x} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.32 (sec) , antiderivative size = 37, normalized size of antiderivative = 1.37 \[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=\frac {1+\log \left (3 e^{\frac {4 (-5+x) x^2 (-5+x+2 \log (x))}{\log (x)}} x^{4 x^2}\right )}{x} \]

[In]

Integrate[(-100*x^2 + 40*x^3 - 4*x^4 + (200*x^2 - 120*x^3 + 16*x^4)*Log[x] + (-1 - 76*x^2 + 24*x^3)*Log[x]^2 -
Log[3*E^((100*x^2 - 40*x^3 + 4*x^4 + (-40*x^2 + 8*x^3)*Log[x] + 4*x^2*Log[x]^2)/Log[x])]*Log[x]^2 + 8*x^2*Log
[x]^3)/(x^2*Log[x]^2),x]

[Out]

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

Maple [A] (verified)

Time = 1.10 (sec) , antiderivative size = 33, normalized size of antiderivative = 1.22

method	result	size
risch	\(\frac {\ln \left ({\mathrm e}^{\frac {4 \left (\ln \left (x \right )+x -5\right )^{2} x^{2}}{\ln \left (x \right )}}\right )}{x}+\frac {\ln \left (3\right )}{x}+\frac {1}{x}\)	\(33\)
parallelrisch	\(-\frac {-1-\ln \left (3 \,{\mathrm e}^{\frac {4 x^{2} \left (\ln \left (x \right )^{2}+2 x \ln \left (x \right )+x^{2}-10 \ln \left (x \right )-10 x +25\right )}{\ln \left (x \right )}}\right )}{x}\)	\(44\)
default	\(\frac {4 x^{3}}{\ln \left (x \right )}-\frac {40 x^{2}}{\ln \left (x \right )}+\frac {100 x}{\ln \left (x \right )}+8 x^{2}-40 x +\frac {1}{x}+4 x \ln \left (x \right )+\frac {\ln \left (3 \,{\mathrm e}^{\frac {4 x^{2} \ln \left (x \right )^{2}+\left (8 x^{3}-40 x^{2}\right ) \ln \left (x \right )+4 x^{4}-40 x^{3}+100 x^{2}}{\ln \left (x \right )}}\right )-\frac {4 x^{2} \ln \left (x \right )^{2}+\left (8 x^{3}-40 x^{2}\right ) \ln \left (x \right )+4 x^{4}-40 x^{3}+100 x^{2}}{\ln \left (x \right )}}{x}\)	\(141\)
parts	\(\frac {4 x^{3}}{\ln \left (x \right )}-\frac {40 x^{2}}{\ln \left (x \right )}+\frac {100 x}{\ln \left (x \right )}+8 x^{2}-40 x +\frac {1}{x}+4 x \ln \left (x \right )+\frac {\ln \left (3 \,{\mathrm e}^{\frac {4 x^{2} \ln \left (x \right )^{2}+\left (8 x^{3}-40 x^{2}\right ) \ln \left (x \right )+4 x^{4}-40 x^{3}+100 x^{2}}{\ln \left (x \right )}}\right )-\frac {4 x^{2} \ln \left (x \right )^{2}+\left (8 x^{3}-40 x^{2}\right ) \ln \left (x \right )+4 x^{4}-40 x^{3}+100 x^{2}}{\ln \left (x \right )}}{x}\)	\(141\)

[In]

int((-ln(x)^2*ln(3*exp((4*x^2*ln(x)^2+(8*x^3-40*x^2)*ln(x)+4*x^4-40*x^3+100*x^2)/ln(x)))+8*x^2*ln(x)^3+(24*x^3
-76*x^2-1)*ln(x)^2+(16*x^4-120*x^3+200*x^2)*ln(x)-4*x^4+40*x^3-100*x^2)/x^2/ln(x)^2,x,method=_RETURNVERBOSE)

[Out]

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

Fricas [A] (verification not implemented)

none

Time = 0.24 (sec) , antiderivative size = 50, normalized size of antiderivative = 1.85 \[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=\frac {4 \, x^{4} + 4 \, x^{2} \log \left (x\right )^{2} - 40 \, x^{3} + 100 \, x^{2} + {\left (8 \, x^{3} - 40 \, x^{2} + \log \left (3\right ) + 1\right )} \log \left (x\right )}{x \log \left (x\right )} \]

[In]

integrate((-log(x)^2*log(3*exp((4*x^2*log(x)^2+(8*x^3-40*x^2)*log(x)+4*x^4-40*x^3+100*x^2)/log(x)))+8*x^2*log(
x)^3+(24*x^3-76*x^2-1)*log(x)^2+(16*x^4-120*x^3+200*x^2)*log(x)-4*x^4+40*x^3-100*x^2)/x^2/log(x)^2,x, algorith
m="fricas")

[Out]

(4*x^4 + 4*x^2*log(x)^2 - 40*x^3 + 100*x^2 + (8*x^3 - 40*x^2 + log(3) + 1)*log(x))/(x*log(x))

Sympy [A] (verification not implemented)

Time = 0.28 (sec) , antiderivative size = 37, normalized size of antiderivative = 1.37 \[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=8 x^{2} + 4 x \log {\left (x \right )} - 40 x + \frac {4 x^{3} - 40 x^{2} + 100 x}{\log {\left (x \right )}} + \frac {1 + \log {\left (3 \right )}}{x} \]

[In]

integrate((-ln(x)**2*ln(3*exp((4*x**2*ln(x)**2+(8*x**3-40*x**2)*ln(x)+4*x**4-40*x**3+100*x**2)/ln(x)))+8*x**2*
ln(x)**3+(24*x**3-76*x**2-1)*ln(x)**2+(16*x**4-120*x**3+200*x**2)*ln(x)-4*x**4+40*x**3-100*x**2)/x**2/ln(x)**2
,x)

[Out]

8*x**2 + 4*x*log(x) - 40*x + (4*x**3 - 40*x**2 + 100*x)/log(x) + (1 + log(3))/x

Maxima [F]

\[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=\int { \frac {8 \, x^{2} \log \left (x\right )^{3} - 4 \, x^{4} + 40 \, x^{3} + {\left (24 \, x^{3} - 76 \, x^{2} - 1\right )} \log \left (x\right )^{2} - \log \left (x\right )^{2} \log \left (3 \, e^{\left (\frac {4 \, {\left (x^{4} + x^{2} \log \left (x\right )^{2} - 10 \, x^{3} + 25 \, x^{2} + 2 \, {\left (x^{3} - 5 \, x^{2}\right )} \log \left (x\right )\right )}}{\log \left (x\right )}\right )}\right ) - 100 \, x^{2} + 8 \, {\left (2 \, x^{4} - 15 \, x^{3} + 25 \, x^{2}\right )} \log \left (x\right )}{x^{2} \log \left (x\right )^{2}} \,d x } \]

[In]

integrate((-log(x)^2*log(3*exp((4*x^2*log(x)^2+(8*x^3-40*x^2)*log(x)+4*x^4-40*x^3+100*x^2)/log(x)))+8*x^2*log(
x)^3+(24*x^3-76*x^2-1)*log(x)^2+(16*x^4-120*x^3+200*x^2)*log(x)-4*x^4+40*x^3-100*x^2)/x^2/log(x)^2,x, algorith
m="maxima")

[Out]

12*x^2 + 8*x*log(x) - 84*x + 1/x - (4*x^4 + 8*x^2*log(x)^2 - 40*x^3 + 100*x^2 + (4*x^3 - 44*x^2 - log(3))*log(
x) - 4*log(x)*log(x^(x^2)) - 4*log(x)*log(e^(x^4/log(x))) + 40*log(x)*log(e^(x^3/log(x))) - 100*log(x)*log(e^(
x^2/log(x))))/(x*log(x)) + 16*Ei(3*log(x)) - 120*Ei(2*log(x)) + 200*Ei(log(x)) - 100*gamma(-1, -log(x)) + 80*g
amma(-1, -2*log(x)) - 12*gamma(-1, -3*log(x)) - integrate(4*(x^2 - 10*x + 25)/log(x), x)

Giac [A] (verification not implemented)

none

Time = 0.54 (sec) , antiderivative size = 40, normalized size of antiderivative = 1.48 \[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=8 \, x^{2} + 4 \, x \log \left (x\right ) - 40 \, x + \frac {\log \left (3\right ) + 1}{x} + \frac {4 \, {\left (x^{3} - 10 \, x^{2} + 25 \, x\right )}}{\log \left (x\right )} \]

[In]

integrate((-log(x)^2*log(3*exp((4*x^2*log(x)^2+(8*x^3-40*x^2)*log(x)+4*x^4-40*x^3+100*x^2)/log(x)))+8*x^2*log(
x)^3+(24*x^3-76*x^2-1)*log(x)^2+(16*x^4-120*x^3+200*x^2)*log(x)-4*x^4+40*x^3-100*x^2)/x^2/log(x)^2,x, algorith
m="giac")

[Out]

8*x^2 + 4*x*log(x) - 40*x + (log(3) + 1)/x + 4*(x^3 - 10*x^2 + 25*x)/log(x)

Mupad [B] (verification not implemented)

Time = 12.86 (sec) , antiderivative size = 122, normalized size of antiderivative = 4.52 \[ \int \frac {-100 x^2+40 x^3-4 x^4+\left (200 x^2-120 x^3+16 x^4\right ) \log (x)+\left (-1-76 x^2+24 x^3\right ) \log ^2(x)-\log \left (3 e^{\frac {100 x^2-40 x^3+4 x^4+\left (-40 x^2+8 x^3\right ) \log (x)+4 x^2 \log ^2(x)}{\log (x)}}\right ) \log ^2(x)+8 x^2 \log ^3(x)}{x^2 \log ^2(x)} \, dx=60\,x+\frac {4\,x\,{\left (x-5\right )}^2-4\,x\,\ln \left (x\right )\,\left (3\,x^2-20\,x+25\right )}{\ln \left (x\right )}+4\,x\,\ln \left (x\right )-72\,x^2+12\,x^3+\frac {\ln \left (3\,x^{4\,x^2}\,{\mathrm {e}}^{8\,x^3}\,{\mathrm {e}}^{-40\,x^2}\,{\mathrm {e}}^{\frac {4\,x^4}{\ln \left (x\right )}}\,{\mathrm {e}}^{-\frac {40\,x^3}{\ln \left (x\right )}}\,{\mathrm {e}}^{\frac {100\,x^2}{\ln \left (x\right )}}\right )-\frac {4\,x^2\,{\left (x+\ln \left (x\right )-5\right )}^2}{\ln \left (x\right )}+1}{x} \]

[In]

int(-(log(3*exp((4*x^2*log(x)^2 - log(x)*(40*x^2 - 8*x^3) + 100*x^2 - 40*x^3 + 4*x^4)/log(x)))*log(x)^2 - log(
x)*(200*x^2 - 120*x^3 + 16*x^4) + log(x)^2*(76*x^2 - 24*x^3 + 1) - 8*x^2*log(x)^3 + 100*x^2 - 40*x^3 + 4*x^4)/
(x^2*log(x)^2),x)

[Out]

60*x + (4*x*(x - 5)^2 - 4*x*log(x)*(3*x^2 - 20*x + 25))/log(x) + 4*x*log(x) - 72*x^2 + 12*x^3 + (log(3*x^(4*x^
2)*exp(8*x^3)*exp(-40*x^2)*exp((4*x^4)/log(x))*exp(-(40*x^3)/log(x))*exp((100*x^2)/log(x))) - (4*x^2*(x + log(
x) - 5)^2)/log(x) + 1)/x