\(\int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log (\frac {1}{x+4 x^2})+x^2 \log ^2(\frac {1}{x+4 x^2})} (e^{5 x^2} (2+16 x)+e^{10 x^2} (20 x+80 x^2)+(-2 x-16 x^2+e^{5 x^2} (-2-8 x-20 x^2-80 x^3)) \log (\frac {1}{x+4 x^2})+(2 x+8 x^2) \log ^2(\frac {1}{x+4 x^2}))}{1+4 x} \, dx\) [7130]

Optimal result

Integrand size = 156, antiderivative size = 31 \[ \int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log \left (\frac {1}{x+4 x^2}\right )+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (e^{5 x^2} (2+16 x)+e^{10 x^2} \left (20 x+80 x^2\right )+\left (-2 x-16 x^2+e^{5 x^2} \left (-2-8 x-20 x^2-80 x^3\right )\right ) \log \left (\frac {1}{x+4 x^2}\right )+\left (2 x+8 x^2\right ) \log ^2\left (\frac {1}{x+4 x^2}\right )\right )}{1+4 x} \, dx=-1+e^{\left (-e^{5 x^2}+x \log \left (\frac {1}{x+4 x^2}\right )\right )^2}-x \]

[Out]

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

Rubi [F]

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

[In]

Int[(-1 - 4*x + E^(E^(10*x^2) - 2*E^(5*x^2)*x*Log[(x + 4*x^2)^(-1)] + x^2*Log[(x + 4*x^2)^(-1)]^2)*(E^(5*x^2)*
(2 + 16*x) + E^(10*x^2)*(20*x + 80*x^2) + (-2*x - 16*x^2 + E^(5*x^2)*(-2 - 8*x - 20*x^2 - 80*x^3))*Log[(x + 4*
x^2)^(-1)] + (2*x + 8*x^2)*Log[(x + 4*x^2)^(-1)]^2))/(1 + 4*x),x]

[Out]

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

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

Mathematica [A] (verified)

Time = 0.30 (sec) , antiderivative size = 51, normalized size of antiderivative = 1.65 \[ \int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log \left (\frac {1}{x+4 x^2}\right )+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (e^{5 x^2} (2+16 x)+e^{10 x^2} \left (20 x+80 x^2\right )+\left (-2 x-16 x^2+e^{5 x^2} \left (-2-8 x-20 x^2-80 x^3\right )\right ) \log \left (\frac {1}{x+4 x^2}\right )+\left (2 x+8 x^2\right ) \log ^2\left (\frac {1}{x+4 x^2}\right )\right )}{1+4 x} \, dx=-x+e^{e^{10 x^2}+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (\frac {1}{x+4 x^2}\right )^{-2 e^{5 x^2} x} \]

[In]

Integrate[(-1 - 4*x + E^(E^(10*x^2) - 2*E^(5*x^2)*x*Log[(x + 4*x^2)^(-1)] + x^2*Log[(x + 4*x^2)^(-1)]^2)*(E^(5
*x^2)*(2 + 16*x) + E^(10*x^2)*(20*x + 80*x^2) + (-2*x - 16*x^2 + E^(5*x^2)*(-2 - 8*x - 20*x^2 - 80*x^3))*Log[(
x + 4*x^2)^(-1)] + (2*x + 8*x^2)*Log[(x + 4*x^2)^(-1)]^2))/(1 + 4*x),x]

[Out]

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

Maple [A] (verified)

Time = 2.24 (sec) , antiderivative size = 55, normalized size of antiderivative = 1.77

method	result	size
parallelrisch	\(\frac {1}{8}-x +{\mathrm e}^{x^{2} \ln \left (\frac {1}{\left (1+4 x \right ) x}\right )^{2}-2 x \,{\mathrm e}^{5 x^{2}} \ln \left (\frac {1}{\left (1+4 x \right ) x}\right )+{\mathrm e}^{10 x^{2}}}\)	\(55\)
risch	\(\text {Expression too large to display}\)	\(863\)

[In]

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

[Out]

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

Fricas [A] (verification not implemented)

none

Time = 0.27 (sec) , antiderivative size = 47, normalized size of antiderivative = 1.52 \[ \int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log \left (\frac {1}{x+4 x^2}\right )+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (e^{5 x^2} (2+16 x)+e^{10 x^2} \left (20 x+80 x^2\right )+\left (-2 x-16 x^2+e^{5 x^2} \left (-2-8 x-20 x^2-80 x^3\right )\right ) \log \left (\frac {1}{x+4 x^2}\right )+\left (2 x+8 x^2\right ) \log ^2\left (\frac {1}{x+4 x^2}\right )\right )}{1+4 x} \, dx=-x + e^{\left (x^{2} \log \left (\frac {1}{4 \, x^{2} + x}\right )^{2} - 2 \, x e^{\left (5 \, x^{2}\right )} \log \left (\frac {1}{4 \, x^{2} + x}\right ) + e^{\left (10 \, x^{2}\right )}\right )} \]

[In]

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

[Out]

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

Sympy [A] (verification not implemented)

Time = 0.70 (sec) , antiderivative size = 44, normalized size of antiderivative = 1.42 \[ \int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log \left (\frac {1}{x+4 x^2}\right )+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (e^{5 x^2} (2+16 x)+e^{10 x^2} \left (20 x+80 x^2\right )+\left (-2 x-16 x^2+e^{5 x^2} \left (-2-8 x-20 x^2-80 x^3\right )\right ) \log \left (\frac {1}{x+4 x^2}\right )+\left (2 x+8 x^2\right ) \log ^2\left (\frac {1}{x+4 x^2}\right )\right )}{1+4 x} \, dx=- x + e^{x^{2} \log {\left (\frac {1}{4 x^{2} + x} \right )}^{2} - 2 x e^{5 x^{2}} \log {\left (\frac {1}{4 x^{2} + x} \right )} + e^{10 x^{2}}} \]

