\(\int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx\) [7884]

   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 = 54, antiderivative size = 24 \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=3 \left (-\frac {x}{\log (4)}+\frac {8 \log (4)}{7-\log (6 x)}\right ) \]

[Out]

48/(7-ln(6*x))*ln(2)-3/2*x/ln(2)

Rubi [A] (verified)

Time = 0.22 (sec) , antiderivative size = 22, normalized size of antiderivative = 0.92, number of steps used = 6, number of rules used = 5, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.093, Rules used = {6873, 12, 6874, 2339, 30} \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=\frac {24 \log (4)}{7-\log (6 x)}-\frac {3 x}{\log (4)} \]

[In]

Int[(-147*x + 24*Log[4]^2 + 42*x*Log[6*x] - 3*x*Log[6*x]^2)/(49*x*Log[4] - 14*x*Log[4]*Log[6*x] + x*Log[4]*Log
[6*x]^2),x]

[Out]

(-3*x)/Log[4] + (24*Log[4])/(7 - Log[6*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 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 6873

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

Rule 6874

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

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

Mathematica [A] (verified)

Time = 0.05 (sec) , antiderivative size = 24, normalized size of antiderivative = 1.00 \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=-\frac {3 \left (x-\frac {8 \log ^2(4)}{7-\log (6 x)}\right )}{\log (4)} \]

[In]

Integrate[(-147*x + 24*Log[4]^2 + 42*x*Log[6*x] - 3*x*Log[6*x]^2)/(49*x*Log[4] - 14*x*Log[4]*Log[6*x] + x*Log[
4]*Log[6*x]^2),x]

[Out]

(-3*(x - (8*Log[4]^2)/(7 - Log[6*x])))/Log[4]

Maple [A] (verified)

Time = 0.12 (sec) , antiderivative size = 21, normalized size of antiderivative = 0.88

method result size
derivativedivides \(-\frac {3 x}{2 \ln \left (2\right )}-\frac {48 \ln \left (2\right )}{\ln \left (6 x \right )-7}\) \(21\)
default \(-\frac {3 x}{2 \ln \left (2\right )}-\frac {48 \ln \left (2\right )}{\ln \left (6 x \right )-7}\) \(21\)
risch \(-\frac {3 x}{2 \ln \left (2\right )}-\frac {48 \ln \left (2\right )}{\ln \left (6 x \right )-7}\) \(21\)
parallelrisch \(-\frac {96 \ln \left (2\right )^{2}+3 x \ln \left (6 x \right )-21 x}{2 \ln \left (2\right ) \left (\ln \left (6 x \right )-7\right )}\) \(32\)
norman \(\frac {\frac {21 x}{2 \ln \left (2\right )}-\frac {3 x \ln \left (6 x \right )}{2 \ln \left (2\right )}-48 \ln \left (2\right )}{\ln \left (6 x \right )-7}\) \(33\)

[In]

int((-3*x*ln(6*x)^2+42*x*ln(6*x)+96*ln(2)^2-147*x)/(2*x*ln(2)*ln(6*x)^2-28*x*ln(2)*ln(6*x)+98*x*ln(2)),x,metho
d=_RETURNVERBOSE)

[Out]

-3/2*x/ln(2)-48*ln(2)/(ln(6*x)-7)

Fricas [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 32, normalized size of antiderivative = 1.33 \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=-\frac {3 \, {\left (32 \, \log \left (2\right )^{2} + x \log \left (6 \, x\right ) - 7 \, x\right )}}{2 \, {\left (\log \left (2\right ) \log \left (6 \, x\right ) - 7 \, \log \left (2\right )\right )}} \]

[In]

integrate((-3*x*log(6*x)^2+42*x*log(6*x)+96*log(2)^2-147*x)/(2*x*log(2)*log(6*x)^2-28*x*log(2)*log(6*x)+98*x*l
og(2)),x, algorithm="fricas")

[Out]

-3/2*(32*log(2)^2 + x*log(6*x) - 7*x)/(log(2)*log(6*x) - 7*log(2))

Sympy [A] (verification not implemented)

Time = 0.06 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.83 \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=- \frac {3 x}{2 \log {\left (2 \right )}} - \frac {48 \log {\left (2 \right )}}{\log {\left (6 x \right )} - 7} \]

[In]

integrate((-3*x*ln(6*x)**2+42*x*ln(6*x)+96*ln(2)**2-147*x)/(2*x*ln(2)*ln(6*x)**2-28*x*ln(2)*ln(6*x)+98*x*ln(2)
),x)

[Out]

-3*x/(2*log(2)) - 48*log(2)/(log(6*x) - 7)

Maxima [A] (verification not implemented)

none

Time = 0.29 (sec) , antiderivative size = 33, normalized size of antiderivative = 1.38 \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=-\frac {48 \, \log \left (2\right )^{2}}{{\left (\log \left (3\right ) - 7\right )} \log \left (2\right ) + \log \left (2\right )^{2} + \log \left (2\right ) \log \left (x\right )} - \frac {3 \, x}{2 \, \log \left (2\right )} \]

[In]

integrate((-3*x*log(6*x)^2+42*x*log(6*x)+96*log(2)^2-147*x)/(2*x*log(2)*log(6*x)^2-28*x*log(2)*log(6*x)+98*x*l
og(2)),x, algorithm="maxima")

[Out]

-48*log(2)^2/((log(3) - 7)*log(2) + log(2)^2 + log(2)*log(x)) - 3/2*x/log(2)

Giac [A] (verification not implemented)

none

Time = 0.28 (sec) , antiderivative size = 22, normalized size of antiderivative = 0.92 \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=-\frac {3 \, x}{2 \, \log \left (2\right )} - \frac {48 \, \log \left (2\right )}{\log \left (2\right ) + \log \left (3 \, x\right ) - 7} \]

[In]

integrate((-3*x*log(6*x)^2+42*x*log(6*x)+96*log(2)^2-147*x)/(2*x*log(2)*log(6*x)^2-28*x*log(2)*log(6*x)+98*x*l
og(2)),x, algorithm="giac")

[Out]

-3/2*x/log(2) - 48*log(2)/(log(2) + log(3*x) - 7)

Mupad [B] (verification not implemented)

Time = 13.10 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.83 \[ \int \frac {-147 x+24 \log ^2(4)+42 x \log (6 x)-3 x \log ^2(6 x)}{49 x \log (4)-14 x \log (4) \log (6 x)+x \log (4) \log ^2(6 x)} \, dx=-\frac {3\,x}{2\,\ln \left (2\right )}-\frac {48\,\ln \left (2\right )}{\ln \left (6\,x\right )-7} \]

[In]

int(-(147*x - 42*x*log(6*x) + 3*x*log(6*x)^2 - 96*log(2)^2)/(98*x*log(2) - 28*x*log(6*x)*log(2) + 2*x*log(6*x)
^2*log(2)),x)

[Out]

- (3*x)/(2*log(2)) - (48*log(2))/(log(6*x) - 7)