\(\int \frac {(-2 e x-2 e^{1+\frac {4}{x}} x) \log (x)+(e x+e^{1+\frac {4}{x}} x) \log ^2(x)+(-4 e x^2+e^{1+\frac {4}{x}} (16 x-4 x^2)+(e^{1+\frac {4}{x}} (-4+x)+e x) \log ^2(x)) \log (\frac {4 x-\log ^2(x)}{x})}{(-8 x^2+2 x \log ^2(x)) \log ^2(\frac {4 x-\log ^2(x)}{x})} \, dx\) [2263]

Optimal result

Integrand size = 138, antiderivative size = 30 \[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\frac {e \left (x+e^{4/x} x\right )}{2 \log \left (4-\frac {\log ^2(x)}{x}\right )} \]

[Out]

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

Rubi [F]

\[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx \]

[In]

Int[((-2*E*x - 2*E^(1 + 4/x)*x)*Log[x] + (E*x + E^(1 + 4/x)*x)*Log[x]^2 + (-4*E*x^2 + E^(1 + 4/x)*(16*x - 4*x^
2) + (E^(1 + 4/x)*(-4 + x) + E*x)*Log[x]^2)*Log[(4*x - Log[x]^2)/x])/((-8*x^2 + 2*x*Log[x]^2)*Log[(4*x - Log[x
]^2)/x]^2),x]

[Out]

(E^(1 + 4/x)*x*(4*x*Log[4 - Log[x]^2/x] - Log[x]^2*Log[4 - Log[x]^2/x]))/(2*(4*x - Log[x]^2)*Log[4 - Log[x]^2/
x]^2) - E*Defer[Int][Log[x]/((-4*x + Log[x]^2)*Log[4 - Log[x]^2/x]^2), x] + (E*Defer[Int][Log[x]^2/((-4*x + Lo
g[x]^2)*Log[4 - Log[x]^2/x]^2), x])/2 + (E*Defer[Int][Log[4 - Log[x]^2/x]^(-1), x])/2

