\(\int \frac {69 x-16 x^2+x^3+e^x (-69+16 x-x^2)+(216-123 x+20 x^2-x^3+e^x (-216+123 x-20 x^2+x^3)) \log (\frac {-27+12 x-x^2}{-8+x})}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} (-216+123 x-20 x^2+x^3)+e^x (432 x-246 x^2+40 x^3-2 x^4)} \, dx\) [6560]

Optimal result

Integrand size = 140, antiderivative size = 28 \[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=4-\frac {\log \left (4-\frac {5}{8-x}-x\right )}{e^x-x} \]

[Out]

4-ln(4-x-5/(8-x))/(exp(x)-x)

Rubi [F]

\[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=\int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx \]

[In]

Int[(69*x - 16*x^2 + x^3 + E^x*(-69 + 16*x - x^2) + (216 - 123*x + 20*x^2 - x^3 + E^x*(-216 + 123*x - 20*x^2 +
x^3))*Log[(-27 + 12*x - x^2)/(-8 + x)])/(-216*x^2 + 123*x^3 - 20*x^4 + x^5 + E^(2*x)*(-216 + 123*x - 20*x^2 +
x^3) + E^x*(432*x - 246*x^2 + 40*x^3 - 2*x^4)),x]

[Out]

-(Log[(27 - 12*x + x^2)/(8 - x)]*Defer[Int][(E^x - x)^(-2), x]) + Log[(27 - 12*x + x^2)/(8 - x)]*Defer[Int][(E
^x - x)^(-1), x] + 24*Defer[Int][1/((E^x - x)*(-9 + x)), x] + 306*Log[(27 - 12*x + x^2)/(8 - x)]*Defer[Int][1/
((E^x - x)*(-9 + x)), x] - (128*Defer[Int][1/((E^x - x)*(-8 + x)), x])/5 - (1496*Log[(27 - 12*x + x^2)/(8 - x)
]*Defer[Int][1/((E^x - x)*(-8 + x)), x])/5 + (8*Defer[Int][1/((E^x - x)*(-3 + x)), x])/5 + (66*Log[(27 - 12*x
+ x^2)/(8 - x)]*Defer[Int][1/((E^x - x)*(-3 + x)), x])/5 + Log[(27 - 12*x + x^2)/(8 - x)]*Defer[Int][x/(E^x -
x)^2, x] + 25*Defer[Int][1/((-9 + x)*(-E^x + x)), x] + 306*Log[(27 - 12*x + x^2)/(8 - x)]*Defer[Int][1/((-9 +
x)*(-E^x + x)), x] - (133*Defer[Int][1/((-8 + x)*(-E^x + x)), x])/5 - (1496*Log[(27 - 12*x + x^2)/(8 - x)]*Def
er[Int][1/((-8 + x)*(-E^x + x)), x])/5 + (13*Defer[Int][1/((-3 + x)*(-E^x + x)), x])/5 + (66*Log[(27 - 12*x +
x^2)/(8 - x)]*Defer[Int][1/((-3 + x)*(-E^x + x)), x])/5 + Defer[Int][Defer[Int][(E^x - x)^(-2), x]/(-9 + x), x
] - Defer[Int][Defer[Int][(E^x - x)^(-2), x]/(-8 + x), x] + Defer[Int][Defer[Int][(E^x - x)^(-2), x]/(-3 + x),
x] - Defer[Int][Defer[Int][(E^x - x)^(-1), x]/(-9 + x), x] + Defer[Int][Defer[Int][(E^x - x)^(-1), x]/(-8 + x
), x] - Defer[Int][Defer[Int][(E^x - x)^(-1), x]/(-3 + x), x] - 306*Defer[Int][Defer[Int][1/((E^x - x)*(-9 + x
)), x]/(-9 + x), x] + 306*Defer[Int][Defer[Int][1/((E^x - x)*(-9 + x)), x]/(-8 + x), x] - 306*Defer[Int][Defer
[Int][1/((E^x - x)*(-9 + x)), x]/(-3 + x), x] + (1496*Defer[Int][Defer[Int][1/((E^x - x)*(-8 + x)), x]/(-9 + x
), x])/5 - (1496*Defer[Int][Defer[Int][1/((E^x - x)*(-8 + x)), x]/(-8 + x), x])/5 + (1496*Defer[Int][Defer[Int
][1/((E^x - x)*(-8 + x)), x]/(-3 + x), x])/5 - (66*Defer[Int][Defer[Int][1/((E^x - x)*(-3 + x)), x]/(-9 + x),
x])/5 + (66*Defer[Int][Defer[Int][1/((E^x - x)*(-3 + x)), x]/(-8 + x), x])/5 - (66*Defer[Int][Defer[Int][1/((E
^x - x)*(-3 + x)), x]/(-3 + x), x])/5 - Defer[Int][Defer[Int][x/(E^x - x)^2, x]/(-9 + x), x] + Defer[Int][Defe
r[Int][x/(E^x - x)^2, x]/(-8 + x), x] - Defer[Int][Defer[Int][x/(E^x - x)^2, x]/(-3 + x), x] - 306*Defer[Int][
Defer[Int][1/((-9 + x)*(-E^x + x)), x]/(-9 + x), x] + 306*Defer[Int][Defer[Int][1/((-9 + x)*(-E^x + x)), x]/(-
8 + x), x] - 306*Defer[Int][Defer[Int][1/((-9 + x)*(-E^x + x)), x]/(-3 + x), x] + (1496*Defer[Int][Defer[Int][
1/((-8 + x)*(-E^x + x)), x]/(-9 + x), x])/5 - (1496*Defer[Int][Defer[Int][1/((-8 + x)*(-E^x + x)), x]/(-8 + x)
, x])/5 + (1496*Defer[Int][Defer[Int][1/((-8 + x)*(-E^x + x)), x]/(-3 + x), x])/5 - (66*Defer[Int][Defer[Int][
1/((-3 + x)*(-E^x + x)), x]/(-9 + x), x])/5 + (66*Defer[Int][Defer[Int][1/((-3 + x)*(-E^x + x)), x]/(-8 + x),
x])/5 - (66*Defer[Int][Defer[Int][1/((-3 + x)*(-E^x + x)), x]/(-3 + x), x])/5

