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

Optimal result

Integrand size = 205, antiderivative size = 32 \[ \int \frac {\left (x+e^{1-x} x-2 x^2\right ) \log (x)+\left (-2-2 e^{1-x}\right ) \log ^2(x)+8 \log ^3(x)+\left (-x-e^{1-x} x+2 x^2+\left (-2 x^2-e^{1-x} x^2\right ) \log (x)+\left (1+e^{1-x}-2 x\right ) \log ^2(x)+\left (2 x+e^{1-x} x\right ) \log ^3(x)\right ) \log \left (-x+\log ^2(x)\right )}{\left (\left (x^2+e^{1-x} x^2-2 x^3\right ) \log (x)-4 x^2 \log ^2(x)+\left (-x-e^{1-x} x+2 x^2\right ) \log ^3(x)+4 x \log ^4(x)\right ) \log \left (-x+\log ^2(x)\right )} \, dx=\log \left (\left (4+\frac {-1-e^{1-x}+2 x}{\log (x)}\right ) \log \left (-x+\log ^2(x)\right )\right ) \]

[Out]

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

Rubi [F]

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

[In]

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

[Out]

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

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

Mathematica [A] (verified)

Time = 0.28 (sec) , antiderivative size = 42, normalized size of antiderivative = 1.31 \[ \int \frac {\left (x+e^{1-x} x-2 x^2\right ) \log (x)+\left (-2-2 e^{1-x}\right ) \log ^2(x)+8 \log ^3(x)+\left (-x-e^{1-x} x+2 x^2+\left (-2 x^2-e^{1-x} x^2\right ) \log (x)+\left (1+e^{1-x}-2 x\right ) \log ^2(x)+\left (2 x+e^{1-x} x\right ) \log ^3(x)\right ) \log \left (-x+\log ^2(x)\right )}{\left (\left (x^2+e^{1-x} x^2-2 x^3\right ) \log (x)-4 x^2 \log ^2(x)+\left (-x-e^{1-x} x+2 x^2\right ) \log ^3(x)+4 x \log ^4(x)\right ) \log \left (-x+\log ^2(x)\right )} \, dx=-x-\log (\log (x))+\log \left (-e-e^x+2 e^x x+4 e^x \log (x)\right )+\log \left (\log \left (-x+\log ^2(x)\right )\right ) \]

[In]

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

[Out]

-x - Log[Log[x]] + Log[-E - E^x + 2*E^x*x + 4*E^x*Log[x]] + Log[Log[-x + Log[x]^2]]

Maple [A] (verified)

Time = 13.32 (sec) , antiderivative size = 33, normalized size of antiderivative = 1.03

method	result	size
risch	\(\ln \left (\frac {x}{2}-\frac {{\mathrm e}^{1-x}}{4}+\ln \left (x \right )-\frac {1}{4}\right )-\ln \left (\ln \left (x \right )\right )+\ln \left (\ln \left (\ln \left (x \right )^{2}-x \right )\right )\)	\(33\)
parallelrisch	\(-\ln \left (\ln \left (x \right )\right )+\ln \left (\ln \left (\ln \left (x \right )^{2}-x \right )\right )+\ln \left (x +2 \ln \left (x \right )-\frac {{\mathrm e}^{1-x}}{2}-\frac {1}{2}\right )\)	\(33\)

[In]

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

[Out]

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

Fricas [A] (verification not implemented)

none

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

[In]

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

[Out]

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

Sympy [A] (verification not implemented)

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

[In]

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

[Out]

log(-2*x + exp(1 - x) - 4*log(x) + 1) - log(log(x)) + log(log(-x + log(x)**2))

Maxima [A] (verification not implemented)

none

Time = 0.28 (sec) , antiderivative size = 57, normalized size of antiderivative = 1.78 \[ \int \frac {\left (x+e^{1-x} x-2 x^2\right ) \log (x)+\left (-2-2 e^{1-x}\right ) \log ^2(x)+8 \log ^3(x)+\left (-x-e^{1-x} x+2 x^2+\left (-2 x^2-e^{1-x} x^2\right ) \log (x)+\left (1+e^{1-x}-2 x\right ) \log ^2(x)+\left (2 x+e^{1-x} x\right ) \log ^3(x)\right ) \log \left (-x+\log ^2(x)\right )}{\left (\left (x^2+e^{1-x} x^2-2 x^3\right ) \log (x)-4 x^2 \log ^2(x)+\left (-x-e^{1-x} x+2 x^2\right ) \log ^3(x)+4 x \log ^4(x)\right ) \log \left (-x+\log ^2(x)\right )} \, dx=-x + \log \left (\frac {1}{2} \, x + \log \left (x\right ) - \frac {1}{4}\right ) + \log \left (\frac {{\left (2 \, x + 4 \, \log \left (x\right ) - 1\right )} e^{x} - e}{2 \, x + 4 \, \log \left (x\right ) - 1}\right ) + \log \left (\log \left (\log \left (x\right )^{2} - x\right )\right ) - \log \left (\log \left (x\right )\right ) \]

[In]

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

[Out]

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

Giac [A] (verification not implemented)

none

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

[In]

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

[Out]

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

Mupad [B] (verification not implemented)

Time = 8.48 (sec) , antiderivative size = 80, normalized size of antiderivative = 2.50 \[ \int \frac {\left (x+e^{1-x} x-2 x^2\right ) \log (x)+\left (-2-2 e^{1-x}\right ) \log ^2(x)+8 \log ^3(x)+\left (-x-e^{1-x} x+2 x^2+\left (-2 x^2-e^{1-x} x^2\right ) \log (x)+\left (1+e^{1-x}-2 x\right ) \log ^2(x)+\left (2 x+e^{1-x} x\right ) \log ^3(x)\right ) \log \left (-x+\log ^2(x)\right )}{\left (\left (x^2+e^{1-x} x^2-2 x^3\right ) \log (x)-4 x^2 \log ^2(x)+\left (-x-e^{1-x} x+2 x^2\right ) \log ^3(x)+4 x \log ^4(x)\right ) \log \left (-x+\log ^2(x)\right )} \, dx=\ln \left (\frac {2\,x-{\mathrm {e}}^{1-x}+4\,\ln \left (x\right )-1}{x}\right )+\ln \left (\frac {2\,x+x\,{\mathrm {e}}^{1-x}+4}{x}\right )+\ln \left (\ln \left ({\ln \left (x\right )}^2-x\right )\right )-\ln \left (\frac {4\,\ln \left (x\right )+2\,x\,\ln \left (x\right )+x\,{\mathrm {e}}^{1-x}\,\ln \left (x\right )}{x}\right )+\ln \left (x\right ) \]

[In]

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

[Out]

log((2*x - exp(1 - x) + 4*log(x) - 1)/x) + log((2*x + x*exp(1 - x) + 4)/x) + log(log(log(x)^2 - x)) - log((4*l
og(x) + 2*x*log(x) + x*exp(1 - x)*log(x))/x) + log(x)