Rubi steps \begin{align*} \text {integral}& = \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{x \left (-8 x+2 \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx \\ & = \int \frac {-\left (\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)\right )-\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)-\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{2 x \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )} \, dx \\ & = \frac {1}{2} \int \frac {-\left (\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)\right )-\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)-\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{x \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )} \, dx \\ & = \frac {1}{2} \int \left (\frac {e \left (2 \log (x)-\log ^2(x)+4 x \log \left (4-\frac {\log ^2(x)}{x}\right )-\log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )\right )}{\left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}+\frac {e^{1+\frac {4}{x}} \left (2 x \log (x)-x \log ^2(x)-16 x \log \left (4-\frac {\log ^2(x)}{x}\right )+4 x^2 \log \left (4-\frac {\log ^2(x)}{x}\right )+4 \log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )-x \log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )\right )}{x \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}\right ) \, dx \\ & = \frac {1}{2} \int \frac {e^{1+\frac {4}{x}} \left (2 x \log (x)-x \log ^2(x)-16 x \log \left (4-\frac {\log ^2(x)}{x}\right )+4 x^2 \log \left (4-\frac {\log ^2(x)}{x}\right )+4 \log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )-x \log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )\right )}{x \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )} \, dx+\frac {1}{2} e \int \frac {2 \log (x)-\log ^2(x)+4 x \log \left (4-\frac {\log ^2(x)}{x}\right )-\log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )}{\left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )} \, dx \\ & = \frac {e^{1+\frac {4}{x}} x \left (4 x \log \left (4-\frac {\log ^2(x)}{x}\right )-\log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )\right )}{2 \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}+\frac {1}{2} e \int \left (\frac {(-2+\log (x)) \log (x)}{\left (-4 x+\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}+\frac {1}{\log \left (4-\frac {\log ^2(x)}{x}\right )}\right ) \, dx \\ & = \frac {e^{1+\frac {4}{x}} x \left (4 x \log \left (4-\frac {\log ^2(x)}{x}\right )-\log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )\right )}{2 \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}+\frac {1}{2} e \int \frac {(-2+\log (x)) \log (x)}{\left (-4 x+\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )} \, dx+\frac {1}{2} e \int \frac {1}{\log \left (4-\frac {\log ^2(x)}{x}\right )} \, dx \\ & = \frac {e^{1+\frac {4}{x}} x \left (4 x \log \left (4-\frac {\log ^2(x)}{x}\right )-\log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )\right )}{2 \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}+\frac {1}{2} e \int \left (-\frac {2 \log (x)}{\left (-4 x+\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}+\frac {\log ^2(x)}{\left (-4 x+\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}\right ) \, dx+\frac {1}{2} e \int \frac {1}{\log \left (4-\frac {\log ^2(x)}{x}\right )} \, dx \\ & = \frac {e^{1+\frac {4}{x}} x \left (4 x \log \left (4-\frac {\log ^2(x)}{x}\right )-\log ^2(x) \log \left (4-\frac {\log ^2(x)}{x}\right )\right )}{2 \left (4 x-\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )}+\frac {1}{2} e \int \frac {\log ^2(x)}{\left (-4 x+\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )} \, dx+\frac {1}{2} e \int \frac {1}{\log \left (4-\frac {\log ^2(x)}{x}\right )} \, dx-e \int \frac {\log (x)}{\left (-4 x+\log ^2(x)\right ) \log ^2\left (4-\frac {\log ^2(x)}{x}\right )} \, dx \\ \end{align*}

Mathematica [A] (verified)

Time = 0.12 (sec) , antiderivative size = 29, normalized size of antiderivative = 0.97 \[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\frac {e \left (1+e^{4/x}\right ) x}{2 \log \left (4-\frac {\log ^2(x)}{x}\right )} \]

[In]

Integrate[((-2*E*x - 2*E^(1 + 4/x)*x)*Log[x] + (E*x + E^(1 + 4/x)*x)*Log[x]^2 + (-4*E*x^2 + E^(1 + 4/x)*(16*x
- 4*x^2) + (E^(1 + 4/x)*(-4 + x) + E*x)*Log[x]^2)*Log[(4*x - Log[x]^2)/x])/((-8*x^2 + 2*x*Log[x]^2)*Log[(4*x -
Log[x]^2)/x]^2),x]

[Out]

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

Maple [A] (verified)

Time = 24.52 (sec) , antiderivative size = 34, normalized size of antiderivative = 1.13

method	result	size
parallelrisch	\(\frac {x \,{\mathrm e} \,{\mathrm e}^{\frac {4}{x}}+x \,{\mathrm e}}{2 \ln \left (-\frac {\ln \left (x \right )^{2}-4 x}{x}\right )}\)	\(34\)
risch	\(-\frac {i \left ({\mathrm e}^{\frac {4}{x}}+1\right ) x \,{\mathrm e}}{-\pi \,\operatorname {csgn}\left (i \left (\frac {\ln \left (x \right )^{2}}{4}-x \right )\right ) {\operatorname {csgn}\left (\frac {i \left (\frac {\ln \left (x \right )^{2}}{4}-x \right )}{x}\right )}^{2}-\pi \,\operatorname {csgn}\left (i \left (\frac {\ln \left (x \right )^{2}}{4}-x \right )\right ) \operatorname {csgn}\left (\frac {i \left (\frac {\ln \left (x \right )^{2}}{4}-x \right )}{x}\right ) \operatorname {csgn}\left (\frac {i}{x}\right )+\pi {\operatorname {csgn}\left (\frac {i \left (\frac {\ln \left (x \right )^{2}}{4}-x \right )}{x}\right )}^{3}+\pi {\operatorname {csgn}\left (\frac {i \left (\frac {\ln \left (x \right )^{2}}{4}-x \right )}{x}\right )}^{2} \operatorname {csgn}\left (\frac {i}{x}\right )-4 i \ln \left (2\right )+2 i \ln \left (x \right )-2 i \ln \left (-\frac {\ln \left (x \right )^{2}}{4}+x \right )}\)	\(166\)

[In]

int(((((x-4)*exp(1)*exp(4/x)+x*exp(1))*ln(x)^2+(-4*x^2+16*x)*exp(1)*exp(4/x)-4*x^2*exp(1))*ln((-ln(x)^2+4*x)/x
)+(x*exp(1)*exp(4/x)+x*exp(1))*ln(x)^2+(-2*x*exp(1)*exp(4/x)-2*x*exp(1))*ln(x))/(2*x*ln(x)^2-8*x^2)/ln((-ln(x)
^2+4*x)/x)^2,x,method=_RETURNVERBOSE)

[Out]

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

Fricas [A] (verification not implemented)

none

Time = 0.25 (sec) , antiderivative size = 33, normalized size of antiderivative = 1.10 \[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\frac {x e + x e^{\left (\frac {x + 4}{x}\right )}}{2 \, \log \left (-\frac {\log \left (x\right )^{2} - 4 \, x}{x}\right )} \]

[In]

integrate(((((x-4)*exp(1)*exp(4/x)+x*exp(1))*log(x)^2+(-4*x^2+16*x)*exp(1)*exp(4/x)-4*x^2*exp(1))*log((-log(x)
^2+4*x)/x)+(x*exp(1)*exp(4/x)+x*exp(1))*log(x)^2+(-2*x*exp(1)*exp(4/x)-2*x*exp(1))*log(x))/(2*x*log(x)^2-8*x^2
)/log((-log(x)^2+4*x)/x)^2,x, algorithm="fricas")

[Out]

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

Sympy [A] (verification not implemented)

Time = 0.30 (sec) , antiderivative size = 41, normalized size of antiderivative = 1.37 \[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\frac {e x e^{\frac {4}{x}}}{2 \log {\left (\frac {4 x - \log {\left (x \right )}^{2}}{x} \right )}} + \frac {e x}{2 \log {\left (\frac {4 x - \log {\left (x \right )}^{2}}{x} \right )}} \]

[In]

integrate(((((x-4)*exp(1)*exp(4/x)+x*exp(1))*ln(x)**2+(-4*x**2+16*x)*exp(1)*exp(4/x)-4*x**2*exp(1))*ln((-ln(x)
**2+4*x)/x)+(x*exp(1)*exp(4/x)+x*exp(1))*ln(x)**2+(-2*x*exp(1)*exp(4/x)-2*x*exp(1))*ln(x))/(2*x*ln(x)**2-8*x**
2)/ln((-ln(x)**2+4*x)/x)**2,x)

[Out]

E*x*exp(4/x)/(2*log((4*x - log(x)**2)/x)) + E*x/(2*log((4*x - log(x)**2)/x))

Maxima [A] (verification not implemented)

none

Time = 0.25 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.17 \[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\frac {x e + x e^{\left (\frac {4}{x} + 1\right )}}{2 \, {\left (\log \left (-\log \left (x\right )^{2} + 4 \, x\right ) - \log \left (x\right )\right )}} \]

[In]

integrate(((((x-4)*exp(1)*exp(4/x)+x*exp(1))*log(x)^2+(-4*x^2+16*x)*exp(1)*exp(4/x)-4*x^2*exp(1))*log((-log(x)
^2+4*x)/x)+(x*exp(1)*exp(4/x)+x*exp(1))*log(x)^2+(-2*x*exp(1)*exp(4/x)-2*x*exp(1))*log(x))/(2*x*log(x)^2-8*x^2
)/log((-log(x)^2+4*x)/x)^2,x, algorithm="maxima")

[Out]

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

Giac [A] (verification not implemented)

none

Time = 0.36 (sec) , antiderivative size = 35, normalized size of antiderivative = 1.17 \[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\frac {x e + x e^{\left (\frac {x + 4}{x}\right )}}{2 \, {\left (\log \left (-\log \left (x\right )^{2} + 4 \, x\right ) - \log \left (x\right )\right )}} \]

[In]

integrate(((((x-4)*exp(1)*exp(4/x)+x*exp(1))*log(x)^2+(-4*x^2+16*x)*exp(1)*exp(4/x)-4*x^2*exp(1))*log((-log(x)
^2+4*x)/x)+(x*exp(1)*exp(4/x)+x*exp(1))*log(x)^2+(-2*x*exp(1)*exp(4/x)-2*x*exp(1))*log(x))/(2*x*log(x)^2-8*x^2
)/log((-log(x)^2+4*x)/x)^2,x, algorithm="giac")

[Out]

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

Mupad [F(-1)]

Timed out. \[ \int \frac {\left (-2 e x-2 e^{1+\frac {4}{x}} x\right ) \log (x)+\left (e x+e^{1+\frac {4}{x}} x\right ) \log ^2(x)+\left (-4 e x^2+e^{1+\frac {4}{x}} \left (16 x-4 x^2\right )+\left (e^{1+\frac {4}{x}} (-4+x)+e x\right ) \log ^2(x)\right ) \log \left (\frac {4 x-\log ^2(x)}{x}\right )}{\left (-8 x^2+2 x \log ^2(x)\right ) \log ^2\left (\frac {4 x-\log ^2(x)}{x}\right )} \, dx=\int \frac {{\ln \left (x\right )}^2\,\left (x\,\mathrm {e}+x\,\mathrm {e}\,{\mathrm {e}}^{4/x}\right )+\ln \left (\frac {4\,x-{\ln \left (x\right )}^2}{x}\right )\,\left ({\ln \left (x\right )}^2\,\left (x\,\mathrm {e}+\mathrm {e}\,{\mathrm {e}}^{4/x}\,\left (x-4\right )\right )-4\,x^2\,\mathrm {e}+\mathrm {e}\,{\mathrm {e}}^{4/x}\,\left (16\,x-4\,x^2\right )\right )-\ln \left (x\right )\,\left (2\,x\,\mathrm {e}+2\,x\,\mathrm {e}\,{\mathrm {e}}^{4/x}\right )}{{\ln \left (\frac {4\,x-{\ln \left (x\right )}^2}{x}\right )}^2\,\left (2\,x\,{\ln \left (x\right )}^2-8\,x^2\right )} \,d x \]

[In]

int((log(x)^2*(x*exp(1) + x*exp(1)*exp(4/x)) + log((4*x - log(x)^2)/x)*(log(x)^2*(x*exp(1) + exp(1)*exp(4/x)*(
x - 4)) - 4*x^2*exp(1) + exp(1)*exp(4/x)*(16*x - 4*x^2)) - log(x)*(2*x*exp(1) + 2*x*exp(1)*exp(4/x)))/(log((4*
x - log(x)^2)/x)^2*(2*x*log(x)^2 - 8*x^2)),x)

[Out]

int((log(x)^2*(x*exp(1) + x*exp(1)*exp(4/x)) + log((4*x - log(x)^2)/x)*(log(x)^2*(x*exp(1) + exp(1)*exp(4/x)*(
x - 4)) - 4*x^2*exp(1) + exp(1)*exp(4/x)*(16*x - 4*x^2)) - log(x)*(2*x*exp(1) + 2*x*exp(1)*exp(4/x)))/(log((4*
x - log(x)^2)/x)^2*(2*x*log(x)^2 - 8*x^2)), x)