3.9.22 \(\int e^{-e^{2 x}-x^2} (1+2 x+e^{e^{2 x}+x^2} x-2 x^3+e^5 (1-2 x^2)+e^{2 x} (-2 e^5 x-2 x^2)+(1-2 e^{2 x} x-2 x^2) \log (4 x)) \, dx\)

Optimal. Leaf size=33 \[ x \left (\frac {x}{2}+e^{-e^{2 x}-x^2} \left (e^5+x+\log (4 x)\right )\right ) \]

________________________________________________________________________________________

Rubi [F]  time = 4.75, antiderivative size = 0, normalized size of antiderivative = 0.00, number of steps used = 0, number of rules used = 0, integrand size = 0, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.000, Rules used = {} \begin {gather*} \int e^{-e^{2 x}-x^2} \left (1+2 x+e^{e^{2 x}+x^2} x-2 x^3+e^5 \left (1-2 x^2\right )+e^{2 x} \left (-2 e^5 x-2 x^2\right )+\left (1-2 e^{2 x} x-2 x^2\right ) \log (4 x)\right ) \, dx \end {gather*}

Verification is not applicable to the result.

[In]

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

[Out]

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

Rubi steps

\begin {gather*} \begin {aligned} \text {integral} &=\int \left (e^{-e^{2 x}-x^2}+x+2 e^{-e^{2 x}-x^2} x-2 e^{-e^{2 x}-x^2} x^3-2 e^{-e^{2 x}+2 x-x^2} x \left (e^5+x\right )-e^{5-e^{2 x}-x^2} \left (-1+2 x^2\right )-e^{-e^{2 x}-x^2} \left (-1+2 e^{2 x} x+2 x^2\right ) \log (4 x)\right ) \, dx\\ &=\frac {x^2}{2}+2 \int e^{-e^{2 x}-x^2} x \, dx-2 \int e^{-e^{2 x}-x^2} x^3 \, dx-2 \int e^{-e^{2 x}+2 x-x^2} x \left (e^5+x\right ) \, dx+\int e^{-e^{2 x}-x^2} \, dx-\int e^{5-e^{2 x}-x^2} \left (-1+2 x^2\right ) \, dx-\int e^{-e^{2 x}-x^2} \left (-1+2 e^{2 x} x+2 x^2\right ) \log (4 x) \, dx\\ &=\frac {x^2}{2}+\frac {e^{-e^{2 x}-x^2} \left (e^{2 x} x+x^2\right ) \log (4 x)}{e^{2 x}+x}+2 \int e^{-e^{2 x}-x^2} x \, dx-2 \int e^{-e^{2 x}-x^2} x^3 \, dx-2 \int \left (e^{5-e^{2 x}+2 x-x^2} x+e^{-e^{2 x}+2 x-x^2} x^2\right ) \, dx-\int \left (-e^{5-e^{2 x}-x^2}+2 e^{5-e^{2 x}-x^2} x^2\right ) \, dx\\ &=\frac {x^2}{2}+\frac {e^{-e^{2 x}-x^2} \left (e^{2 x} x+x^2\right ) \log (4 x)}{e^{2 x}+x}+2 \int e^{-e^{2 x}-x^2} x \, dx-2 \int e^{5-e^{2 x}+2 x-x^2} x \, dx-2 \int e^{5-e^{2 x}-x^2} x^2 \, dx-2 \int e^{-e^{2 x}+2 x-x^2} x^2 \, dx-2 \int e^{-e^{2 x}-x^2} x^3 \, dx+\int e^{5-e^{2 x}-x^2} \, dx\\ \end {aligned} \end {gather*}

________________________________________________________________________________________

Mathematica [A]  time = 0.09, size = 49, normalized size = 1.48 \begin {gather*} \frac {x^2}{2}+e^{-e^{2 x}} \left (e^{-x^2} \left (e^5 x+x^2\right )+e^{-x^2} x \log (4 x)\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

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

________________________________________________________________________________________

fricas [A]  time = 0.97, size = 46, normalized size = 1.39 \begin {gather*} \frac {1}{2} \, {\left (x^{2} e^{\left (x^{2} + e^{\left (2 \, x\right )}\right )} + 2 \, x^{2} + 2 \, x e^{5} + 2 \, x \log \left (4 \, x\right )\right )} e^{\left (-x^{2} - e^{\left (2 \, x\right )}\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

giac [B]  time = 0.45, size = 58, normalized size = 1.76 \begin {gather*} x^{2} e^{\left (-x^{2} - e^{\left (2 \, x\right )}\right )} + x e^{\left (-x^{2} - e^{\left (2 \, x\right )}\right )} \log \left (4 \, x\right ) + \frac {1}{2} \, x^{2} + x e^{\left (-x^{2} - e^{\left (2 \, x\right )} + 5\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

maple [A]  time = 0.09, size = 35, normalized size = 1.06

method	result	size
risch	\(\frac {x^{2}}{2}+\left (x \,{\mathrm e}^{5}+x^{2}+x \ln \left (4 x \right )\right ) {\mathrm e}^{-{\mathrm e}^{2 x}-x^{2}}\)	\(35\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

maxima [A]  time = 1.07, size = 37, normalized size = 1.12 \begin {gather*} \frac {1}{2} \, x^{2} + {\left (x^{2} + x {\left (e^{5} + 2 \, \log \relax (2)\right )} + x \log \relax (x)\right )} e^{\left (-x^{2} - e^{\left (2 \, x\right )}\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.03 \begin {gather*} \int -{\mathrm {e}}^{-{\mathrm {e}}^{2\,x}-x^2}\,\left (\ln \left (4\,x\right )\,\left (2\,x\,{\mathrm {e}}^{2\,x}+2\,x^2-1\right )-2\,x+{\mathrm {e}}^5\,\left (2\,x^2-1\right )+{\mathrm {e}}^{2\,x}\,\left (2\,x^2+2\,{\mathrm {e}}^5\,x\right )-x\,{\mathrm {e}}^{{\mathrm {e}}^{2\,x}+x^2}+2\,x^3-1\right ) \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

sympy [A]  time = 11.53, size = 31, normalized size = 0.94 \begin {gather*} \frac {x^{2}}{2} + \left (x^{2} + x \log {\left (4 x \right )} + x e^{5}\right ) e^{- x^{2} - e^{2 x}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________