\(\int -\frac {1}{10+2 x+(20+4 x) \log (75+30 x+3 x^2)+(10+2 x) \log ^2(75+30 x+3 x^2)} \, dx\) [7645]

   Optimal result
   Rubi [A] (verified)
   Mathematica [A] (verified)
   Maple [A] (verified)
   Fricas [A] (verification not implemented)
   Sympy [A] (verification not implemented)
   Maxima [A] (verification not implemented)
   Giac [A] (verification not implemented)
   Mupad [B] (verification not implemented)

Optimal result

Integrand size = 45, antiderivative size = 16 \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4 \left (1+\log \left (3 (5+x)^2\right )\right )} \]

[Out]

1/4/(1+ln(3*(5+x)^2))

Rubi [A] (verified)

Time = 0.04 (sec) , antiderivative size = 16, normalized size of antiderivative = 1.00, number of steps used = 5, number of rules used = 5, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.111, Rules used = {6820, 12, 2437, 2339, 30} \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4 \left (\log \left (3 (x+5)^2\right )+1\right )} \]

[In]

Int[-(10 + 2*x + (20 + 4*x)*Log[75 + 30*x + 3*x^2] + (10 + 2*x)*Log[75 + 30*x + 3*x^2]^2)^(-1),x]

[Out]

1/(4*(1 + Log[3*(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 30

Int[(x_)^(m_.), x_Symbol] :> Simp[x^(m + 1)/(m + 1), x] /; FreeQ[m, x] && NeQ[m, -1]

Rule 2339

Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)/(x_), x_Symbol] :> Dist[1/(b*n), Subst[Int[x^p, x], x, a + b*L
og[c*x^n]], x] /; FreeQ[{a, b, c, n, p}, x]

Rule 2437

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

Rule 6820

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

Rubi steps \begin{align*} \text {integral}& = -\int \frac {1}{2 (5+x) \left (1+\log \left (3 (5+x)^2\right )\right )^2} \, dx \\ & = -\left (\frac {1}{2} \int \frac {1}{(5+x) \left (1+\log \left (3 (5+x)^2\right )\right )^2} \, dx\right ) \\ & = -\left (\frac {1}{2} \text {Subst}\left (\int \frac {1}{x \left (1+\log \left (3 x^2\right )\right )^2} \, dx,x,5+x\right )\right ) \\ & = -\left (\frac {1}{4} \text {Subst}\left (\int \frac {1}{x^2} \, dx,x,1+\log \left (3 (5+x)^2\right )\right )\right ) \\ & = \frac {1}{4 \left (1+\log \left (3 (5+x)^2\right )\right )} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.01 (sec) , antiderivative size = 16, normalized size of antiderivative = 1.00 \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4 \left (1+\log \left (3 (5+x)^2\right )\right )} \]

[In]

Integrate[-(10 + 2*x + (20 + 4*x)*Log[75 + 30*x + 3*x^2] + (10 + 2*x)*Log[75 + 30*x + 3*x^2]^2)^(-1),x]

[Out]

1/(4*(1 + Log[3*(5 + x)^2]))

Maple [A] (verified)

Time = 0.22 (sec) , antiderivative size = 18, normalized size of antiderivative = 1.12

method result size
default \(\frac {1}{4 \ln \left (3\right )+4 \ln \left (x^{2}+10 x +25\right )+4}\) \(18\)
norman \(\frac {1}{4 \ln \left (3 x^{2}+30 x +75\right )+4}\) \(18\)
risch \(\frac {1}{4 \ln \left (3 x^{2}+30 x +75\right )+4}\) \(18\)
parallelrisch \(\frac {1}{4 \ln \left (3 x^{2}+30 x +75\right )+4}\) \(18\)

[In]

int(-1/((2*x+10)*ln(3*x^2+30*x+75)^2+(20+4*x)*ln(3*x^2+30*x+75)+2*x+10),x,method=_RETURNVERBOSE)

[Out]

1/4/(ln(3)+ln(x^2+10*x+25)+1)

Fricas [A] (verification not implemented)

none

Time = 0.28 (sec) , antiderivative size = 17, normalized size of antiderivative = 1.06 \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4 \, {\left (\log \left (3 \, x^{2} + 30 \, x + 75\right ) + 1\right )}} \]

[In]

integrate(-1/((2*x+10)*log(3*x^2+30*x+75)^2+(20+4*x)*log(3*x^2+30*x+75)+2*x+10),x, algorithm="fricas")

[Out]

1/4/(log(3*x^2 + 30*x + 75) + 1)

Sympy [A] (verification not implemented)

Time = 0.05 (sec) , antiderivative size = 15, normalized size of antiderivative = 0.94 \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4 \log {\left (3 x^{2} + 30 x + 75 \right )} + 4} \]

[In]

integrate(-1/((2*x+10)*ln(3*x**2+30*x+75)**2+(20+4*x)*ln(3*x**2+30*x+75)+2*x+10),x)

[Out]

1/(4*log(3*x**2 + 30*x + 75) + 4)

Maxima [A] (verification not implemented)

none

Time = 0.27 (sec) , antiderivative size = 14, normalized size of antiderivative = 0.88 \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4 \, {\left (\log \left (3\right ) + 2 \, \log \left (x + 5\right ) + 1\right )}} \]

[In]

integrate(-1/((2*x+10)*log(3*x^2+30*x+75)^2+(20+4*x)*log(3*x^2+30*x+75)+2*x+10),x, algorithm="maxima")

[Out]

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

Giac [A] (verification not implemented)

none

Time = 0.28 (sec) , antiderivative size = 17, normalized size of antiderivative = 1.06 \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4 \, {\left (\log \left (3 \, x^{2} + 30 \, x + 75\right ) + 1\right )}} \]

[In]

integrate(-1/((2*x+10)*log(3*x^2+30*x+75)^2+(20+4*x)*log(3*x^2+30*x+75)+2*x+10),x, algorithm="giac")

[Out]

1/4/(log(3*x^2 + 30*x + 75) + 1)

Mupad [B] (verification not implemented)

Time = 0.25 (sec) , antiderivative size = 17, normalized size of antiderivative = 1.06 \[ \int -\frac {1}{10+2 x+(20+4 x) \log \left (75+30 x+3 x^2\right )+(10+2 x) \log ^2\left (75+30 x+3 x^2\right )} \, dx=\frac {1}{4\,\left (\ln \left (3\,x^2+30\,x+75\right )+1\right )} \]

[In]

int(-1/(2*x + log(30*x + 3*x^2 + 75)*(4*x + 20) + log(30*x + 3*x^2 + 75)^2*(2*x + 10) + 10),x)

[Out]

1/(4*(log(30*x + 3*x^2 + 75) + 1))