Rubi steps \begin{align*} \text {integral}& = \int \frac {-\frac {\left (e^x-x\right ) \left (69-16 x+x^2\right )}{-216+123 x-20 x^2+x^3}+\left (-1+e^x\right ) \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right )^2} \, dx \\ & = \int \left (\frac {(-1+x) \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right )^2}+\frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-9+x) (-8+x) (-3+x)}\right ) \, dx \\ & = \int \frac {(-1+x) \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right )^2} \, dx+\int \frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-9+x) (-8+x) (-3+x)} \, dx \\ & = -\left (\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx\right )+\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx+\int \frac {69-16 x+x^2-\left (-216+123 x-20 x^2+x^3\right ) \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(3-x) (8-x) (9-x) \left (e^x-x\right )} \, dx-\int \frac {\left (69-16 x+x^2\right ) \left (\int \frac {1}{\left (e^x-x\right )^2} \, dx-\int \frac {x}{\left (e^x-x\right )^2} \, dx\right )}{(8-x) \left (27-12 x+x^2\right )} \, dx \\ & = -\left (\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx\right )+\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx+\int \left (\frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{6 \left (e^x-x\right ) (-9+x)}-\frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{5 \left (e^x-x\right ) (-8+x)}+\frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{30 \left (e^x-x\right ) (-3+x)}\right ) \, dx-\int \left (-\frac {\left (69-16 x+x^2\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx}{(-9+x) (-8+x) (-3+x)}+\frac {\left (69-16 x+x^2\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx}{(-9+x) (-8+x) (-3+x)}\right ) \, dx \\ & = \frac {1}{30} \int \frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-3+x)} \, dx+\frac {1}{6} \int \frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-9+x)} \, dx-\frac {1}{5} \int \frac {-69+16 x-x^2-216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )-20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )+x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-8+x)} \, dx-\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx+\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx+\int \frac {\left (69-16 x+x^2\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx}{(-9+x) (-8+x) (-3+x)} \, dx-\int \frac {\left (69-16 x+x^2\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx}{(-9+x) (-8+x) (-3+x)} \, dx \\ & = \frac {1}{30} \int \frac {69-16 x+x^2-\left (-216+123 x-20 x^2+x^3\right ) \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(3-x) \left (e^x-x\right )} \, dx+\frac {1}{6} \int \frac {69-16 x+x^2-\left (-216+123 x-20 x^2+x^3\right ) \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(9-x) \left (e^x-x\right )} \, dx-\frac {1}{5} \int \frac {69-16 x+x^2-\left (-216+123 x-20 x^2+x^3\right ) \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(8-x) \left (e^x-x\right )} \, dx-\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx+\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx+\int \left (\frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-9+x}-\frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-8+x}+\frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-3+x}\right ) \, dx-\int \left (\frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-9+x}-\frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-8+x}+\frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-3+x}\right ) \, dx \\ & = \frac {1}{30} \int \left (\frac {16 x}{\left (e^x-x\right ) (-3+x)}+\frac {69}{(-3+x) \left (-e^x+x\right )}+\frac {x^2}{(-3+x) \left (-e^x+x\right )}+\frac {123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-3+x)}+\frac {x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-3+x)}+\frac {216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-3+x) \left (-e^x+x\right )}+\frac {20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-3+x) \left (-e^x+x\right )}\right ) \, dx+\frac {1}{6} \int \left (\frac {16 x}{\left (e^x-x\right ) (-9+x)}+\frac {69}{(-9+x) \left (-e^x+x\right )}+\frac {x^2}{(-9+x) \left (-e^x+x\right )}+\frac {123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-9+x)}+\frac {x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-9+x)}+\frac {216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-9+x) \left (-e^x+x\right )}+\frac {20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-9+x) \left (-e^x+x\right )}\right ) \, dx-\frac {1}{5} \int \left (\frac {16 x}{\left (e^x-x\right ) (-8+x)}+\frac {69}{(-8+x) \left (-e^x+x\right )}+\frac {x^2}{(-8+x) \left (-e^x+x\right )}+\frac {123 x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-8+x)}+\frac {x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-8+x)}+\frac {216 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-8+x) \left (-e^x+x\right )}+\frac {20 x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-8+x) \left (-e^x+x\right )}\right ) \, dx-\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx+\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx+\int \frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-9+x} \, dx-\int \frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-8+x} \, dx+\int \frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-3+x} \, dx-\int \frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-9+x} \, dx+\int \frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-8+x} \, dx-\int \frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-3+x} \, dx \\ & = \frac {1}{30} \int \frac {x^2}{(-3+x) \left (-e^x+x\right )} \, dx+\frac {1}{30} \int \frac {x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-3+x)} \, dx+\frac {1}{6} \int \frac {x^2}{(-9+x) \left (-e^x+x\right )} \, dx+\frac {1}{6} \int \frac {x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-9+x)} \, dx-\frac {1}{5} \int \frac {x^2}{(-8+x) \left (-e^x+x\right )} \, dx-\frac {1}{5} \int \frac {x^3 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-8+x)} \, dx+\frac {8}{15} \int \frac {x}{\left (e^x-x\right ) (-3+x)} \, dx+\frac {2}{3} \int \frac {x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-3+x) \left (-e^x+x\right )} \, dx+\frac {23}{10} \int \frac {1}{(-3+x) \left (-e^x+x\right )} \, dx+\frac {8}{3} \int \frac {x}{\left (e^x-x\right ) (-9+x)} \, dx-\frac {16}{5} \int \frac {x}{\left (e^x-x\right ) (-8+x)} \, dx+\frac {10}{3} \int \frac {x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-9+x) \left (-e^x+x\right )} \, dx-4 \int \frac {x^2 \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-8+x) \left (-e^x+x\right )} \, dx+\frac {41}{10} \int \frac {x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-3+x)} \, dx+\frac {36}{5} \int \frac {\log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-3+x) \left (-e^x+x\right )} \, dx+\frac {23}{2} \int \frac {1}{(-9+x) \left (-e^x+x\right )} \, dx-\frac {69}{5} \int \frac {1}{(-8+x) \left (-e^x+x\right )} \, dx+\frac {41}{2} \int \frac {x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-9+x)} \, dx-\frac {123}{5} \int \frac {x \log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{\left (e^x-x\right ) (-8+x)} \, dx+36 \int \frac {\log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-9+x) \left (-e^x+x\right )} \, dx-\frac {216}{5} \int \frac {\log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{(-8+x) \left (-e^x+x\right )} \, dx-\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {1}{\left (e^x-x\right )^2} \, dx+\log \left (-\frac {27-12 x+x^2}{-8+x}\right ) \int \frac {x}{\left (e^x-x\right )^2} \, dx+\int \frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-9+x} \, dx-\int \frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-8+x} \, dx+\int \frac {\int \frac {1}{\left (e^x-x\right )^2} \, dx}{-3+x} \, dx-\int \frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-9+x} \, dx+\int \frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-8+x} \, dx-\int \frac {\int \frac {x}{\left (e^x-x\right )^2} \, dx}{-3+x} \, dx \\ & = \text {Too large to display} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.69 (sec) , antiderivative size = 27, normalized size of antiderivative = 0.96 \[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=-\frac {\log \left (-\frac {27-12 x+x^2}{-8+x}\right )}{e^x-x} \]

