3.23.38 \(\int \frac {-1200 x^5+300 x^6}{4096-4608 x+1728 x^2-216 x^3-200 x^6+75 x^7} \, dx\)

Optimal. Leaf size=17 \[ \log \left (2-\frac {25 x^6}{4 (-8+3 x)^2}\right ) \]

________________________________________________________________________________________

Rubi [B]  time = 0.19, antiderivative size = 61, normalized size of antiderivative = 3.59, number of steps used = 5, number of rules used = 4, integrand size = 39, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.103, Rules used = {1593, 2100, 2074, 1587} \begin {gather*} \frac {3}{7} \log \left (-25 x^6+72 x^2-384 x+512\right )+\frac {4}{7} \log \left (75 x^7-200 x^6-216 x^3+1728 x^2-4608 x+4096\right )-\frac {18}{7} \log (8-3 x) \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(-1200*x^5 + 300*x^6)/(4096 - 4608*x + 1728*x^2 - 216*x^3 - 200*x^6 + 75*x^7),x]

[Out]

(-18*Log[8 - 3*x])/7 + (3*Log[512 - 384*x + 72*x^2 - 25*x^6])/7 + (4*Log[4096 - 4608*x + 1728*x^2 - 216*x^3 -
200*x^6 + 75*x^7])/7

Rule 1587

Int[(Pp_)/(Qq_), x_Symbol] :> With[{p = Expon[Pp, x], q = Expon[Qq, x]}, Simp[(Coeff[Pp, x, p]*Log[RemoveConte
nt[Qq, x]])/(q*Coeff[Qq, x, q]), x] /; EqQ[p, q - 1] && EqQ[Pp, Simplify[(Coeff[Pp, x, p]*D[Qq, x])/(q*Coeff[Q
q, x, q])]]] /; PolyQ[Pp, x] && PolyQ[Qq, x]

Rule 1593

Int[(u_.)*((a_.)*(x_)^(p_.) + (b_.)*(x_)^(q_.))^(n_.), x_Symbol] :> Int[u*x^(n*p)*(a + b*x^(q - p))^n, x] /; F
reeQ[{a, b, p, q}, x] && IntegerQ[n] && PosQ[q - p]

Rule 2074

Int[(P_)^(p_)*(Q_)^(q_.), x_Symbol] :> With[{PP = Factor[P]}, Int[ExpandIntegrand[PP^p*Q^q, x], x] /;  !SumQ[N
onfreeFactors[PP, x]]] /; FreeQ[q, x] && PolyQ[P, x] && PolyQ[Q, x] && IntegerQ[p] && NeQ[P, x]

Rule 2100

Int[(Pm_)/(Qn_), x_Symbol] :> With[{m = Expon[Pm, x], n = Expon[Qn, x]}, Simp[(Coeff[Pm, x, m]*Log[Qn])/(n*Coe
ff[Qn, x, n]), x] + Dist[1/(n*Coeff[Qn, x, n]), Int[ExpandToSum[n*Coeff[Qn, x, n]*Pm - Coeff[Pm, x, m]*D[Qn, x
], x]/Qn, x], x] /; EqQ[m, n - 1]] /; PolyQ[Pm, x] && PolyQ[Qn, x]

Rubi steps

\begin {gather*} \begin {aligned} \text {integral} &=\int \frac {x^5 (-1200+300 x)}{4096-4608 x+1728 x^2-216 x^3-200 x^6+75 x^7} \, dx\\ &=\frac {4}{7} \log \left (4096-4608 x+1728 x^2-216 x^3-200 x^6+75 x^7\right )+\frac {1}{525} \int \frac {1382400-1036800 x+194400 x^2-270000 x^5}{4096-4608 x+1728 x^2-216 x^3-200 x^6+75 x^7} \, dx\\ &=\frac {4}{7} \log \left (4096-4608 x+1728 x^2-216 x^3-200 x^6+75 x^7\right )+\frac {1}{525} \int \left (-\frac {4050}{-8+3 x}+\frac {1350 \left (64-24 x+25 x^5\right )}{-512+384 x-72 x^2+25 x^6}\right ) \, dx\\ &=-\frac {18}{7} \log (8-3 x)+\frac {4}{7} \log \left (4096-4608 x+1728 x^2-216 x^3-200 x^6+75 x^7\right )+\frac {18}{7} \int \frac {64-24 x+25 x^5}{-512+384 x-72 x^2+25 x^6} \, dx\\ &=-\frac {18}{7} \log (8-3 x)+\frac {3}{7} \log \left (512-384 x+72 x^2-25 x^6\right )+\frac {4}{7} \log \left (4096-4608 x+1728 x^2-216 x^3-200 x^6+75 x^7\right )\\ \end {aligned} \end {gather*}

