Integrand size = 12, antiderivative size = 1191 \[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx =\text {Too large to display} \] Output:
-1/4*b^2*x*ln(1+I*c*x^2)^2-1/4*b^2*x*ln(1-I*c*x^2)^2+(-1)^(3/4)*b^2*arctan ((-1)^(3/4)*c^(1/2)*x)^2/c^(1/2)+(-1)^(1/4)*b^2*polylog(2,1-2/(1+(-1)^(3/4 )*c^(1/2)*x))/c^(1/2)+(-1)^(1/4)*b^2*polylog(2,1-2/(1-(-1)^(3/4)*c^(1/2)*x ))/c^(1/2)+(-1)^(3/4)*b^2*polylog(2,1-2/(1+(-1)^(1/4)*c^(1/2)*x))/c^(1/2)+ (-1)^(3/4)*b^2*polylog(2,1-2/(1-(-1)^(1/4)*c^(1/2)*x))/c^(1/2)-(-1)^(1/4)* b^2*arctanh((-1)^(3/4)*c^(1/2)*x)^2/c^(1/2)-1/2*(-1)^(1/4)*b^2*polylog(2,1 +2^(1/2)*((-1)^(3/4)+c^(1/2)*x)/(1+(-1)^(3/4)*c^(1/2)*x))/c^(1/2)-1/2*(-1) ^(3/4)*b^2*polylog(2,1-2^(1/2)*((-1)^(1/4)+c^(1/2)*x)/(1+(-1)^(1/4)*c^(1/2 )*x))/c^(1/2)-1/2*(-1)^(3/4)*b^2*polylog(2,1+(-1+I)*(1+(-1)^(3/4)*c^(1/2)* x)/(1+(-1)^(1/4)*c^(1/2)*x))/c^(1/2)-1/2*(-1)^(1/4)*b^2*polylog(2,1-(1+I)* (1+(-1)^(1/4)*c^(1/2)*x)/(1+(-1)^(3/4)*c^(1/2)*x))/c^(1/2)-I*a*b*x*ln(1+I* c*x^2)+I*a*b*x*ln(1-I*c*x^2)+a^2*x+(-1)^(1/4)*b^2*arctan((-1)^(3/4)*c^(1/2 )*x)*ln(1-I*c*x^2)/c^(1/2)+(-1)^(1/4)*b^2*arctanh((-1)^(3/4)*c^(1/2)*x)*ln (-2^(1/2)*((-1)^(3/4)+c^(1/2)*x)/(1+(-1)^(3/4)*c^(1/2)*x))/c^(1/2)+(-1)^(1 /4)*b^2*arctanh((-1)^(3/4)*c^(1/2)*x)*ln((1+I)*(1+(-1)^(1/4)*c^(1/2)*x)/(1 +(-1)^(3/4)*c^(1/2)*x))/c^(1/2)+(-1)^(1/4)*b^2*arctan((-1)^(3/4)*c^(1/2)*x )*ln(2^(1/2)*((-1)^(1/4)+c^(1/2)*x)/(1+(-1)^(1/4)*c^(1/2)*x))/c^(1/2)+(-1) ^(1/4)*b^2*arctan((-1)^(3/4)*c^(1/2)*x)*ln((1-I)*(1+(-1)^(3/4)*c^(1/2)*x)/ (1+(-1)^(1/4)*c^(1/2)*x))/c^(1/2)+2*(-1)^(1/4)*b^2*arctan((-1)^(3/4)*c^(1/ 2)*x)*ln(2/(1-(-1)^(1/4)*c^(1/2)*x))/c^(1/2)+2*(-1)^(3/4)*a*b*arctanh((...
Both result and optimal contain complex but leaf count is larger than twice the leaf count of optimal. \(4723\) vs. \(2(1191)=2382\).
Time = 26.39 (sec) , antiderivative size = 4723, normalized size of antiderivative = 3.97 \[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx=\text {Result too large to show} \] Input:
Integrate[(a + b*ArcTan[c*x^2])^2,x]
Output:
a^2*x + (a*b*Sqrt[c*x^2]*(2*Sqrt[c*x^2]*ArcTan[c*x^2] - Sqrt[2]*(ArcTan[(- 1 + c*x^2)/(Sqrt[2]*Sqrt[c*x^2])] - ArcTanh[(Sqrt[2]*Sqrt[c*x^2])/(1 + c*x ^2)])))/(c*x) + (b^2*Sqrt[c*x^2]*(2*Sqrt[c*x^2]*ArcTan[c*x^2]^2 + Sqrt[2]* ArcTan[c*x^2]*(2*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTan[1 + Sqrt[2]*Sq rt[c*x^2]] - Log[1 + c*x^2 - Sqrt[2]*Sqrt[c*x^2]] + Log[1 + c*x^2 + Sqrt[2 ]*Sqrt[c*x^2]]) - Sqrt[2]*((ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + ArcTan[1 + S qrt[2]*Sqrt[c*x^2]])*Log[1 + c*x^2 - Sqrt[2]*Sqrt[c*x^2]] - (ArcTan[1 - Sq rt[2]*Sqrt[c*x^2]] + ArcTan[1 + Sqrt[2]*Sqrt[c*x^2]])*Log[1 + c*x^2 + Sqrt [2]*Sqrt[c*x^2]] + (Sqrt[c*x^2]*(1 + (1 - Sqrt[2]*Sqrt[c*x^2])^2)^(3/2)*(2 *(-5*ArcTan[2 + I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + 4*ArcTan[1 - Sqrt[2]* Sqrt[c*x^2]]^2 + ((1 + 2*I)*Sqrt[1 + I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]^2) /E^(I*ArcTan[2 + I]) + ((1 - 2*I)*Sqrt[1 - I]*ArcTan[1 - Sqrt[2]*Sqrt[c*x^ 2]]^2)/E^ArcTanh[1 + 2*I] - (5*I)*ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]*ArcTanh[ 1 + 2*I] + (5*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]])*Log[1 - E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]))] + 5*((-I)* ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + ArcTanh[1 + 2*I])*Log[1 - E^((2*I)*ArcTa n[1 - Sqrt[2]*Sqrt[c*x^2]] - 2*ArcTanh[1 + 2*I])] + (5*I)*ArcTan[2 + I]*Lo g[-Sin[ArcTan[2 + I] - ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]]] - 5*ArcTanh[1 + 2 *I]*Log[Sin[ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]] + I*ArcTanh[1 + 2*I]]]) + 5*Po lyLog[2, E^((2*I)*(-ArcTan[2 + I] + ArcTan[1 - Sqrt[2]*Sqrt[c*x^2]]))] ...
Time = 2.05 (sec) , antiderivative size = 1191, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.167, Rules used = {5347, 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 \arctan \left (c x^2\right )\right )^2 \, dx\) |
\(\Big \downarrow \) 5347 |
\(\displaystyle \int \left (a^2+i a b \log \left (1-i c x^2\right )-i a b \log \left (1+i c x^2\right )-\frac {1}{4} b^2 \log ^2\left (1-i c x^2\right )-\frac {1}{4} b^2 \log ^2\left (1+i c x^2\right )+\frac {1}{2} b^2 \log \left (1-i c x^2\right ) \log \left (1+i c x^2\right )\right )dx\) |
\(\Big \downarrow \) 2009 |
\(\displaystyle x a^2-\frac {2 (-1)^{3/4} b \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) a}{\sqrt {c}}+\frac {2 (-1)^{3/4} b \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) a}{\sqrt {c}}+i b x \log \left (1-i c x^2\right ) a-i b x \log \left (i c x^2+1\right ) a+\frac {(-1)^{3/4} b^2 \arctan \left ((-1)^{3/4} \sqrt {c} x\right )^2}{\sqrt {c}}-\frac {\sqrt [4]{-1} b^2 \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right )^2}{\sqrt {c}}-\frac {1}{4} b^2 x \log ^2\left (1-i c x^2\right )-\frac {1}{4} b^2 x \log ^2\left (i c x^2+1\right )+\frac {2 \sqrt [4]{-1} b^2 \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )}{\sqrt {c}}-\frac {2 \sqrt [4]{-1} b^2 \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{\sqrt [4]{-1} \sqrt {c} x+1}\right )}{\sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {\sqrt {2} \left (\sqrt {c} x+\sqrt [4]{-1}\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right )}{\sqrt {c}}+\frac {2 \sqrt [4]{-1} b^2 \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )}{\sqrt {c}}-\frac {2 \sqrt [4]{-1} b^2 \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {2}{(-1)^{3/4} \sqrt {c} x+1}\right )}{\sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (-\frac {\sqrt {2} \left (\sqrt {c} x+(-1)^{3/4}\right )}{(-1)^{3/4} \sqrt {c} x+1}\right )}{\sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {(1+i) \left (\sqrt [4]{-1} \sqrt {c} x+1\right )}{(-1)^{3/4} \sqrt {c} x+1}\right )}{\sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (\frac {(1-i) \left ((-1)^{3/4} \sqrt {c} x+1\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right )}{\sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right )}{\sqrt {c}}-\frac {\sqrt [4]{-1} b^2 \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (1-i c x^2\right )}{\sqrt {c}}-\frac {\sqrt [4]{-1} b^2 \arctan \left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (i c x^2+1\right )}{\sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \text {arctanh}\left ((-1)^{3/4} \sqrt {c} x\right ) \log \left (i c x^2+1\right )}{\sqrt {c}}+\frac {1}{2} b^2 x \log \left (1-i c x^2\right ) \log \left (i c x^2+1\right )+\frac {(-1)^{3/4} b^2 \operatorname {PolyLog}\left (2,1-\frac {2}{1-\sqrt [4]{-1} \sqrt {c} x}\right )}{\sqrt {c}}+\frac {(-1)^{3/4} b^2 \operatorname {PolyLog}\left (2,1-\frac {2}{\sqrt [4]{-1} \sqrt {c} x+1}\right )}{\sqrt {c}}-\frac {(-1)^{3/4} b^2 \operatorname {PolyLog}\left (2,1-\frac {\sqrt {2} \left (\sqrt {c} x+\sqrt [4]{-1}\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right )}{2 \sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \operatorname {PolyLog}\left (2,1-\frac {2}{1-(-1)^{3/4} \sqrt {c} x}\right )}{\sqrt {c}}+\frac {\sqrt [4]{-1} b^2 \operatorname {PolyLog}\left (2,1-\frac {2}{(-1)^{3/4} \sqrt {c} x+1}\right )}{\sqrt {c}}-\frac {\sqrt [4]{-1} b^2 \operatorname {PolyLog}\left (2,\frac {\sqrt {2} \left (\sqrt {c} x+(-1)^{3/4}\right )}{(-1)^{3/4} \sqrt {c} x+1}+1\right )}{2 \sqrt {c}}-\frac {\sqrt [4]{-1} b^2 \operatorname {PolyLog}\left (2,1-\frac {(1+i) \left (\sqrt [4]{-1} \sqrt {c} x+1\right )}{(-1)^{3/4} \sqrt {c} x+1}\right )}{2 \sqrt {c}}-\frac {(-1)^{3/4} b^2 \operatorname {PolyLog}\left (2,1-\frac {(1-i) \left ((-1)^{3/4} \sqrt {c} x+1\right )}{\sqrt [4]{-1} \sqrt {c} x+1}\right )}{2 \sqrt {c}}\) |
Input:
Int[(a + b*ArcTan[c*x^2])^2,x]
Output:
a^2*x - (2*(-1)^(3/4)*a*b*ArcTan[(-1)^(3/4)*Sqrt[c]*x])/Sqrt[c] + ((-1)^(3 /4)*b^2*ArcTan[(-1)^(3/4)*Sqrt[c]*x]^2)/Sqrt[c] + (2*(-1)^(3/4)*a*b*ArcTan h[(-1)^(3/4)*Sqrt[c]*x])/Sqrt[c] - ((-1)^(1/4)*b^2*ArcTanh[(-1)^(3/4)*Sqrt [c]*x]^2)/Sqrt[c] + (2*(-1)^(1/4)*b^2*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*Log[2/( 1 - (-1)^(1/4)*Sqrt[c]*x)])/Sqrt[c] - (2*(-1)^(1/4)*b^2*ArcTan[(-1)^(3/4)* Sqrt[c]*x]*Log[2/(1 + (-1)^(1/4)*Sqrt[c]*x)])/Sqrt[c] + ((-1)^(1/4)*b^2*Ar cTan[(-1)^(3/4)*Sqrt[c]*x]*Log[(Sqrt[2]*((-1)^(1/4) + Sqrt[c]*x))/(1 + (-1 )^(1/4)*Sqrt[c]*x)])/Sqrt[c] + (2*(-1)^(1/4)*b^2*ArcTanh[(-1)^(3/4)*Sqrt[c ]*x]*Log[2/(1 - (-1)^(3/4)*Sqrt[c]*x)])/Sqrt[c] - (2*(-1)^(1/4)*b^2*ArcTan h[(-1)^(3/4)*Sqrt[c]*x]*Log[2/(1 + (-1)^(3/4)*Sqrt[c]*x)])/Sqrt[c] + ((-1) ^(1/4)*b^2*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[-((Sqrt[2]*((-1)^(3/4) + Sqrt [c]*x))/(1 + (-1)^(3/4)*Sqrt[c]*x))])/Sqrt[c] + ((-1)^(1/4)*b^2*ArcTanh[(- 1)^(3/4)*Sqrt[c]*x]*Log[((1 + I)*(1 + (-1)^(1/4)*Sqrt[c]*x))/(1 + (-1)^(3/ 4)*Sqrt[c]*x)])/Sqrt[c] + ((-1)^(1/4)*b^2*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*Log [((1 - I)*(1 + (-1)^(3/4)*Sqrt[c]*x))/(1 + (-1)^(1/4)*Sqrt[c]*x)])/Sqrt[c] + I*a*b*x*Log[1 - I*c*x^2] + ((-1)^(1/4)*b^2*ArcTan[(-1)^(3/4)*Sqrt[c]*x] *Log[1 - I*c*x^2])/Sqrt[c] - ((-1)^(1/4)*b^2*ArcTanh[(-1)^(3/4)*Sqrt[c]*x] *Log[1 - I*c*x^2])/Sqrt[c] - (b^2*x*Log[1 - I*c*x^2]^2)/4 - I*a*b*x*Log[1 + I*c*x^2] - ((-1)^(1/4)*b^2*ArcTan[(-1)^(3/4)*Sqrt[c]*x]*Log[1 + I*c*x^2] )/Sqrt[c] + ((-1)^(1/4)*b^2*ArcTanh[(-1)^(3/4)*Sqrt[c]*x]*Log[1 + I*c*x...
Int[((a_.) + ArcTan[(c_.)*(x_)^(n_)]*(b_.))^(p_), x_Symbol] :> Int[ExpandIn tegrand[(a + (I*b*Log[1 - I*c*x^n])/2 - (I*b*Log[1 + I*c*x^n])/2)^p, x], x] /; FreeQ[{a, b, c}, x] && IGtQ[p, 1] && IGtQ[n, 0]
\[\int {\left (a +b \arctan \left (c \,x^{2}\right )\right )}^{2}d x\]
Input:
int((a+b*arctan(c*x^2))^2,x)
Output:
int((a+b*arctan(c*x^2))^2,x)
\[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx=\int { {\left (b \arctan \left (c x^{2}\right ) + a\right )}^{2} \,d x } \] Input:
integrate((a+b*arctan(c*x^2))^2,x, algorithm="fricas")
Output:
integral(b^2*arctan(c*x^2)^2 + 2*a*b*arctan(c*x^2) + a^2, x)
\[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx=\int \left (a + b \operatorname {atan}{\left (c x^{2} \right )}\right )^{2}\, dx \] Input:
integrate((a+b*atan(c*x**2))**2,x)
Output:
Integral((a + b*atan(c*x**2))**2, x)
\[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx=\int { {\left (b \arctan \left (c x^{2}\right ) + a\right )}^{2} \,d x } \] Input:
integrate((a+b*arctan(c*x^2))^2,x, algorithm="maxima")
Output:
-1/2*(c*(2*sqrt(2)*arctan(1/2*sqrt(2)*(2*c*x + sqrt(2)*sqrt(c))/sqrt(c))/c ^(3/2) + 2*sqrt(2)*arctan(1/2*sqrt(2)*(2*c*x - sqrt(2)*sqrt(c))/sqrt(c))/c ^(3/2) - sqrt(2)*log(c*x^2 + sqrt(2)*sqrt(c)*x + 1)/c^(3/2) + sqrt(2)*log( c*x^2 - sqrt(2)*sqrt(c)*x + 1)/c^(3/2)) - 4*x*arctan(c*x^2))*a*b + 1/16*(4 *x*arctan(c*x^2)^2 - x*log(c^2*x^4 + 1)^2 + 16*integrate(1/16*(8*c^2*x^4*l og(c^2*x^4 + 1) - 16*c*x^2*arctan(c*x^2) + 12*(c^2*x^4 + 1)*arctan(c*x^2)^ 2 + (c^2*x^4 + 1)*log(c^2*x^4 + 1)^2)/(c^2*x^4 + 1), x))*b^2 + a^2*x
\[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx=\int { {\left (b \arctan \left (c x^{2}\right ) + a\right )}^{2} \,d x } \] Input:
integrate((a+b*arctan(c*x^2))^2,x, algorithm="giac")
Output:
integrate((b*arctan(c*x^2) + a)^2, x)
Timed out. \[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx=\int {\left (a+b\,\mathrm {atan}\left (c\,x^2\right )\right )}^2 \,d x \] Input:
int((a + b*atan(c*x^2))^2,x)
Output:
int((a + b*atan(c*x^2))^2, x)
\[ \int \left (a+b \arctan \left (c x^2\right )\right )^2 \, dx=\frac {4 \sqrt {c}\, \sqrt {2}\, \mathit {atan} \left (\frac {\sqrt {c}\, \sqrt {2}-2 c x}{\sqrt {c}\, \sqrt {2}}\right ) a b +2 \sqrt {c}\, \sqrt {2}\, \mathit {atan} \left (c \,x^{2}\right ) a b +4 \mathit {atan} \left (c \,x^{2}\right ) a b c x -\sqrt {c}\, \sqrt {2}\, \mathrm {log}\left (-\sqrt {c}\, \sqrt {2}\, x +c \,x^{2}+1\right ) a b +\sqrt {c}\, \sqrt {2}\, \mathrm {log}\left (\sqrt {c}\, \sqrt {2}\, x +c \,x^{2}+1\right ) a b +2 \left (\int \mathit {atan} \left (c \,x^{2}\right )^{2}d x \right ) b^{2} c +2 a^{2} c x}{2 c} \] Input:
int((a+b*atan(c*x^2))^2,x)
Output:
(4*sqrt(c)*sqrt(2)*atan((sqrt(c)*sqrt(2) - 2*c*x)/(sqrt(c)*sqrt(2)))*a*b + 2*sqrt(c)*sqrt(2)*atan(c*x**2)*a*b + 4*atan(c*x**2)*a*b*c*x - sqrt(c)*sqr t(2)*log( - sqrt(c)*sqrt(2)*x + c*x**2 + 1)*a*b + sqrt(c)*sqrt(2)*log(sqrt (c)*sqrt(2)*x + c*x**2 + 1)*a*b + 2*int(atan(c*x**2)**2,x)*b**2*c + 2*a**2 *c*x)/(2*c)