3.78.26 \(\int \frac {-15 x^4+e^x (-5+5 x)+(e^x (-1+x)-3 x^4) \log (\frac {e^x+80 x-x^4}{5 x})}{2 e^x x+160 x^2-2 x^5} \, dx\) [7726]

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

[Out]

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

________________________________________________________________________________________

Rubi [A]
time = 0.35, antiderivative size = 28, normalized size of antiderivative = 1.04, number of steps used = 3, number of rules used = 3, integrand size = 69, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.043, Rules used = {6873, 12, 6818} \begin {gather*} \frac {1}{4} \left (\log \left (\frac {-x^4+80 x+e^x}{5 x}\right )+5\right )^2 \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

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

Rule 12

Int[(a_)*(u_), x_Symbol] :> Dist[a, Int[u, x], x] /; FreeQ[a, x] &&  !MatchQ[u, (b_)*(v_) /; FreeQ[b, x]]

Rule 6818

Int[(u_)*(y_)^(m_.), x_Symbol] :> With[{q = DerivativeDivides[y, u, x]}, Simp[q*(y^(m + 1)/(m + 1)), x] /;  !F
alseQ[q]] /; FreeQ[m, x] && NeQ[m, -1]

Rule 6873

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

Rubi steps

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

________________________________________________________________________________________

Mathematica [A]
time = 0.08, size = 28, normalized size = 1.04 \begin {gather*} \frac {1}{4} \left (5+\log \left (\frac {e^x+80 x-x^4}{5 x}\right )\right )^2 \end {gather*}

Antiderivative was successfully verified.

[In]

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

[Out]

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

________________________________________________________________________________________

Maple [C] Result contains higher order function than in optimal. Order 9 vs. order 3.
time = 1.89, size = 496, normalized size = 18.37