[In]

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

[Out]

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

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 71 vs. \(2 (29) = 58\).

Time = 0.34 (sec) , antiderivative size = 71, normalized size of antiderivative = 2.29 \[ \int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log \left (\frac {1}{x+4 x^2}\right )+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (e^{5 x^2} (2+16 x)+e^{10 x^2} \left (20 x+80 x^2\right )+\left (-2 x-16 x^2+e^{5 x^2} \left (-2-8 x-20 x^2-80 x^3\right )\right ) \log \left (\frac {1}{x+4 x^2}\right )+\left (2 x+8 x^2\right ) \log ^2\left (\frac {1}{x+4 x^2}\right )\right )}{1+4 x} \, dx=-x + e^{\left (x^{2} \log \left (4 \, x + 1\right )^{2} + 2 \, x^{2} \log \left (4 \, x + 1\right ) \log \left (x\right ) + x^{2} \log \left (x\right )^{2} + 2 \, x e^{\left (5 \, x^{2}\right )} \log \left (4 \, x + 1\right ) + 2 \, x e^{\left (5 \, x^{2}\right )} \log \left (x\right ) + e^{\left (10 \, x^{2}\right )}\right )} \]

[In]

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

[Out]

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

Giac [F]

\[ \int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log \left (\frac {1}{x+4 x^2}\right )+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (e^{5 x^2} (2+16 x)+e^{10 x^2} \left (20 x+80 x^2\right )+\left (-2 x-16 x^2+e^{5 x^2} \left (-2-8 x-20 x^2-80 x^3\right )\right ) \log \left (\frac {1}{x+4 x^2}\right )+\left (2 x+8 x^2\right ) \log ^2\left (\frac {1}{x+4 x^2}\right )\right )}{1+4 x} \, dx=\int { \frac {2 \, {\left ({\left (4 \, x^{2} + x\right )} \log \left (\frac {1}{4 \, x^{2} + x}\right )^{2} + 10 \, {\left (4 \, x^{2} + x\right )} e^{\left (10 \, x^{2}\right )} + {\left (8 \, x + 1\right )} e^{\left (5 \, x^{2}\right )} - {\left (8 \, x^{2} + {\left (40 \, x^{3} + 10 \, x^{2} + 4 \, x + 1\right )} e^{\left (5 \, x^{2}\right )} + x\right )} \log \left (\frac {1}{4 \, x^{2} + x}\right )\right )} e^{\left (x^{2} \log \left (\frac {1}{4 \, x^{2} + x}\right )^{2} - 2 \, x e^{\left (5 \, x^{2}\right )} \log \left (\frac {1}{4 \, x^{2} + x}\right ) + e^{\left (10 \, x^{2}\right )}\right )} - 4 \, x - 1}{4 \, x + 1} \,d x } \]

[In]

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

[Out]

integrate((2*((4*x^2 + x)*log(1/(4*x^2 + x))^2 + 10*(4*x^2 + x)*e^(10*x^2) + (8*x + 1)*e^(5*x^2) - (8*x^2 + (4
0*x^3 + 10*x^2 + 4*x + 1)*e^(5*x^2) + x)*log(1/(4*x^2 + x)))*e^(x^2*log(1/(4*x^2 + x))^2 - 2*x*e^(5*x^2)*log(1
/(4*x^2 + x)) + e^(10*x^2)) - 4*x - 1)/(4*x + 1), x)

Mupad [B] (verification not implemented)

Time = 12.92 (sec) , antiderivative size = 50, normalized size of antiderivative = 1.61 \[ \int \frac {-1-4 x+e^{e^{10 x^2}-2 e^{5 x^2} x \log \left (\frac {1}{x+4 x^2}\right )+x^2 \log ^2\left (\frac {1}{x+4 x^2}\right )} \left (e^{5 x^2} (2+16 x)+e^{10 x^2} \left (20 x+80 x^2\right )+\left (-2 x-16 x^2+e^{5 x^2} \left (-2-8 x-20 x^2-80 x^3\right )\right ) \log \left (\frac {1}{x+4 x^2}\right )+\left (2 x+8 x^2\right ) \log ^2\left (\frac {1}{x+4 x^2}\right )\right )}{1+4 x} \, dx=\frac {{\mathrm {e}}^{{\mathrm {e}}^{10\,x^2}}\,{\mathrm {e}}^{x^2\,{\ln \left (\frac {1}{4\,x^2+x}\right )}^2}}{{\left (\frac {1}{4\,x^2+x}\right )}^{2\,x\,{\mathrm {e}}^{5\,x^2}}}-x \]

[In]

int(-(4*x - exp(exp(10*x^2) + x^2*log(1/(x + 4*x^2))^2 - 2*x*exp(5*x^2)*log(1/(x + 4*x^2)))*(log(1/(x + 4*x^2)
)^2*(2*x + 8*x^2) + exp(5*x^2)*(16*x + 2) - log(1/(x + 4*x^2))*(2*x + exp(5*x^2)*(8*x + 20*x^2 + 80*x^3 + 2) +
16*x^2) + exp(10*x^2)*(20*x + 80*x^2)) + 1)/(4*x + 1),x)

[Out]

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