\(\int \frac {e^{15} (10-24 x+6 x^2)+e^{15} (-10+22 x-4 x^2) \log (5)+e^{15} (-10+22 x-4 x^2) \log (5-x)}{-5 x+6 x^2-x^3+(5 x-6 x^2+x^3) \log (5)+(5 x-6 x^2+x^3) \log (5-x)+(e^5 (-15 x+18 x^2-3 x^3)+e^5 (15 x-18 x^2+3 x^3) \log (5)+e^5 (15 x-18 x^2+3 x^3) \log (5-x)) \log (\frac {-x+x^2}{-1+\log (5)+\log (5-x)})+(e^{10} (-15 x+18 x^2-3 x^3)+e^{10} (15 x-18 x^2+3 x^3) \log (5)+e^{10} (15 x-18 x^2+3 x^3) \log (5-x)) \log ^2(\frac {-x+x^2}{-1+\log (5)+\log (5-x)})+(e^{15} (-5 x+6 x^2-x^3)+e^{15} (5 x-6 x^2+x^3) \log (5)+e^{15} (5 x-6 x^2+x^3) \log (5-x)) \log ^3(\frac {-x+x^2}{-1+\log (5)+\log (5-x)})} \, dx\) [8762]

Optimal result

Integrand size = 357, antiderivative size = 35 \[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\frac {x^2}{\left (\frac {x}{e^5}+x \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )\right )^2} \]

[Out]

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

Rubi [A] (verified)

Time = 1.21 (sec) , antiderivative size = 34, normalized size of antiderivative = 0.97, number of steps used = 4, number of rules used = 4, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.011, Rules used = {6820, 12, 6840, 32} \[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\frac {e^{10}}{\left (e^5 \log \left (\frac {(1-x) x}{1-\log (5 (5-x))}\right )+1\right )^2} \]

[In]

Int[(E^15*(10 - 24*x + 6*x^2) + E^15*(-10 + 22*x - 4*x^2)*Log[5] + E^15*(-10 + 22*x - 4*x^2)*Log[5 - x])/(-5*x
+ 6*x^2 - x^3 + (5*x - 6*x^2 + x^3)*Log[5] + (5*x - 6*x^2 + x^3)*Log[5 - x] + (E^5*(-15*x + 18*x^2 - 3*x^3) +
E^5*(15*x - 18*x^2 + 3*x^3)*Log[5] + E^5*(15*x - 18*x^2 + 3*x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5] + Lo
g[5 - x])] + (E^10*(-15*x + 18*x^2 - 3*x^3) + E^10*(15*x - 18*x^2 + 3*x^3)*Log[5] + E^10*(15*x - 18*x^2 + 3*x^
3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5] + Log[5 - x])]^2 + (E^15*(-5*x + 6*x^2 - x^3) + E^15*(5*x - 6*x^2 +
x^3)*Log[5] + E^15*(5*x - 6*x^2 + x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5] + Log[5 - x])]^3),x]

[Out]

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

Rule 12

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

Rule 32

Int[((a_.) + (b_.)*(x_))^(m_), x_Symbol] :> Simp[(a + b*x)^(m + 1)/(b*(m + 1)), x] /; FreeQ[{a, b, m}, x] && N
eQ[m, -1]

Rule 6820

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

Rule 6840

Int[(u_)*((a_) + (b_.)*(v_)^(p_.)*(w_)^(p_.))^(m_.), x_Symbol] :> With[{c = Simplify[u/(w*D[v, x] + v*D[w, x])
]}, Dist[c, Subst[Int[(a + b*x^p)^m, x], x, v*w], x] /; FreeQ[c, x]] /; FreeQ[{a, b, m, p}, x] && IntegerQ[p]

Rubi steps \begin{align*} \text {integral}& = \int \frac {2 e^{15} \left (x (12-11 \log (5))+5 (-1+\log (5))+x^2 (-3+\log (25))+\left (5-11 x+2 x^2\right ) \log (5-x)\right )}{x \left (5-6 x+x^2\right ) (1-\log (-5 (-5+x))) \left (1+e^5 \log \left (\frac {(-1+x) x}{-1+\log (-5 (-5+x))}\right )\right )^3} \, dx \\ & = \left (2 e^{15}\right ) \int \frac {x (12-11 \log (5))+5 (-1+\log (5))+x^2 (-3+\log (25))+\left (5-11 x+2 x^2\right ) \log (5-x)}{x \left (5-6 x+x^2\right ) (1-\log (-5 (-5+x))) \left (1+e^5 \log \left (\frac {(-1+x) x}{-1+\log (-5 (-5+x))}\right )\right )^3} \, dx \\ & = -\left (\left (2 e^{10}\right ) \text {Subst}\left (\int \frac {1}{(1+x)^3} \, dx,x,e^5 \log \left (\frac {(-1+x) x}{-1+\log (-5 (-5+x))}\right )\right )\right ) \\ & = \frac {e^{10}}{\left (1+e^5 \log \left (\frac {(1-x) x}{1-\log (5 (5-x))}\right )\right )^2} \\ \end{align*}