method	result	size
risch	\(\frac {i \ln \left (x \right ) \pi \,\mathrm {csgn}\left (i \left ({\mathrm e}^{x}-x^{4}+80 x \right )\right ) \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2}}{4}+\frac {i \ln \left (x \right ) \pi \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2}}{2}+\frac {\ln \left (5\right ) \ln \left (x \right )}{2}-\frac {5 \ln \left (x \right )}{2}+\frac {\ln \left (x \right )^{2}}{4}+\frac {\ln \left (-{\mathrm e}^{x}+x^{4}-80 x \right )^{2}}{4}-\frac {i \ln \left (x \right ) \pi \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2} \mathrm {csgn}\left (\frac {i}{x}\right )}{4}-\frac {i \pi \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \mathrm {csgn}\left (i \left ({\mathrm e}^{x}-x^{4}+80 x \right )\right ) \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2}}{4}-\frac {i \pi \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2}}{2}-\frac {i \pi \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \mathrm {csgn}\left (i \left ({\mathrm e}^{x}-x^{4}+80 x \right )\right ) \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right ) \mathrm {csgn}\left (\frac {i}{x}\right )}{4}+\frac {i \pi \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{2}+\frac {i \ln \left (x \right ) \pi \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{3}}{4}-\frac {i \pi \ln \left (x \right )}{2}-\frac {i \pi \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{3}}{4}+\frac {5 \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{2}+\frac {i \pi \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2} \mathrm {csgn}\left (\frac {i}{x}\right )}{4}+\frac {i \ln \left (x \right ) \pi \,\mathrm {csgn}\left (i \left ({\mathrm e}^{x}-x^{4}+80 x \right )\right ) \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right ) \mathrm {csgn}\left (\frac {i}{x}\right )}{4}-\frac {\ln \left (x \right ) \ln \left (-{\mathrm e}^{x}+x^{4}-80 x \right )}{2}-\frac {\ln \left (5\right ) \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{2}\)	\(496\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((((x-1)*exp(x)-3*x^4)*ln(1/5*(exp(x)-x^4+80*x)/x)+(5*x-5)*exp(x)-15*x^4)/(2*exp(x)*x-2*x^5+160*x^2),x,meth
od=_RETURNVERBOSE)

[Out]

1/4*I*ln(x)*Pi*csgn(I*(exp(x)-x^4+80*x))*csgn(I*(exp(x)-x^4+80*x)/x)^2+1/2*I*ln(x)*Pi*csgn(I*(exp(x)-x^4+80*x)
/x)^2+1/2*ln(5)*ln(x)-5/2*ln(x)+1/4*ln(x)^2+1/4*ln(-exp(x)+x^4-80*x)^2-1/4*I*ln(x)*Pi*csgn(I*(exp(x)-x^4+80*x)
/x)^2*csgn(I/x)-1/4*I*Pi*ln(exp(x)-x^4+80*x)*csgn(I*(exp(x)-x^4+80*x))*csgn(I*(exp(x)-x^4+80*x)/x)^2-1/2*I*Pi*
ln(exp(x)-x^4+80*x)*csgn(I*(exp(x)-x^4+80*x)/x)^2-1/4*I*Pi*ln(exp(x)-x^4+80*x)*csgn(I*(exp(x)-x^4+80*x))*csgn(
I*(exp(x)-x^4+80*x)/x)*csgn(I/x)+1/2*I*Pi*ln(exp(x)-x^4+80*x)+1/4*I*ln(x)*Pi*csgn(I*(exp(x)-x^4+80*x)/x)^3-1/2
*I*Pi*ln(x)-1/4*I*Pi*ln(exp(x)-x^4+80*x)*csgn(I*(exp(x)-x^4+80*x)/x)^3+5/2*ln(exp(x)-x^4+80*x)+1/4*I*Pi*ln(exp
(x)-x^4+80*x)*csgn(I*(exp(x)-x^4+80*x)/x)^2*csgn(I/x)+1/4*I*ln(x)*Pi*csgn(I*(exp(x)-x^4+80*x))*csgn(I*(exp(x)-
x^4+80*x)/x)*csgn(I/x)-1/2*ln(x)*ln(-exp(x)+x^4-80*x)-1/2*ln(5)*ln(exp(x)-x^4+80*x)

________________________________________________________________________________________

Maxima [B] Leaf count of result is larger than twice the leaf count of optimal. 51 vs. \(2 (22) = 44\).
time = 0.50, size = 51, normalized size = 1.89 \begin {gather*} -\frac {1}{2} \, {\left (\log \left (5\right ) + \log \left (x\right ) - 5\right )} \log \left (-x^{4} + 80 \, x + e^{x}\right ) + \frac {1}{4} \, \log \left (-x^{4} + 80 \, x + e^{x}\right )^{2} + \frac {1}{2} \, {\left (\log \left (5\right ) - 5\right )} \log \left (x\right ) + \frac {1}{4} \, \log \left (x\right )^{2} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

Fricas [A]
time = 0.36, size = 41, normalized size = 1.52 \begin {gather*} \frac {1}{4} \, \log \left (-\frac {x^{4} - 80 \, x - e^{x}}{5 \, x}\right )^{2} + \frac {5}{2} \, \log \left (-\frac {x^{4} - 80 \, x - e^{x}}{5 \, x}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

Sympy [B] Leaf count of result is larger than twice the leaf count of optimal. 41 vs. \(2 (20) = 40\).
time = 0.20, size = 41, normalized size = 1.52 \begin {gather*} - \frac {5 \log {\left (x \right )}}{2} + \frac {\log {\left (\frac {- \frac {x^{4}}{5} + 16 x + \frac {e^{x}}{5}}{x} \right )}^{2}}{4} + \frac {5 \log {\left (- x^{4} + 80 x + e^{x} \right )}}{2} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

Giac [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

integrate(1/2*(15*x^4 - 5*(x - 1)*e^x + (3*x^4 - (x - 1)*e^x)*log(-1/5*(x^4 - 80*x - e^x)/x))/(x^5 - 80*x^2 -
x*e^x), x)

________________________________________________________________________________________

Mupad [B]
time = 5.39, size = 40, normalized size = 1.48 \begin {gather*} \frac {\ln \left (\frac {16\,x+\frac {{\mathrm {e}}^x}{5}-\frac {x^4}{5}}{x}\right )\,\left (\ln \left (\frac {16\,x+\frac {{\mathrm {e}}^x}{5}-\frac {x^4}{5}}{x}\right )+10\right )}{4} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________