[In]

Integrate[(69*x - 16*x^2 + x^3 + E^x*(-69 + 16*x - x^2) + (216 - 123*x + 20*x^2 - x^3 + E^x*(-216 + 123*x - 20
*x^2 + x^3))*Log[(-27 + 12*x - x^2)/(-8 + x)])/(-216*x^2 + 123*x^3 - 20*x^4 + x^5 + E^(2*x)*(-216 + 123*x - 20
*x^2 + x^3) + E^x*(432*x - 246*x^2 + 40*x^3 - 2*x^4)),x]

[Out]

-(Log[-((27 - 12*x + x^2)/(-8 + x))]/(E^x - x))

Maple [A] (verified)

Time = 1.22 (sec) , antiderivative size = 26, normalized size of antiderivative = 0.93

method	result	size
parallelrisch	\(\frac {\ln \left (-\frac {x^{2}-12 x +27}{-8+x}\right )}{x -{\mathrm e}^{x}}\)	\(26\)
risch	\(\frac {\ln \left (x^{2}-12 x +27\right )}{x -{\mathrm e}^{x}}-\frac {i \pi \,\operatorname {csgn}\left (\frac {i}{-8+x}\right ) \operatorname {csgn}\left (i \left (x^{2}-12 x +27\right )\right ) \operatorname {csgn}\left (\frac {i \left (x^{2}-12 x +27\right )}{-8+x}\right )-i \pi \,\operatorname {csgn}\left (\frac {i}{-8+x}\right ) {\operatorname {csgn}\left (\frac {i \left (x^{2}-12 x +27\right )}{-8+x}\right )}^{2}-i \pi \,\operatorname {csgn}\left (i \left (x^{2}-12 x +27\right )\right ) {\operatorname {csgn}\left (\frac {i \left (x^{2}-12 x +27\right )}{-8+x}\right )}^{2}-i \pi {\operatorname {csgn}\left (\frac {i \left (x^{2}-12 x +27\right )}{-8+x}\right )}^{3}+2 i \pi {\operatorname {csgn}\left (\frac {i \left (x^{2}-12 x +27\right )}{-8+x}\right )}^{2}-2 i \pi +2 \ln \left (-8+x \right )}{2 \left (x -{\mathrm e}^{x}\right )}\)	\(196\)

