Integrand size = 23, antiderivative size = 147 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=2 a b e n r x-4 b^2 e n^2 r x+2 b e n (a-b n) r x+4 b^2 e n r x \log \left (c x^n\right )-e r x \left (a+b \log \left (c x^n\right )\right )^2-2 a b n x \left (d+e \log \left (f x^r\right )\right )+2 b^2 n^2 x \left (d+e \log \left (f x^r\right )\right )-2 b^2 n x \log \left (c x^n\right ) \left (d+e \log \left (f x^r\right )\right )+x \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \] Output:
2*a*b*e*n*r*x-4*b^2*e*n^2*r*x+2*b*e*n*(-b*n+a)*r*x+4*b^2*e*n*r*x*ln(c*x^n) -e*r*x*(a+b*ln(c*x^n))^2-2*a*b*n*x*(d+e*ln(f*x^r))+2*b^2*n^2*x*(d+e*ln(f*x ^r))-2*b^2*n*x*ln(c*x^n)*(d+e*ln(f*x^r))+x*(a+b*ln(c*x^n))^2*(d+e*ln(f*x^r ))
Time = 0.13 (sec) , antiderivative size = 141, normalized size of antiderivative = 0.96 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=x \left (a^2 d-2 a b d n+2 b^2 d n^2-a^2 e r+4 a b e n r-6 b^2 e n^2 r+e \left (a^2-2 a b n+2 b^2 n^2\right ) \log \left (f x^r\right )+b^2 \log ^2\left (c x^n\right ) \left (d-e r+e \log \left (f x^r\right )\right )+2 b \log \left (c x^n\right ) \left (a d-b d n-a e r+2 b e n r+e (a-b n) \log \left (f x^r\right )\right )\right ) \] Input:
Integrate[(a + b*Log[c*x^n])^2*(d + e*Log[f*x^r]),x]
Output:
x*(a^2*d - 2*a*b*d*n + 2*b^2*d*n^2 - a^2*e*r + 4*a*b*e*n*r - 6*b^2*e*n^2*r + e*(a^2 - 2*a*b*n + 2*b^2*n^2)*Log[f*x^r] + b^2*Log[c*x^n]^2*(d - e*r + e*Log[f*x^r]) + 2*b*Log[c*x^n]*(a*d - b*d*n - a*e*r + 2*b*e*n*r + e*(a - b *n)*Log[f*x^r]))
Time = 0.34 (sec) , antiderivative size = 141, normalized size of antiderivative = 0.96, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.087, Rules used = {2808, 2009}
Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.
\(\displaystyle \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx\) |
\(\Big \downarrow \) 2808 |
\(\displaystyle -e r \int \left (-2 n \log \left (c x^n\right ) b^2-2 n (a-b n) b+\left (a+b \log \left (c x^n\right )\right )^2\right )dx+x \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right )-2 a b n x \left (d+e \log \left (f x^r\right )\right )-2 b^2 n x \log \left (c x^n\right ) \left (d+e \log \left (f x^r\right )\right )+2 b^2 n^2 x \left (d+e \log \left (f x^r\right )\right )\) |
\(\Big \downarrow \) 2009 |
\(\displaystyle -e r \left (x \left (a+b \log \left (c x^n\right )\right )^2-2 a b n x-2 b n x (a-b n)-4 b^2 n x \log \left (c x^n\right )+4 b^2 n^2 x\right )+x \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right )-2 a b n x \left (d+e \log \left (f x^r\right )\right )-2 b^2 n x \log \left (c x^n\right ) \left (d+e \log \left (f x^r\right )\right )+2 b^2 n^2 x \left (d+e \log \left (f x^r\right )\right )\) |
Input:
Int[(a + b*Log[c*x^n])^2*(d + e*Log[f*x^r]),x]
Output:
-(e*r*(-2*a*b*n*x + 4*b^2*n^2*x - 2*b*n*(a - b*n)*x - 4*b^2*n*x*Log[c*x^n] + x*(a + b*Log[c*x^n])^2)) - 2*a*b*n*x*(d + e*Log[f*x^r]) + 2*b^2*n^2*x*( d + e*Log[f*x^r]) - 2*b^2*n*x*Log[c*x^n]*(d + e*Log[f*x^r]) + x*(a + b*Log [c*x^n])^2*(d + e*Log[f*x^r])
Int[((a_.) + Log[(c_.)*(x_)^(n_.)]*(b_.))^(p_.)*((d_.) + Log[(f_.)*(x_)^(r_ .)]*(e_.)), x_Symbol] :> With[{u = IntHide[(a + b*Log[c*x^n])^p, x]}, Simp[ (d + e*Log[f*x^r]) u, x] - Simp[e*r Int[SimplifyIntegrand[u/x, x], x], x]] /; FreeQ[{a, b, c, d, e, f, n, p, r}, x]
Time = 5.06 (sec) , antiderivative size = 281, normalized size of antiderivative = 1.91
method | result | size |
parallelrisch | \(-\frac {-x \ln \left (c \,x^{n}\right )^{2} b^{2} d \,n^{7}-2 x \ln \left (f \,x^{r}\right ) b^{2} e \,n^{9}-x \ln \left (f \,x^{r}\right ) a^{2} e \,n^{7}+2 x \ln \left (c \,x^{n}\right ) b^{2} d \,n^{8}+6 x \,b^{2} e \,n^{9} r +x \,a^{2} e \,n^{7} r +2 x a b d \,n^{8}-2 x \,b^{2} d \,n^{9}-x \,a^{2} d \,n^{7}-4 x a b e \,n^{8} r -x \ln \left (c \,x^{n}\right )^{2} \ln \left (f \,x^{r}\right ) b^{2} e \,n^{7}+x \ln \left (c \,x^{n}\right )^{2} b^{2} e \,n^{7} r +2 x \ln \left (f \,x^{r}\right ) a b e \,n^{8}-4 x \ln \left (c \,x^{n}\right ) b^{2} e \,n^{8} r -2 x \ln \left (c \,x^{n}\right ) a b d \,n^{7}+2 x \ln \left (c \,x^{n}\right ) \ln \left (f \,x^{r}\right ) b^{2} e \,n^{8}+2 x \ln \left (c \,x^{n}\right ) a b e \,n^{7} r -2 x \ln \left (c \,x^{n}\right ) \ln \left (f \,x^{r}\right ) a b e \,n^{7}}{n^{7}}\) | \(281\) |
risch | \(\text {Expression too large to display}\) | \(8701\) |
Input:
int((a+b*ln(c*x^n))^2*(d+e*ln(f*x^r)),x,method=_RETURNVERBOSE)
Output:
-(-x*ln(c*x^n)^2*b^2*d*n^7-2*x*ln(f*x^r)*b^2*e*n^9-x*ln(f*x^r)*a^2*e*n^7+2 *x*ln(c*x^n)*b^2*d*n^8+6*x*b^2*e*n^9*r+x*a^2*e*n^7*r+2*x*a*b*d*n^8-2*x*b^2 *d*n^9-x*a^2*d*n^7-4*x*a*b*e*n^8*r-x*ln(c*x^n)^2*ln(f*x^r)*b^2*e*n^7+x*ln( c*x^n)^2*b^2*e*n^7*r+2*x*ln(f*x^r)*a*b*e*n^8-4*x*ln(c*x^n)*b^2*e*n^8*r-2*x *ln(c*x^n)*a*b*d*n^7+2*x*ln(c*x^n)*ln(f*x^r)*b^2*e*n^8+2*x*ln(c*x^n)*a*b*e *n^7*r-2*x*ln(c*x^n)*ln(f*x^r)*a*b*e*n^7)/n^7
Leaf count of result is larger than twice the leaf count of optimal. 345 vs. \(2 (148) = 296\).
Time = 0.07 (sec) , antiderivative size = 345, normalized size of antiderivative = 2.35 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=b^{2} e n^{2} r x \log \left (x\right )^{3} - {\left (b^{2} e r - b^{2} d\right )} x \log \left (c\right )^{2} - 2 \, {\left (b^{2} d n - a b d - {\left (2 \, b^{2} e n - a b e\right )} r\right )} x \log \left (c\right ) + {\left (2 \, b^{2} e n r x \log \left (c\right ) + b^{2} e n^{2} x \log \left (f\right ) + {\left (b^{2} d n^{2} - {\left (3 \, b^{2} e n^{2} - 2 \, a b e n\right )} r\right )} x\right )} \log \left (x\right )^{2} + {\left (2 \, b^{2} d n^{2} - 2 \, a b d n + a^{2} d - {\left (6 \, b^{2} e n^{2} - 4 \, a b e n + a^{2} e\right )} r\right )} x + {\left (b^{2} e x \log \left (c\right )^{2} - 2 \, {\left (b^{2} e n - a b e\right )} x \log \left (c\right ) + {\left (2 \, b^{2} e n^{2} - 2 \, a b e n + a^{2} e\right )} x\right )} \log \left (f\right ) + {\left (b^{2} e r x \log \left (c\right )^{2} + 2 \, {\left (b^{2} d n - {\left (2 \, b^{2} e n - a b e\right )} r\right )} x \log \left (c\right ) - {\left (2 \, b^{2} d n^{2} - 2 \, a b d n - {\left (6 \, b^{2} e n^{2} - 4 \, a b e n + a^{2} e\right )} r\right )} x + 2 \, {\left (b^{2} e n x \log \left (c\right ) - {\left (b^{2} e n^{2} - a b e n\right )} x\right )} \log \left (f\right )\right )} \log \left (x\right ) \] Input:
integrate((a+b*log(c*x^n))^2*(d+e*log(f*x^r)),x, algorithm="fricas")
Output:
b^2*e*n^2*r*x*log(x)^3 - (b^2*e*r - b^2*d)*x*log(c)^2 - 2*(b^2*d*n - a*b*d - (2*b^2*e*n - a*b*e)*r)*x*log(c) + (2*b^2*e*n*r*x*log(c) + b^2*e*n^2*x*l og(f) + (b^2*d*n^2 - (3*b^2*e*n^2 - 2*a*b*e*n)*r)*x)*log(x)^2 + (2*b^2*d*n ^2 - 2*a*b*d*n + a^2*d - (6*b^2*e*n^2 - 4*a*b*e*n + a^2*e)*r)*x + (b^2*e*x *log(c)^2 - 2*(b^2*e*n - a*b*e)*x*log(c) + (2*b^2*e*n^2 - 2*a*b*e*n + a^2* e)*x)*log(f) + (b^2*e*r*x*log(c)^2 + 2*(b^2*d*n - (2*b^2*e*n - a*b*e)*r)*x *log(c) - (2*b^2*d*n^2 - 2*a*b*d*n - (6*b^2*e*n^2 - 4*a*b*e*n + a^2*e)*r)* x + 2*(b^2*e*n*x*log(c) - (b^2*e*n^2 - a*b*e*n)*x)*log(f))*log(x)
Time = 0.88 (sec) , antiderivative size = 279, normalized size of antiderivative = 1.90 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=a^{2} d x - a^{2} e r x + a^{2} e x \log {\left (f x^{r} \right )} - 2 a b d n x + 2 a b d x \log {\left (c x^{n} \right )} + 4 a b e n r x - 2 a b e n x \log {\left (f x^{r} \right )} - 2 a b e r x \log {\left (c x^{n} \right )} + 2 a b e x \log {\left (c x^{n} \right )} \log {\left (f x^{r} \right )} + 2 b^{2} d n^{2} x - 2 b^{2} d n x \log {\left (c x^{n} \right )} + b^{2} d x \log {\left (c x^{n} \right )}^{2} - 6 b^{2} e n^{2} r x + 2 b^{2} e n^{2} x \log {\left (f x^{r} \right )} + 4 b^{2} e n r x \log {\left (c x^{n} \right )} - 2 b^{2} e n x \log {\left (c x^{n} \right )} \log {\left (f x^{r} \right )} - b^{2} e r x \log {\left (c x^{n} \right )}^{2} + b^{2} e x \log {\left (c x^{n} \right )}^{2} \log {\left (f x^{r} \right )} \] Input:
integrate((a+b*ln(c*x**n))**2*(d+e*ln(f*x**r)),x)
Output:
a**2*d*x - a**2*e*r*x + a**2*e*x*log(f*x**r) - 2*a*b*d*n*x + 2*a*b*d*x*log (c*x**n) + 4*a*b*e*n*r*x - 2*a*b*e*n*x*log(f*x**r) - 2*a*b*e*r*x*log(c*x** n) + 2*a*b*e*x*log(c*x**n)*log(f*x**r) + 2*b**2*d*n**2*x - 2*b**2*d*n*x*lo g(c*x**n) + b**2*d*x*log(c*x**n)**2 - 6*b**2*e*n**2*r*x + 2*b**2*e*n**2*x* log(f*x**r) + 4*b**2*e*n*r*x*log(c*x**n) - 2*b**2*e*n*x*log(c*x**n)*log(f* x**r) - b**2*e*r*x*log(c*x**n)**2 + b**2*e*x*log(c*x**n)**2*log(f*x**r)
Time = 0.05 (sec) , antiderivative size = 213, normalized size of antiderivative = 1.45 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=-{\left (r x - x \log \left (f x^{r}\right )\right )} b^{2} e \log \left (c x^{n}\right )^{2} + b^{2} d x \log \left (c x^{n}\right )^{2} + 2 \, {\left ({\left (2 \, r - \log \left (f\right )\right )} x - x \log \left (x^{r}\right )\right )} a b e n - 2 \, a b d n x - a^{2} e r x - 2 \, {\left (r x - x \log \left (f x^{r}\right )\right )} a b e \log \left (c x^{n}\right ) + 2 \, a b d x \log \left (c x^{n}\right ) + a^{2} e x \log \left (f x^{r}\right ) + 2 \, {\left (n^{2} x - n x \log \left (c x^{n}\right )\right )} b^{2} d - 2 \, {\left ({\left ({\left (3 \, r - \log \left (f\right )\right )} x - x \log \left (x^{r}\right )\right )} n^{2} - {\left ({\left (2 \, r - \log \left (f\right )\right )} x - x \log \left (x^{r}\right )\right )} n \log \left (c x^{n}\right )\right )} b^{2} e + a^{2} d x \] Input:
integrate((a+b*log(c*x^n))^2*(d+e*log(f*x^r)),x, algorithm="maxima")
Output:
-(r*x - x*log(f*x^r))*b^2*e*log(c*x^n)^2 + b^2*d*x*log(c*x^n)^2 + 2*((2*r - log(f))*x - x*log(x^r))*a*b*e*n - 2*a*b*d*n*x - a^2*e*r*x - 2*(r*x - x*l og(f*x^r))*a*b*e*log(c*x^n) + 2*a*b*d*x*log(c*x^n) + a^2*e*x*log(f*x^r) + 2*(n^2*x - n*x*log(c*x^n))*b^2*d - 2*(((3*r - log(f))*x - x*log(x^r))*n^2 - ((2*r - log(f))*x - x*log(x^r))*n*log(c*x^n))*b^2*e + a^2*d*x
Leaf count of result is larger than twice the leaf count of optimal. 399 vs. \(2 (148) = 296\).
Time = 0.11 (sec) , antiderivative size = 399, normalized size of antiderivative = 2.71 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=b^{2} e n^{2} r x \log \left (x\right )^{3} - 3 \, b^{2} e n^{2} r x \log \left (x\right )^{2} + 2 \, b^{2} e n r x \log \left (c\right ) \log \left (x\right )^{2} + b^{2} e n^{2} x \log \left (f\right ) \log \left (x\right )^{2} + 6 \, b^{2} e n^{2} r x \log \left (x\right ) - 4 \, b^{2} e n r x \log \left (c\right ) \log \left (x\right ) + b^{2} e r x \log \left (c\right )^{2} \log \left (x\right ) - 2 \, b^{2} e n^{2} x \log \left (f\right ) \log \left (x\right ) + 2 \, b^{2} e n x \log \left (c\right ) \log \left (f\right ) \log \left (x\right ) + b^{2} d n^{2} x \log \left (x\right )^{2} + 2 \, a b e n r x \log \left (x\right )^{2} - 6 \, b^{2} e n^{2} r x + 4 \, b^{2} e n r x \log \left (c\right ) - b^{2} e r x \log \left (c\right )^{2} + 2 \, b^{2} e n^{2} x \log \left (f\right ) - 2 \, b^{2} e n x \log \left (c\right ) \log \left (f\right ) + b^{2} e x \log \left (c\right )^{2} \log \left (f\right ) - 2 \, b^{2} d n^{2} x \log \left (x\right ) - 4 \, a b e n r x \log \left (x\right ) + 2 \, b^{2} d n x \log \left (c\right ) \log \left (x\right ) + 2 \, a b e r x \log \left (c\right ) \log \left (x\right ) + 2 \, a b e n x \log \left (f\right ) \log \left (x\right ) + 2 \, b^{2} d n^{2} x + 4 \, a b e n r x - 2 \, b^{2} d n x \log \left (c\right ) - 2 \, a b e r x \log \left (c\right ) + b^{2} d x \log \left (c\right )^{2} - 2 \, a b e n x \log \left (f\right ) + 2 \, a b e x \log \left (c\right ) \log \left (f\right ) + 2 \, a b d n x \log \left (x\right ) + a^{2} e r x \log \left (x\right ) - 2 \, a b d n x - a^{2} e r x + 2 \, a b d x \log \left (c\right ) + a^{2} e x \log \left (f\right ) + a^{2} d x \] Input:
integrate((a+b*log(c*x^n))^2*(d+e*log(f*x^r)),x, algorithm="giac")
Output:
b^2*e*n^2*r*x*log(x)^3 - 3*b^2*e*n^2*r*x*log(x)^2 + 2*b^2*e*n*r*x*log(c)*l og(x)^2 + b^2*e*n^2*x*log(f)*log(x)^2 + 6*b^2*e*n^2*r*x*log(x) - 4*b^2*e*n *r*x*log(c)*log(x) + b^2*e*r*x*log(c)^2*log(x) - 2*b^2*e*n^2*x*log(f)*log( x) + 2*b^2*e*n*x*log(c)*log(f)*log(x) + b^2*d*n^2*x*log(x)^2 + 2*a*b*e*n*r *x*log(x)^2 - 6*b^2*e*n^2*r*x + 4*b^2*e*n*r*x*log(c) - b^2*e*r*x*log(c)^2 + 2*b^2*e*n^2*x*log(f) - 2*b^2*e*n*x*log(c)*log(f) + b^2*e*x*log(c)^2*log( f) - 2*b^2*d*n^2*x*log(x) - 4*a*b*e*n*r*x*log(x) + 2*b^2*d*n*x*log(c)*log( x) + 2*a*b*e*r*x*log(c)*log(x) + 2*a*b*e*n*x*log(f)*log(x) + 2*b^2*d*n^2*x + 4*a*b*e*n*r*x - 2*b^2*d*n*x*log(c) - 2*a*b*e*r*x*log(c) + b^2*d*x*log(c )^2 - 2*a*b*e*n*x*log(f) + 2*a*b*e*x*log(c)*log(f) + 2*a*b*d*n*x*log(x) + a^2*e*r*x*log(x) - 2*a*b*d*n*x - a^2*e*r*x + 2*a*b*d*x*log(c) + a^2*e*x*lo g(f) + a^2*d*x
Time = 25.66 (sec) , antiderivative size = 165, normalized size of antiderivative = 1.12 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=x\,\left (a^2\,d+2\,b^2\,d\,n^2-a^2\,e\,r-6\,b^2\,e\,n^2\,r-2\,a\,b\,d\,n+4\,a\,b\,e\,n\,r\right )+\ln \left (f\,x^r\right )\,\left (a^2\,e\,x-\ln \left (c\,x^n\right )\,\left (2\,b^2\,e\,n\,x-2\,a\,b\,e\,x\right )+2\,b^2\,e\,n^2\,x+b^2\,e\,x\,{\ln \left (c\,x^n\right )}^2-2\,a\,b\,e\,n\,x\right )+2\,b\,x\,\ln \left (c\,x^n\right )\,\left (a\,d-b\,d\,n-a\,e\,r+2\,b\,e\,n\,r\right )+b^2\,x\,{\ln \left (c\,x^n\right )}^2\,\left (d-e\,r\right ) \] Input:
int((d + e*log(f*x^r))*(a + b*log(c*x^n))^2,x)
Output:
x*(a^2*d + 2*b^2*d*n^2 - a^2*e*r - 6*b^2*e*n^2*r - 2*a*b*d*n + 4*a*b*e*n*r ) + log(f*x^r)*(a^2*e*x - log(c*x^n)*(2*b^2*e*n*x - 2*a*b*e*x) + 2*b^2*e*n ^2*x + b^2*e*x*log(c*x^n)^2 - 2*a*b*e*n*x) + 2*b*x*log(c*x^n)*(a*d - b*d*n - a*e*r + 2*b*e*n*r) + b^2*x*log(c*x^n)^2*(d - e*r)
Time = 0.16 (sec) , antiderivative size = 218, normalized size of antiderivative = 1.48 \[ \int \left (a+b \log \left (c x^n\right )\right )^2 \left (d+e \log \left (f x^r\right )\right ) \, dx=x \left (\mathrm {log}\left (x^{n} c \right )^{2} \mathrm {log}\left (x^{r} f \right ) b^{2} e +\mathrm {log}\left (x^{n} c \right )^{2} b^{2} d -\mathrm {log}\left (x^{n} c \right )^{2} b^{2} e r +2 \,\mathrm {log}\left (x^{n} c \right ) \mathrm {log}\left (x^{r} f \right ) a b e -2 \,\mathrm {log}\left (x^{n} c \right ) \mathrm {log}\left (x^{r} f \right ) b^{2} e n +2 \,\mathrm {log}\left (x^{n} c \right ) a b d -2 \,\mathrm {log}\left (x^{n} c \right ) a b e r -2 \,\mathrm {log}\left (x^{n} c \right ) b^{2} d n +4 \,\mathrm {log}\left (x^{n} c \right ) b^{2} e n r +\mathrm {log}\left (x^{r} f \right ) a^{2} e -2 \,\mathrm {log}\left (x^{r} f \right ) a b e n +2 \,\mathrm {log}\left (x^{r} f \right ) b^{2} e \,n^{2}+a^{2} d -a^{2} e r -2 a b d n +4 a b e n r +2 b^{2} d \,n^{2}-6 b^{2} e \,n^{2} r \right ) \] Input:
int((a+b*log(c*x^n))^2*(d+e*log(f*x^r)),x)
Output:
x*(log(x**n*c)**2*log(x**r*f)*b**2*e + log(x**n*c)**2*b**2*d - log(x**n*c) **2*b**2*e*r + 2*log(x**n*c)*log(x**r*f)*a*b*e - 2*log(x**n*c)*log(x**r*f) *b**2*e*n + 2*log(x**n*c)*a*b*d - 2*log(x**n*c)*a*b*e*r - 2*log(x**n*c)*b* *2*d*n + 4*log(x**n*c)*b**2*e*n*r + log(x**r*f)*a**2*e - 2*log(x**r*f)*a*b *e*n + 2*log(x**r*f)*b**2*e*n**2 + a**2*d - a**2*e*r - 2*a*b*d*n + 4*a*b*e *n*r + 2*b**2*d*n**2 - 6*b**2*e*n**2*r)