\(\int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx\) [7185]

Optimal result

Integrand size = 37, antiderivative size = 18 \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=12+\frac {5 x}{3}+\frac {\log (x)}{10 (2+x)} \]

[Out]

ln(x)/(10*x+20)+12+5/3*x

Rubi [A] (verified)

Time = 0.14 (sec) , antiderivative size = 24, normalized size of antiderivative = 1.33, number of steps used = 13, number of rules used = 8, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.216, Rules used = {1608, 27, 12, 6874, 46, 45, 2351, 31} \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=\frac {5 x}{3}-\frac {x \log (x)}{20 (x+2)}+\frac {\log (x)}{20} \]

[In]

Int[(6 + 203*x + 200*x^2 + 50*x^3 - 3*x*Log[x])/(120*x + 120*x^2 + 30*x^3),x]

[Out]

(5*x)/3 + Log[x]/20 - (x*Log[x])/(20*(2 + x))

Rule 12

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

Rule 27

Int[(u_.)*((a_) + (b_.)*(x_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :> Int[u*Cancel[(b/2 + c*x)^(2*p)/c^p], x] /; Fr
eeQ[{a, b, c}, x] && EqQ[b^2 - 4*a*c, 0] && IntegerQ[p]

Rule 31

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

Rule 45

Int[((a_.) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d
*x)^n, x], x] /; FreeQ[{a, b, c, d, n}, x] && NeQ[b*c - a*d, 0] && IGtQ[m, 0] && ( !IntegerQ[n] || (EqQ[c, 0]
&& LeQ[7*m + 4*n + 4, 0]) || LtQ[9*m + 5*(n + 1), 0] || GtQ[m + n + 2, 0])

Rule 46

Int[((a_) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d*x
)^n, x], x] /; FreeQ[{a, b, c, d}, x] && NeQ[b*c - a*d, 0] && ILtQ[m, 0] && IntegerQ[n] &&  !(IGtQ[n, 0] && Lt
Q[m + n + 2, 0])

Rule 1608

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

Rule 2351

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))*((d_) + (e_.)*(x_)^(r_.))^(q_), x_Symbol] :> Simp[x*(d + e*x^r)^(q +
1)*((a + b*Log[c*x^n])/d), x] - Dist[b*(n/d), Int[(d + e*x^r)^(q + 1), x], x] /; FreeQ[{a, b, c, d, e, n, q,
r}, x] && EqQ[r*(q + 1) + 1, 0]

Rule 6874

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

Rubi steps \begin{align*} \text {integral}& = \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{x \left (120+120 x+30 x^2\right )} \, dx \\ & = \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{30 x (2+x)^2} \, dx \\ & = \frac {1}{30} \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{x (2+x)^2} \, dx \\ & = \frac {1}{30} \int \left (\frac {203}{(2+x)^2}+\frac {6}{x (2+x)^2}+\frac {200 x}{(2+x)^2}+\frac {50 x^2}{(2+x)^2}-\frac {3 \log (x)}{(2+x)^2}\right ) \, dx \\ & = -\frac {203}{30 (2+x)}-\frac {1}{10} \int \frac {\log (x)}{(2+x)^2} \, dx+\frac {1}{5} \int \frac {1}{x (2+x)^2} \, dx+\frac {5}{3} \int \frac {x^2}{(2+x)^2} \, dx+\frac {20}{3} \int \frac {x}{(2+x)^2} \, dx \\ & = -\frac {203}{30 (2+x)}-\frac {x \log (x)}{20 (2+x)}+\frac {1}{20} \int \frac {1}{2+x} \, dx+\frac {1}{5} \int \left (\frac {1}{4 x}-\frac {1}{2 (2+x)^2}-\frac {1}{4 (2+x)}\right ) \, dx+\frac {5}{3} \int \left (1+\frac {4}{(2+x)^2}-\frac {4}{2+x}\right ) \, dx+\frac {20}{3} \int \left (-\frac {2}{(2+x)^2}+\frac {1}{2+x}\right ) \, dx \\ & = \frac {5 x}{3}+\frac {\log (x)}{20}-\frac {x \log (x)}{20 (2+x)} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.05 (sec) , antiderivative size = 17, normalized size of antiderivative = 0.94 \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=\frac {1}{30} \left (50 x+\frac {3 \log (x)}{2+x}\right ) \]