________________________________________________________________________________________

Mathematica [A]  time = 0.01, size = 33, normalized size = 1.94 \begin {gather*} 300 \left (-\frac {1}{150} \log (8-3 x)+\frac {1}{300} \log \left (512-384 x+72 x^2-25 x^6\right )\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(-1200*x^5 + 300*x^6)/(4096 - 4608*x + 1728*x^2 - 216*x^3 - 200*x^6 + 75*x^7),x]

[Out]

300*(-1/150*Log[8 - 3*x] + Log[512 - 384*x + 72*x^2 - 25*x^6]/300)

________________________________________________________________________________________

fricas [A]  time = 0.94, size = 25, normalized size = 1.47 \begin {gather*} \log \left (25 \, x^{6} - 72 \, x^{2} + 384 \, x - 512\right ) - 2 \, \log \left (3 \, x - 8\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((300*x^6-1200*x^5)/(75*x^7-200*x^6-216*x^3+1728*x^2-4608*x+4096),x, algorithm="fricas")

[Out]

log(25*x^6 - 72*x^2 + 384*x - 512) - 2*log(3*x - 8)

________________________________________________________________________________________

giac [A]  time = 0.22, size = 27, normalized size = 1.59 \begin {gather*} \log \left ({\left | 25 \, x^{6} - 72 \, x^{2} + 384 \, x - 512 \right |}\right ) - 2 \, \log \left ({\left | 3 \, x - 8 \right |}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((300*x^6-1200*x^5)/(75*x^7-200*x^6-216*x^3+1728*x^2-4608*x+4096),x, algorithm="giac")

[Out]

log(abs(25*x^6 - 72*x^2 + 384*x - 512)) - 2*log(abs(3*x - 8))

________________________________________________________________________________________

maple [A]  time = 0.04, size = 26, normalized size = 1.53

method	result	size
default	\(-2 \ln \left (3 x -8\right )+\ln \left (25 x^{6}-72 x^{2}+384 x -512\right )\)	\(26\)
norman	\(-2 \ln \left (3 x -8\right )+\ln \left (25 x^{6}-72 x^{2}+384 x -512\right )\)	\(26\)
risch	\(-2 \ln \left (3 x -8\right )+\ln \left (25 x^{6}-72 x^{2}+384 x -512\right )\)	\(26\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((300*x^6-1200*x^5)/(75*x^7-200*x^6-216*x^3+1728*x^2-4608*x+4096),x,method=_RETURNVERBOSE)

[Out]

-2*ln(3*x-8)+ln(25*x^6-72*x^2+384*x-512)

________________________________________________________________________________________

maxima [A]  time = 0.51, size = 25, normalized size = 1.47 \begin {gather*} \log \left (25 \, x^{6} - 72 \, x^{2} + 384 \, x - 512\right ) - 2 \, \log \left (3 \, x - 8\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((300*x^6-1200*x^5)/(75*x^7-200*x^6-216*x^3+1728*x^2-4608*x+4096),x, algorithm="maxima")

[Out]

log(25*x^6 - 72*x^2 + 384*x - 512) - 2*log(3*x - 8)

________________________________________________________________________________________

mupad [B]  time = 0.10, size = 23, normalized size = 1.35 \begin {gather*} \ln \left (25\,x^6-72\,x^2+384\,x-512\right )-2\,\ln \left (x-\frac {8}{3}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((1200*x^5 - 300*x^6)/(4608*x - 1728*x^2 + 216*x^3 + 200*x^6 - 75*x^7 - 4096),x)

[Out]

log(384*x - 72*x^2 + 25*x^6 - 512) - 2*log(x - 8/3)

________________________________________________________________________________________

sympy [A]  time = 0.12, size = 24, normalized size = 1.41 \begin {gather*} - 2 \log {\left (3 x - 8 \right )} + \log {\left (25 x^{6} - 72 x^{2} + 384 x - 512 \right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((300*x**6-1200*x**5)/(75*x**7-200*x**6-216*x**3+1728*x**2-4608*x+4096),x)

[Out]

-2*log(3*x - 8) + log(25*x**6 - 72*x**2 + 384*x - 512)

________________________________________________________________________________________