\(\int \frac {9215-36864 x+27648 x^2+(9215-18432 x+9216 x^2) \log (9215 x-18432 x^2+9216 x^3)}{9215-18432 x+9216 x^2} \, dx\) [1902]

Optimal result

Integrand size = 49, antiderivative size = 17 \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=x \log \left (-x+9216 (1-x)^2 x\right ) \]

[Out]

ln(4*x*(48*x-48)^2-x)*x

Rubi [A] (verified)

Time = 0.08 (sec) , antiderivative size = 15, normalized size of antiderivative = 0.88, number of steps used = 10, number of rules used = 6, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.122, Rules used = {6860, 907, 2603, 1671, 646, 31} \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=x \log \left (x \left (9216 x^2-18432 x+9215\right )\right ) \]

[In]

Int[(9215 - 36864*x + 27648*x^2 + (9215 - 18432*x + 9216*x^2)*Log[9215*x - 18432*x^2 + 9216*x^3])/(9215 - 1843
2*x + 9216*x^2),x]

[Out]

x*Log[x*(9215 - 18432*x + 9216*x^2)]

Rule 31

Int[((a_) + (b_.)*(x_))^(-1), x_Symbol] :> Simp[Log[RemoveContent[a + b*x, x]]/b, x] /; FreeQ[{a, b}, x]

Rule 646

Int[((d_.) + (e_.)*(x_))/((a_) + (b_.)*(x_) + (c_.)*(x_)^2), x_Symbol] :> With[{q = Rt[b^2 - 4*a*c, 2]}, Dist[
(c*d - e*(b/2 - q/2))/q, Int[1/(b/2 - q/2 + c*x), x], x] - Dist[(c*d - e*(b/2 + q/2))/q, Int[1/(b/2 + q/2 + c*
x), x], x]] /; FreeQ[{a, b, c, d, e}, x] && NeQ[2*c*d - b*e, 0] && NeQ[b^2 - 4*a*c, 0] && NiceSqrtQ[b^2 - 4*a*
c]

Rule 907