[In]

Integrate[(6 + 203*x + 200*x^2 + 50*x^3 - 3*x*Log[x])/(120*x + 120*x^2 + 30*x^3),x]

[Out]

(50*x + (3*Log[x])/(2 + x))/30

Maple [A] (verified)

Time = 0.14 (sec) , antiderivative size = 14, normalized size of antiderivative = 0.78

method	result	size
risch	\(\frac {\ln \left (x \right )}{10 x +20}+\frac {5 x}{3}\)	\(14\)
norman	\(\frac {\frac {\ln \left (x \right )}{10}+\frac {5 x^{2}}{3}-\frac {20}{3}}{2+x}\)	\(18\)
default	\(\frac {5 x}{3}+\frac {\ln \left (x \right )}{20}-\frac {\ln \left (x \right ) x}{20 \left (2+x \right )}\)	\(19\)
parallelrisch	\(\frac {50 x^{2}-200+3 \ln \left (x \right )}{60+30 x}\)	\(19\)
parts	\(\frac {5 x}{3}+\frac {\ln \left (x \right )}{20}-\frac {\ln \left (x \right ) x}{20 \left (2+x \right )}\)	\(19\)

[In]

int((-3*x*ln(x)+50*x^3+200*x^2+203*x+6)/(30*x^3+120*x^2+120*x),x,method=_RETURNVERBOSE)

[Out]

1/10*ln(x)/(2+x)+5/3*x

Fricas [A] (verification not implemented)

none

Time = 0.25 (sec) , antiderivative size = 20, normalized size of antiderivative = 1.11 \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=\frac {50 \, x^{2} + 100 \, x + 3 \, \log \left (x\right )}{30 \, {\left (x + 2\right )}} \]

[In]

integrate((-3*x*log(x)+50*x^3+200*x^2+203*x+6)/(30*x^3+120*x^2+120*x),x, algorithm="fricas")

[Out]

1/30*(50*x^2 + 100*x + 3*log(x))/(x + 2)

Sympy [A] (verification not implemented)

Time = 0.07 (sec) , antiderivative size = 12, normalized size of antiderivative = 0.67 \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=\frac {5 x}{3} + \frac {\log {\left (x \right )}}{10 x + 20} \]

[In]

integrate((-3*x*ln(x)+50*x**3+200*x**2+203*x+6)/(30*x**3+120*x**2+120*x),x)

[Out]

5*x/3 + log(x)/(10*x + 20)

Maxima [A] (verification not implemented)

none

Time = 0.19 (sec) , antiderivative size = 13, normalized size of antiderivative = 0.72 \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=\frac {5}{3} \, x + \frac {\log \left (x\right )}{10 \, {\left (x + 2\right )}} \]

[In]

integrate((-3*x*log(x)+50*x^3+200*x^2+203*x+6)/(30*x^3+120*x^2+120*x),x, algorithm="maxima")

[Out]

5/3*x + 1/10*log(x)/(x + 2)

Giac [A] (verification not implemented)

none

Time = 0.30 (sec) , antiderivative size = 13, normalized size of antiderivative = 0.72 \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=\frac {5}{3} \, x + \frac {\log \left (x\right )}{10 \, {\left (x + 2\right )}} \]

[In]

integrate((-3*x*log(x)+50*x^3+200*x^2+203*x+6)/(30*x^3+120*x^2+120*x),x, algorithm="giac")

[Out]

5/3*x + 1/10*log(x)/(x + 2)

Mupad [B] (verification not implemented)

Time = 12.88 (sec) , antiderivative size = 14, normalized size of antiderivative = 0.78 \[ \int \frac {6+203 x+200 x^2+50 x^3-3 x \log (x)}{120 x+120 x^2+30 x^3} \, dx=\frac {5\,x}{3}+\frac {\ln \left (x\right )}{10\,\left (x+2\right )} \]

[In]

int((203*x - 3*x*log(x) + 200*x^2 + 50*x^3 + 6)/(120*x + 120*x^2 + 30*x^3),x)

[Out]

(5*x)/3 + log(x)/(10*(x + 2))