Mathematica [F]

\[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx \]

[In]

Integrate[(E^15*(10 - 24*x + 6*x^2) + E^15*(-10 + 22*x - 4*x^2)*Log[5] + E^15*(-10 + 22*x - 4*x^2)*Log[5 - x])
/(-5*x + 6*x^2 - x^3 + (5*x - 6*x^2 + x^3)*Log[5] + (5*x - 6*x^2 + x^3)*Log[5 - x] + (E^5*(-15*x + 18*x^2 - 3*
x^3) + E^5*(15*x - 18*x^2 + 3*x^3)*Log[5] + E^5*(15*x - 18*x^2 + 3*x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5
] + Log[5 - x])] + (E^10*(-15*x + 18*x^2 - 3*x^3) + E^10*(15*x - 18*x^2 + 3*x^3)*Log[5] + E^10*(15*x - 18*x^2
+ 3*x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5] + Log[5 - x])]^2 + (E^15*(-5*x + 6*x^2 - x^3) + E^15*(5*x - 6
*x^2 + x^3)*Log[5] + E^15*(5*x - 6*x^2 + x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5] + Log[5 - x])]^3),x]

[Out]

Integrate[(E^15*(10 - 24*x + 6*x^2) + E^15*(-10 + 22*x - 4*x^2)*Log[5] + E^15*(-10 + 22*x - 4*x^2)*Log[5 - x])
/(-5*x + 6*x^2 - x^3 + (5*x - 6*x^2 + x^3)*Log[5] + (5*x - 6*x^2 + x^3)*Log[5 - x] + (E^5*(-15*x + 18*x^2 - 3*
x^3) + E^5*(15*x - 18*x^2 + 3*x^3)*Log[5] + E^5*(15*x - 18*x^2 + 3*x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5
] + Log[5 - x])] + (E^10*(-15*x + 18*x^2 - 3*x^3) + E^10*(15*x - 18*x^2 + 3*x^3)*Log[5] + E^10*(15*x - 18*x^2
+ 3*x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5] + Log[5 - x])]^2 + (E^15*(-5*x + 6*x^2 - x^3) + E^15*(5*x - 6
*x^2 + x^3)*Log[5] + E^15*(5*x - 6*x^2 + x^3)*Log[5 - x])*Log[(-x + x^2)/(-1 + Log[5] + Log[5 - x])]^3), x]

Maple [B] (verified)

Leaf count of result is larger than twice the leaf count of optimal. \(104\) vs. \(2(36)=72\).

Time = 85.06 (sec) , antiderivative size = 105, normalized size of antiderivative = 3.00