Int[((d_.) + (e_.)*(x_))^(m_)*((f_.) + (g_.)*(x_))^(n_)*((a_.) + (b_.)*(x_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :
> Int[ExpandIntegrand[(d + e*x)^m*(f + g*x)^n*(a + b*x + c*x^2)^p, x], x] /; FreeQ[{a, b, c, d, e, f, g}, x] &
& NeQ[e*f - d*g, 0] && NeQ[b^2 - 4*a*c, 0] && NeQ[c*d^2 - b*d*e + a*e^2, 0] && IntegerQ[p] && ((EqQ[p, 1] && I
ntegersQ[m, n]) || (ILtQ[m, 0] && ILtQ[n, 0]))

Rule 1671

Int[(Pq_)*((a_) + (b_.)*(x_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :> Int[ExpandIntegrand[Pq*(a + b*x + c*x^2)^p, x
], x] /; FreeQ[{a, b, c}, x] && PolyQ[Pq, x] && IGtQ[p, -2]

Rule 2603

Int[((a_.) + Log[(c_.)*(RFx_)^(p_.)]*(b_.))^(n_.), x_Symbol] :> Simp[x*(a + b*Log[c*RFx^p])^n, x] - Dist[b*n*p
, Int[SimplifyIntegrand[x*(a + b*Log[c*RFx^p])^(n - 1)*(D[RFx, x]/RFx), x], x], x] /; FreeQ[{a, b, c, p}, x] &
& RationalFunctionQ[RFx, x] && IGtQ[n, 0]

Rule 6860

Int[(u_)/((a_.) + (b_.)*(x_)^(n_.) + (c_.)*(x_)^(n2_.)), x_Symbol] :> With[{v = RationalFunctionExpand[u/(a +
b*x^n + c*x^(2*n)), x]}, Int[v, x] /; SumQ[v]] /; FreeQ[{a, b, c}, x] && EqQ[n2, 2*n] && IGtQ[n, 0]

Rubi steps \begin{align*} \text {integral}& = \int \left (\frac {9215-36864 x+27648 x^2}{(-97+96 x) (-95+96 x)}+\log \left (x \left (9215-18432 x+9216 x^2\right )\right )\right ) \, dx \\ & = \int \frac {9215-36864 x+27648 x^2}{(-97+96 x) (-95+96 x)} \, dx+\int \log \left (x \left (9215-18432 x+9216 x^2\right )\right ) \, dx \\ & = x \log \left (x \left (9215-18432 x+9216 x^2\right )\right )-\int \frac {9215-36864 x+27648 x^2}{9215-18432 x+9216 x^2} \, dx+\int \left (3+\frac {97}{-97+96 x}+\frac {95}{-95+96 x}\right ) \, dx \\ & = 3 x+\frac {95}{96} \log (95-96 x)+\frac {97}{96} \log (97-96 x)+x \log \left (x \left (9215-18432 x+9216 x^2\right )\right )-\int \left (3-\frac {2 (9215-9216 x)}{9215-18432 x+9216 x^2}\right ) \, dx \\ & = \frac {95}{96} \log (95-96 x)+\frac {97}{96} \log (97-96 x)+x \log \left (x \left (9215-18432 x+9216 x^2\right )\right )+2 \int \frac {9215-9216 x}{9215-18432 x+9216 x^2} \, dx \\ & = \frac {95}{96} \log (95-96 x)+\frac {97}{96} \log (97-96 x)+x \log \left (x \left (9215-18432 x+9216 x^2\right )\right )-9120 \int \frac {1}{-9120+9216 x} \, dx-9312 \int \frac {1}{-9312+9216 x} \, dx \\ & = x \log \left (x \left (9215-18432 x+9216 x^2\right )\right ) \\ \end{align*}

Mathematica [A] (verified)

Time = 0.05 (sec) , antiderivative size = 15, normalized size of antiderivative = 0.88 \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=x \log \left (x \left (9215-18432 x+9216 x^2\right )\right ) \]

[In]

Integrate[(9215 - 36864*x + 27648*x^2 + (9215 - 18432*x + 9216*x^2)*Log[9215*x - 18432*x^2 + 9216*x^3])/(9215
- 18432*x + 9216*x^2),x]

[Out]

x*Log[x*(9215 - 18432*x + 9216*x^2)]

Maple [A] (verified)

Time = 0.37 (sec) , antiderivative size = 18, normalized size of antiderivative = 1.06

method	result	size
default	\(\ln \left (9216 x^{3}-18432 x^{2}+9215 x \right ) x\)	\(18\)
norman	\(\ln \left (9216 x^{3}-18432 x^{2}+9215 x \right ) x\)	\(18\)
risch	\(\ln \left (9216 x^{3}-18432 x^{2}+9215 x \right ) x\)	\(18\)
parallelrisch	\(\ln \left (9216 x^{3}-18432 x^{2}+9215 x \right ) x\)	\(18\)
parts	\(\ln \left (9216 x^{3}-18432 x^{2}+9215 x \right ) x\)	\(18\)

[In]

int(((9216*x^2-18432*x+9215)*ln(9216*x^3-18432*x^2+9215*x)+27648*x^2-36864*x+9215)/(9216*x^2-18432*x+9215),x,m
ethod=_RETURNVERBOSE)

[Out]

ln(9216*x^3-18432*x^2+9215*x)*x

Fricas [A] (verification not implemented)

none

Time = 0.24 (sec) , antiderivative size = 17, normalized size of antiderivative = 1.00 \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=x \log \left (9216 \, x^{3} - 18432 \, x^{2} + 9215 \, x\right ) \]

[In]

integrate(((9216*x^2-18432*x+9215)*log(9216*x^3-18432*x^2+9215*x)+27648*x^2-36864*x+9215)/(9216*x^2-18432*x+92
15),x, algorithm="fricas")

[Out]

x*log(9216*x^3 - 18432*x^2 + 9215*x)

Sympy [A] (verification not implemented)

Time = 0.06 (sec) , antiderivative size = 15, normalized size of antiderivative = 0.88 \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=x \log {\left (9216 x^{3} - 18432 x^{2} + 9215 x \right )} \]

[In]

integrate(((9216*x**2-18432*x+9215)*ln(9216*x**3-18432*x**2+9215*x)+27648*x**2-36864*x+9215)/(9216*x**2-18432*
x+9215),x)

[Out]

x*log(9216*x**3 - 18432*x**2 + 9215*x)

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 47 vs. \(2 (15) = 30\).

Time = 0.28 (sec) , antiderivative size = 47, normalized size of antiderivative = 2.76 \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=\frac {1}{96} \, {\left (96 \, x - 95\right )} \log \left (96 \, x - 95\right ) + \frac {1}{96} \, {\left (96 \, x - 97\right )} \log \left (96 \, x - 97\right ) + x \log \left (x\right ) + \frac {95}{96} \, \log \left (96 \, x - 95\right ) + \frac {97}{96} \, \log \left (96 \, x - 97\right ) \]

[In]

integrate(((9216*x^2-18432*x+9215)*log(9216*x^3-18432*x^2+9215*x)+27648*x^2-36864*x+9215)/(9216*x^2-18432*x+92
15),x, algorithm="maxima")

[Out]

1/96*(96*x - 95)*log(96*x - 95) + 1/96*(96*x - 97)*log(96*x - 97) + x*log(x) + 95/96*log(96*x - 95) + 97/96*lo
g(96*x - 97)

Giac [A] (verification not implemented)

none

Time = 0.27 (sec) , antiderivative size = 17, normalized size of antiderivative = 1.00 \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=x \log \left (9216 \, x^{3} - 18432 \, x^{2} + 9215 \, x\right ) \]

[In]

integrate(((9216*x^2-18432*x+9215)*log(9216*x^3-18432*x^2+9215*x)+27648*x^2-36864*x+9215)/(9216*x^2-18432*x+92
15),x, algorithm="giac")

[Out]

x*log(9216*x^3 - 18432*x^2 + 9215*x)

Mupad [B] (verification not implemented)

Time = 9.25 (sec) , antiderivative size = 15, normalized size of antiderivative = 0.88 \[ \int \frac {9215-36864 x+27648 x^2+\left (9215-18432 x+9216 x^2\right ) \log \left (9215 x-18432 x^2+9216 x^3\right )}{9215-18432 x+9216 x^2} \, dx=x\,\ln \left (x\,\left (9216\,x^2-18432\,x+9215\right )\right ) \]

[In]

int((27648*x^2 - 36864*x + log(9215*x - 18432*x^2 + 9216*x^3)*(9216*x^2 - 18432*x + 9215) + 9215)/(9216*x^2 -
18432*x + 9215),x)

[Out]

x*log(x*(9216*x^2 - 18432*x + 9215))