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\)

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

________________________________________________________________________________________

Rubi [A]  time = 0.33, 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 = {6741, 12, 6686} \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 6686

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 6741

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

________________________________________________________________________________________

fricas [A]  time = 1.09, 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((((x-1)*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)

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {15 \, x^{4} - 5 \, {\left (x - 1\right )} e^{x} + {\left (3 \, x^{4} - {\left (x - 1\right )} e^{x}\right )} \log \left (-\frac {x^{4} - 80 \, x - e^{x}}{5 \, x}\right )}{2 \, {\left (x^{5} - 80 \, x^{2} - x e^{x}\right )}}\,{d x} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((((x-1)*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)

________________________________________________________________________________________

maple [C]  time = 0.22, size = 496, normalized size = 18.37

method	result	size
risch	\(-\frac {5 \ln \relax (x )}{2}+\frac {\ln \relax (x )^{2}}{4}-\frac {i \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \pi \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2}}{2}+\frac {i \ln \relax (x ) \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 ({\mathrm e}^{x}-x^{4}+80 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 {i \ln \relax (x ) \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 {i \ln \left ({\mathrm e}^{x}-x^{4}+80 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 \relax (x ) \pi \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{3}}{4}+\frac {\ln \relax (5) \ln \relax (x )}{2}-\frac {i \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \pi \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{3}}{4}-\frac {i \ln \relax (x ) \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 \ln \left ({\mathrm e}^{x}-x^{4}+80 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 \ln \relax (x ) \pi \mathrm {csgn}\left (\frac {i \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{x}\right )^{2}}{2}-\frac {\ln \relax (x ) \ln \left (-{\mathrm e}^{x}+x^{4}-80 x \right )}{2}-\frac {\ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \ln \relax (5)}{2}+\frac {5 \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right )}{2}+\frac {\ln \left (-{\mathrm e}^{x}+x^{4}-80 x \right )^{2}}{4}-\frac {i \ln \relax (x ) \pi }{2}+\frac {i \ln \left ({\mathrm e}^{x}-x^{4}+80 x \right ) \pi }{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]

-5/2*ln(x)+1/4*ln(x)^2-1/2*I*ln(exp(x)-x^4+80*x)*Pi*csgn(I*(exp(x)-x^4+80*x)/x)^2+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/4*I*ln(exp(x)-x^4+80*x)*Pi*csgn(I*(exp(x)-x^4+80*x))*csgn(I*(exp(
x)-x^4+80*x)/x)*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/4*I
*ln(exp(x)-x^4+80*x)*Pi*csgn(I*(exp(x)-x^4+80*x))*csgn(I*(exp(x)-x^4+80*x)/x)^2+1/4*I*ln(x)*Pi*csgn(I*(exp(x)-
x^4+80*x)/x)^3+1/2*ln(5)*ln(x)-1/4*I*ln(exp(x)-x^4+80*x)*Pi*csgn(I*(exp(x)-x^4+80*x)/x)^3-1/4*I*ln(x)*Pi*csgn(
I*(exp(x)-x^4+80*x)/x)^2*csgn(I/x)+1/4*I*ln(exp(x)-x^4+80*x)*Pi*csgn(I*(exp(x)-x^4+80*x)/x)^2*csgn(I/x)+1/2*I*
ln(x)*Pi*csgn(I*(exp(x)-x^4+80*x)/x)^2-1/2*ln(x)*ln(-exp(x)+x^4-80*x)-1/2*ln(exp(x)-x^4+80*x)*ln(5)+5/2*ln(exp
(x)-x^4+80*x)+1/4*ln(-exp(x)+x^4-80*x)^2-1/2*I*ln(x)*Pi+1/2*I*ln(exp(x)-x^4+80*x)*Pi

________________________________________________________________________________________

maxima [B]  time = 0.49, size = 51, normalized size = 1.89 \begin {gather*} -\frac {1}{2} \, {\left (\log \relax (5) + \log \relax (x) - 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 \relax (5) - 5\right )} \log \relax (x) + \frac {1}{4} \, \log \relax (x)^{2} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((((x-1)*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

________________________________________________________________________________________

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

________________________________________________________________________________________

sympy [B]  time = 0.54, size = 41, normalized size = 1.52 \begin {gather*} - \frac {5 \log {\relax (x )}}{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((((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)

[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

________________________________________________________________________________________