method	result	size
parallelrisch	\(-\frac {300 \ln \left (\frac {x \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2} {\mathrm e}^{20}+600 \ln \left (\frac {x \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) {\mathrm e}^{15}}{300 \left ({\mathrm e}^{10} \ln \left (\frac {x \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2}+2 \,{\mathrm e}^{5} \ln \left (\frac {x \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )+1\right )}\)	\(105\)
default	\(-\frac {4 \,{\mathrm e}^{15} {\mathrm e}^{-5}}{\left ({\mathrm e}^{5} \pi \,\operatorname {csgn}\left (i \left (-1+x \right )\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )+{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (i \left (-1+x \right )\right ) \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2}+{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )+{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (i x \right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2}-{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (\frac {i}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2}-{\mathrm e}^{5} \pi \operatorname {csgn}\left (\frac {i x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{3}+{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (\frac {i x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2}+{\mathrm e}^{5} \pi \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{3}+2 i {\mathrm e}^{5} \ln \left (1-x \right )+2 i {\mathrm e}^{5} \ln \left (-x \right )-2 i {\mathrm e}^{5} \ln \left (\ln \left (5-x \right )+\ln \left (5\right )-1\right )+2 i\right )^{2}}\)	\(334\)
risch	\(-\frac {4 \,{\mathrm e}^{10}}{\left (2 i {\mathrm e}^{5} \ln \left (\ln \left (5-x \right )+\ln \left (5\right )-1\right )+{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (\frac {i}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2}-{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (\frac {i}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (i \left (-1+x \right )\right )-{\mathrm e}^{5} \pi \operatorname {csgn}\left (\frac {i \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{3}+{\mathrm e}^{5} \pi \operatorname {csgn}\left (\frac {i \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2} \operatorname {csgn}\left (i \left (-1+x \right )\right )+{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (\frac {i \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2}-{\mathrm e}^{5} \pi \,\operatorname {csgn}\left (\frac {i \left (-1+x \right )}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right ) \operatorname {csgn}\left (i x \right )-{\mathrm e}^{5} \pi \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{3}+{\mathrm e}^{5} \pi \operatorname {csgn}\left (\frac {i \left (-1+x \right ) x}{\ln \left (5-x \right )+\ln \left (5\right )-1}\right )^{2} \operatorname {csgn}\left (i x \right )-2 i {\mathrm e}^{5} \ln \left (x \right )-2 i {\mathrm e}^{5} \ln \left (-1+x \right )-2 i\right )^{2}}\)	\(342\)

[In]

int(((-4*x^2+22*x-10)*exp(5)^3*ln(5-x)+(-4*x^2+22*x-10)*exp(5)^3*ln(5)+(6*x^2-24*x+10)*exp(5)^3)/(((x^3-6*x^2+
5*x)*exp(5)^3*ln(5-x)+(x^3-6*x^2+5*x)*exp(5)^3*ln(5)+(-x^3+6*x^2-5*x)*exp(5)^3)*ln((x^2-x)/(ln(5-x)+ln(5)-1))^
3+((3*x^3-18*x^2+15*x)*exp(5)^2*ln(5-x)+(3*x^3-18*x^2+15*x)*exp(5)^2*ln(5)+(-3*x^3+18*x^2-15*x)*exp(5)^2)*ln((
x^2-x)/(ln(5-x)+ln(5)-1))^2+((3*x^3-18*x^2+15*x)*exp(5)*ln(5-x)+(3*x^3-18*x^2+15*x)*exp(5)*ln(5)+(-3*x^3+18*x^
2-15*x)*exp(5))*ln((x^2-x)/(ln(5-x)+ln(5)-1))+(x^3-6*x^2+5*x)*ln(5-x)+(x^3-6*x^2+5*x)*ln(5)-x^3+6*x^2-5*x),x,m
ethod=_RETURNVERBOSE)

[Out]

-1/300*(300*ln(x*(-1+x)/(ln(5-x)+ln(5)-1))^2*exp(5)^4+600*ln(x*(-1+x)/(ln(5-x)+ln(5)-1))*exp(5)^3)/(exp(5)^2*l
n(x*(-1+x)/(ln(5-x)+ln(5)-1))^2+2*exp(5)*ln(x*(-1+x)/(ln(5-x)+ln(5)-1))+1)

Fricas [A] (verification not implemented)

none

Time = 0.27 (sec) , antiderivative size = 58, normalized size of antiderivative = 1.66 \[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\frac {e^{10}}{e^{10} \log \left (\frac {x^{2} - x}{\log \left (5\right ) + \log \left (-x + 5\right ) - 1}\right )^{2} + 2 \, e^{5} \log \left (\frac {x^{2} - x}{\log \left (5\right ) + \log \left (-x + 5\right ) - 1}\right ) + 1} \]

[In]

integrate(((-4*x^2+22*x-10)*exp(5)^3*log(5-x)+(-4*x^2+22*x-10)*exp(5)^3*log(5)+(6*x^2-24*x+10)*exp(5)^3)/(((x^
3-6*x^2+5*x)*exp(5)^3*log(5-x)+(x^3-6*x^2+5*x)*exp(5)^3*log(5)+(-x^3+6*x^2-5*x)*exp(5)^3)*log((x^2-x)/(log(5-x
)+log(5)-1))^3+((3*x^3-18*x^2+15*x)*exp(5)^2*log(5-x)+(3*x^3-18*x^2+15*x)*exp(5)^2*log(5)+(-3*x^3+18*x^2-15*x)
*exp(5)^2)*log((x^2-x)/(log(5-x)+log(5)-1))^2+((3*x^3-18*x^2+15*x)*exp(5)*log(5-x)+(3*x^3-18*x^2+15*x)*exp(5)*
log(5)+(-3*x^3+18*x^2-15*x)*exp(5))*log((x^2-x)/(log(5-x)+log(5)-1))+(x^3-6*x^2+5*x)*log(5-x)+(x^3-6*x^2+5*x)*
log(5)-x^3+6*x^2-5*x),x, algorithm="fricas")

[Out]

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

Sympy [A] (verification not implemented)

Time = 0.42 (sec) , antiderivative size = 48, normalized size of antiderivative = 1.37 \[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\frac {e^{10}}{e^{10} \log {\left (\frac {x^{2} - x}{\log {\left (5 - x \right )} - 1 + \log {\left (5 \right )}} \right )}^{2} + 2 e^{5} \log {\left (\frac {x^{2} - x}{\log {\left (5 - x \right )} - 1 + \log {\left (5 \right )}} \right )} + 1} \]

[In]

integrate(((-4*x**2+22*x-10)*exp(5)**3*ln(5-x)+(-4*x**2+22*x-10)*exp(5)**3*ln(5)+(6*x**2-24*x+10)*exp(5)**3)/(
((x**3-6*x**2+5*x)*exp(5)**3*ln(5-x)+(x**3-6*x**2+5*x)*exp(5)**3*ln(5)+(-x**3+6*x**2-5*x)*exp(5)**3)*ln((x**2-
x)/(ln(5-x)+ln(5)-1))**3+((3*x**3-18*x**2+15*x)*exp(5)**2*ln(5-x)+(3*x**3-18*x**2+15*x)*exp(5)**2*ln(5)+(-3*x*
*3+18*x**2-15*x)*exp(5)**2)*ln((x**2-x)/(ln(5-x)+ln(5)-1))**2+((3*x**3-18*x**2+15*x)*exp(5)*ln(5-x)+(3*x**3-18
*x**2+15*x)*exp(5)*ln(5)+(-3*x**3+18*x**2-15*x)*exp(5))*ln((x**2-x)/(ln(5-x)+ln(5)-1))+(x**3-6*x**2+5*x)*ln(5-
x)+(x**3-6*x**2+5*x)*ln(5)-x**3+6*x**2-5*x),x)

[Out]

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

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 87 vs. \(2 (34) = 68\).

Time = 0.53 (sec) , antiderivative size = 87, normalized size of antiderivative = 2.49 \[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\frac {e^{10}}{e^{10} \log \left (x - 1\right )^{2} + e^{10} \log \left (x\right )^{2} + e^{10} \log \left (\log \left (5\right ) + \log \left (-x + 5\right ) - 1\right )^{2} + 2 \, {\left (e^{10} \log \left (x\right ) + e^{5}\right )} \log \left (x - 1\right ) + 2 \, e^{5} \log \left (x\right ) - 2 \, {\left (e^{10} \log \left (x - 1\right ) + e^{10} \log \left (x\right ) + e^{5}\right )} \log \left (\log \left (5\right ) + \log \left (-x + 5\right ) - 1\right ) + 1} \]

[In]

integrate(((-4*x^2+22*x-10)*exp(5)^3*log(5-x)+(-4*x^2+22*x-10)*exp(5)^3*log(5)+(6*x^2-24*x+10)*exp(5)^3)/(((x^
3-6*x^2+5*x)*exp(5)^3*log(5-x)+(x^3-6*x^2+5*x)*exp(5)^3*log(5)+(-x^3+6*x^2-5*x)*exp(5)^3)*log((x^2-x)/(log(5-x
)+log(5)-1))^3+((3*x^3-18*x^2+15*x)*exp(5)^2*log(5-x)+(3*x^3-18*x^2+15*x)*exp(5)^2*log(5)+(-3*x^3+18*x^2-15*x)
*exp(5)^2)*log((x^2-x)/(log(5-x)+log(5)-1))^2+((3*x^3-18*x^2+15*x)*exp(5)*log(5-x)+(3*x^3-18*x^2+15*x)*exp(5)*
log(5)+(-3*x^3+18*x^2-15*x)*exp(5))*log((x^2-x)/(log(5-x)+log(5)-1))+(x^3-6*x^2+5*x)*log(5-x)+(x^3-6*x^2+5*x)*
log(5)-x^3+6*x^2-5*x),x, algorithm="maxima")

[Out]

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

Giac [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 86 vs. \(2 (34) = 68\).

Time = 10.28 (sec) , antiderivative size = 86, normalized size of antiderivative = 2.46 \[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\frac {e^{10}}{e^{10} \log \left (x^{2} - x\right )^{2} - 2 \, e^{10} \log \left (x^{2} - x\right ) \log \left (\log \left (5\right ) + \log \left (-x + 5\right ) - 1\right ) + e^{10} \log \left (\log \left (5\right ) + \log \left (-x + 5\right ) - 1\right )^{2} + 2 \, e^{5} \log \left (x^{2} - x\right ) - 2 \, e^{5} \log \left (\log \left (5\right ) + \log \left (-x + 5\right ) - 1\right ) + 1} \]

[In]

integrate(((-4*x^2+22*x-10)*exp(5)^3*log(5-x)+(-4*x^2+22*x-10)*exp(5)^3*log(5)+(6*x^2-24*x+10)*exp(5)^3)/(((x^
3-6*x^2+5*x)*exp(5)^3*log(5-x)+(x^3-6*x^2+5*x)*exp(5)^3*log(5)+(-x^3+6*x^2-5*x)*exp(5)^3)*log((x^2-x)/(log(5-x
)+log(5)-1))^3+((3*x^3-18*x^2+15*x)*exp(5)^2*log(5-x)+(3*x^3-18*x^2+15*x)*exp(5)^2*log(5)+(-3*x^3+18*x^2-15*x)
*exp(5)^2)*log((x^2-x)/(log(5-x)+log(5)-1))^2+((3*x^3-18*x^2+15*x)*exp(5)*log(5-x)+(3*x^3-18*x^2+15*x)*exp(5)*
log(5)+(-3*x^3+18*x^2-15*x)*exp(5))*log((x^2-x)/(log(5-x)+log(5)-1))+(x^3-6*x^2+5*x)*log(5-x)+(x^3-6*x^2+5*x)*
log(5)-x^3+6*x^2-5*x),x, algorithm="giac")

[Out]

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

Mupad [B] (verification not implemented)

Time = 15.63 (sec) , antiderivative size = 32, normalized size of antiderivative = 0.91 \[ \int \frac {e^{15} \left (10-24 x+6 x^2\right )+e^{15} \left (-10+22 x-4 x^2\right ) \log (5)+e^{15} \left (-10+22 x-4 x^2\right ) \log (5-x)}{-5 x+6 x^2-x^3+\left (5 x-6 x^2+x^3\right ) \log (5)+\left (5 x-6 x^2+x^3\right ) \log (5-x)+\left (e^5 \left (-15 x+18 x^2-3 x^3\right )+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^5 \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log \left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{10} \left (-15 x+18 x^2-3 x^3\right )+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5)+e^{10} \left (15 x-18 x^2+3 x^3\right ) \log (5-x)\right ) \log ^2\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )+\left (e^{15} \left (-5 x+6 x^2-x^3\right )+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5)+e^{15} \left (5 x-6 x^2+x^3\right ) \log (5-x)\right ) \log ^3\left (\frac {-x+x^2}{-1+\log (5)+\log (5-x)}\right )} \, dx=\frac {{\mathrm {e}}^{10}}{{\left ({\mathrm {e}}^5\,\ln \left (-\frac {x-x^2}{\ln \left (5\right )+\ln \left (5-x\right )-1}\right )+1\right )}^2} \]

[In]

int(-(exp(15)*log(5)*(4*x^2 - 22*x + 10) - exp(15)*(6*x^2 - 24*x + 10) + exp(15)*log(5 - x)*(4*x^2 - 22*x + 10
))/(log(5)*(5*x - 6*x^2 + x^3) - 5*x + log(-(x - x^2)/(log(5) + log(5 - x) - 1))^2*(exp(10)*log(5 - x)*(15*x -
18*x^2 + 3*x^3) - exp(10)*(15*x - 18*x^2 + 3*x^3) + exp(10)*log(5)*(15*x - 18*x^2 + 3*x^3)) + log(5 - x)*(5*x
- 6*x^2 + x^3) + log(-(x - x^2)/(log(5) + log(5 - x) - 1))*(exp(5)*log(5 - x)*(15*x - 18*x^2 + 3*x^3) - exp(5
)*(15*x - 18*x^2 + 3*x^3) + exp(5)*log(5)*(15*x - 18*x^2 + 3*x^3)) + 6*x^2 - x^3 + log(-(x - x^2)/(log(5) + lo
g(5 - x) - 1))^3*(exp(15)*log(5)*(5*x - 6*x^2 + x^3) - exp(15)*(5*x - 6*x^2 + x^3) + exp(15)*log(5 - x)*(5*x -
6*x^2 + x^3))),x)

[Out]

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