[In]

int((((x^3-20*x^2+123*x-216)*exp(x)-x^3+20*x^2-123*x+216)*ln((-x^2+12*x-27)/(-8+x))+(-x^2+16*x-69)*exp(x)+x^3-
16*x^2+69*x)/((x^3-20*x^2+123*x-216)*exp(x)^2+(-2*x^4+40*x^3-246*x^2+432*x)*exp(x)+x^5-20*x^4+123*x^3-216*x^2)
,x,method=_RETURNVERBOSE)

[Out]

ln(-(x^2-12*x+27)/(-8+x))/(x-exp(x))

Fricas [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 25, normalized size of antiderivative = 0.89 \[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=\frac {\log \left (-\frac {x^{2} - 12 \, x + 27}{x - 8}\right )}{x - e^{x}} \]

[In]

integrate((((x^3-20*x^2+123*x-216)*exp(x)-x^3+20*x^2-123*x+216)*log((-x^2+12*x-27)/(-8+x))+(-x^2+16*x-69)*exp(
x)+x^3-16*x^2+69*x)/((x^3-20*x^2+123*x-216)*exp(x)^2+(-2*x^4+40*x^3-246*x^2+432*x)*exp(x)+x^5-20*x^4+123*x^3-2
16*x^2),x, algorithm="fricas")

[Out]

log(-(x^2 - 12*x + 27)/(x - 8))/(x - e^x)

Sympy [A] (verification not implemented)

Time = 0.16 (sec) , antiderivative size = 19, normalized size of antiderivative = 0.68 \[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=- \frac {\log {\left (\frac {- x^{2} + 12 x - 27}{x - 8} \right )}}{- x + e^{x}} \]

[In]

integrate((((x**3-20*x**2+123*x-216)*exp(x)-x**3+20*x**2-123*x+216)*ln((-x**2+12*x-27)/(-8+x))+(-x**2+16*x-69)
*exp(x)+x**3-16*x**2+69*x)/((x**3-20*x**2+123*x-216)*exp(x)**2+(-2*x**4+40*x**3-246*x**2+432*x)*exp(x)+x**5-20
*x**4+123*x**3-216*x**2),x)

[Out]

-log((-x**2 + 12*x - 27)/(x - 8))/(-x + exp(x))

Maxima [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 26, normalized size of antiderivative = 0.93 \[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=\frac {\log \left (x - 3\right ) - \log \left (x - 8\right ) + \log \left (-x + 9\right )}{x - e^{x}} \]

[In]

integrate((((x^3-20*x^2+123*x-216)*exp(x)-x^3+20*x^2-123*x+216)*log((-x^2+12*x-27)/(-8+x))+(-x^2+16*x-69)*exp(
x)+x^3-16*x^2+69*x)/((x^3-20*x^2+123*x-216)*exp(x)^2+(-2*x^4+40*x^3-246*x^2+432*x)*exp(x)+x^5-20*x^4+123*x^3-2
16*x^2),x, algorithm="maxima")

[Out]

(log(x - 3) - log(x - 8) + log(-x + 9))/(x - e^x)

Giac [A] (verification not implemented)

none

Time = 0.31 (sec) , antiderivative size = 25, normalized size of antiderivative = 0.89 \[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=\frac {\log \left (-\frac {x^{2} - 12 \, x + 27}{x - 8}\right )}{x - e^{x}} \]

[In]

integrate((((x^3-20*x^2+123*x-216)*exp(x)-x^3+20*x^2-123*x+216)*log((-x^2+12*x-27)/(-8+x))+(-x^2+16*x-69)*exp(
x)+x^3-16*x^2+69*x)/((x^3-20*x^2+123*x-216)*exp(x)^2+(-2*x^4+40*x^3-246*x^2+432*x)*exp(x)+x^5-20*x^4+123*x^3-2
16*x^2),x, algorithm="giac")

[Out]

log(-(x^2 - 12*x + 27)/(x - 8))/(x - e^x)

Mupad [B] (verification not implemented)

Time = 0.32 (sec) , antiderivative size = 25, normalized size of antiderivative = 0.89 \[ \int \frac {69 x-16 x^2+x^3+e^x \left (-69+16 x-x^2\right )+\left (216-123 x+20 x^2-x^3+e^x \left (-216+123 x-20 x^2+x^3\right )\right ) \log \left (\frac {-27+12 x-x^2}{-8+x}\right )}{-216 x^2+123 x^3-20 x^4+x^5+e^{2 x} \left (-216+123 x-20 x^2+x^3\right )+e^x \left (432 x-246 x^2+40 x^3-2 x^4\right )} \, dx=\frac {\ln \left (-\frac {x^2-12\,x+27}{x-8}\right )}{x-{\mathrm {e}}^x} \]

[In]

int((69*x - exp(x)*(x^2 - 16*x + 69) + log(-(x^2 - 12*x + 27)/(x - 8))*(exp(x)*(123*x - 20*x^2 + x^3 - 216) -
123*x + 20*x^2 - x^3 + 216) - 16*x^2 + x^3)/(exp(x)*(432*x - 246*x^2 + 40*x^3 - 2*x^4) - 216*x^2 + 123*x^3 - 2
0*x^4 + x^5 + exp(2*x)*(123*x - 20*x^2 + x^3 - 216)),x)

[Out]

log(-(x^2 - 12*x + 27)/(x - 8))/(x - exp(x))