1

Is there a simple way to compute the following integral

$$ I(a)\equiv \int_0 ^{+\infty}\left[\frac{2 a^{3/2} \left(x^2+1\right)^{3/2}}{\sqrt{a \left(x^2+2\right)+1}}-a \left(2 x^2+1\right)+1\right]\mathrm{d}x $$ with $a>0$.

Using Mathematica, I managed to compute $I(a)$ in terms of complete elliptic integrals of the first and second type, but the final expression is somehow unwieldy.

user12588
  • 399

3 Answers3

3

I do not know in which context you faced this function (for mutual conveniency, I reuse the formula as @Mycroft wrote it). $$A(a) = \frac{2 a(a-1) K\left(\frac{a+1}{2 a+1}\right)+4(2 a+1) E\left(\frac{a+1}{2 a+1}\right)}{3 \sqrt{a (2 a+1)}}$$ We faced a very similar one years ago in thermodynamics for $a>1$ and, for obvious computing reasons, we develop it as a series $$A(a)=\sum_{n=0}^p \frac{\alpha_n}{\beta_n} a^{1-n}$$ The table below reproduces the values for the first $n$'s $$\left( \begin{array}{ccc} n & \alpha_n & \beta_n \\ 0 & \sqrt{2} \left(24 \pi ^2+\Gamma \left(\frac{1}{4}\right)^4\right) & 16 \sqrt{\pi } \Gamma \left(\frac{1}{4}\right)^2 \\ 1 & \sqrt{2} \Gamma \left(\frac{1}{4}\right) \Gamma \left(\frac{5}{4}\right)^2+\pi \Gamma \left(\frac{7}{4}\right) & 2 \sqrt{\pi } \Gamma \left(\frac{1}{4}\right) \\ 2 & -\sqrt{2} \left(3 \pi ^2+40 \Gamma \left(\frac{1}{4}\right) \Gamma \left(\frac{5}{4}\right)^3\right) & 96 \sqrt{\pi } \Gamma \left(\frac{1}{4}\right)^2 \\ 3 & 5 \sqrt{2} \Gamma \left(\frac{1}{4}\right) \Gamma \left(\frac{5}{4}\right) & 512 \sqrt{\pi } \\ 4 & 3 \sqrt{2} \left(14 \pi ^2-15 \Gamma \left(\frac{1}{4}\right)^3 \Gamma \left(\frac{5}{4}\right)\right) & 10240 \sqrt{\pi } \Gamma \left(\frac{1}{4}\right)^2 \\ 5 & \sqrt{2} \left(-77 \pi ^2+45 \Gamma \left(\frac{1}{4}\right)^3 \Gamma \left(\frac{5}{4}\right)\right) & 20480 \sqrt{\pi } \Gamma \left(\frac{1}{4}\right)^2 \\ 6 & 3 \sqrt{2} \left(154 \pi ^2-65 \Gamma \left(\frac{1}{4}\right)^3 \Gamma \left(\frac{5}{4}\right)\right) & 163840 \sqrt{\pi } \Gamma \left(\frac{1}{4}\right)^2 \end{array} \right)$$

A few results for $a=10^k$

$$\left( \begin{array}{ccc} k & \text{approximation} & \text{exact} \\ 0 & 2.91216151929910 & 2.91258419032827 \\ 1 & 10.3487069573255 & 10.3487069573835 \\ 2 & 88.9615534510584 & 88.9615534510584 \\ 3 & 875.573856650175 & 875.573856650175 \\ 4 & 8741.74602244500 & 8741.74602244500 \\ 5 & 87403.4726014927 & 87403.4726014927 \\ 6 & 874020.738884157 & 874020.738884157 \\ 7 & 8740193.40176002 & 8740193.40176002 \end{array} \right)$$

2

I prefer to add a second answer to this question.

Thanks to the containment, I had time to discuss this problem with one of my former students (now, an almost retiring professor) and we arrived to the conclusion that it could probably better (for numerical applications) to define $t=\frac{a+1}{2 a+1}$ ($t$ varying from $\color{red}{\frac 12}$ to $\color{red}{1}$) and to rewrite the function as $$f(t)=\color{blue}{\frac{4 }{3 \sqrt{1-t}}}\color{red}{E(t)}\color{blue}{-\frac{2 (3 t-2)}{3 (2 t-1)\sqrt{1-t} }}\color{red}{(1-t) K(t) }$$ where the "red" parts are simple and smooth functions covering a very limited range.

$$ 1 \leq E(t) \leq \frac{\pi ^2+2 \Gamma \left(\frac{1}{4}\right)^2 \Gamma \left(\frac{5}{4}\right)^2}{\sqrt{\pi } \Gamma \left(\frac{1}{4}\right)^2}\approx 1.35064$$ $$0 \leq (1-t)K(t) \leq \sqrt{\frac{\pi }{2}}\frac{ \Gamma \left(\frac{5}{4}\right)}{\Gamma \left(\frac{3}{4}\right)}\approx 0.92704$$

The "red" functions could be very well computed using spline functions or even curve fit if some convenient functional form could be proposed.

Meanwhile, could be used series expansion such as $$E(t)=1+\frac{1}{4} (t-1) \left(\log \left(\frac{1-t}{16}\right)+1\right)+$$ $$\frac{1}{64} (t-1)^2 (-6 \log (1-t)-13+24 \log (2))+$$ $$\frac{3}{256} (t-1)^3 (5 \log (1-t)+12-20 \log (2))+$$ $$\frac{5 (t-1)^4 (-420 \log (1-t)-1051+1680 \log (2))}{49152}+O\left((t-1)^5\right)$$ and $$(1-t)K(t)=(t-1) \log \left(\frac{\sqrt{1-t}}{4}\right)+\frac{1}{8} (t-1)^2 \left(\log \left(\frac{16}{1-t}\right)-2\right)+$$ $$\frac{3}{128} (t-1)^3 (3 \log (1-t)+7-12 \log (2))+\frac{5 (t-1)^4 (-15 \log (1-t)-37+60 \log (2))}{1536}+O\left((t-1)^5\right)$$

1

This is a rather good challenge for numerical analysis. The good thing is that the parameter $a$ belongs in $\mathbb{R}^+$.

Well, a "not so basic" knowledge of Special Bessel Functions can help in getting the result. However we live in the world of programming hence why don't ask to technology for a help? As you already have gotten, W. Mathematical can compute that integral rather quickly, giving:

$$\boxed{\frac{2 (a-1) a K\left(\frac{a+1}{2 a+1}\right)+(8 a+4) E\left(\frac{a+1}{2 a+1}\right)}{3 \sqrt{a (2 a+1)}}}$$

Where $K$ and $E$ are the Elliptic integrals of, respectively, the first kind and second kind.

Knowing this result shall be "enough" for you, in order to understand the behaviour of this function. We can invoke series expansions and asymptotic analysis for a rather good study of the behaviour of this function, say we call it

$$A(a) = \frac{2 (a-1) a K\left(\frac{a+1}{2 a+1}\right)+(8 a+4) E\left(\frac{a+1}{2 a+1}\right)}{3 \sqrt{a (2 a+1)}}$$

First of all we observe that plotting the function already gives us a really good amount of information. I am going to show you two plots, one for $0 < a < 10$ and the other one for $0 < a < 2$:

enter image description here

enter image description here

Numerically, but also analytically, we deduce that

$$\lim_{a\to 0^+} A(a) = +\infty$$ $$\lim_{a\to +\infty}A(a) = +\infty$$

Yet we recognise the existence of a minimum for the function at a certain point $a^*$

$$0.3 < a^* < 0.7$$

The computation of that minimum is not really easy, but we can manage it via Mathematica: proceeding with the usual method for minimising a function, id est $A'(a) = 0$, this gives us

$$a^* \approx 0.671254$$

As we expected from the plot. (We did not expect THAT value, but it lies within the range we estimated).

In this way, the minimum reads

$$\text{min}A(a) \to A(a = a^*) \approx 2.82678$$

Which fits.

So I guess that the problem here is just to track down a behavioural analysis of the function, and for those situations plots help as well as a bit knowledge of programming tools (or W. Mathematica too).

For the Elliptic integrals are not easy to treat, it's not always a good idea to sink down in series expansions, or asymptotic expansion, although literature is "quite" full of Elliptic integral series expansions for small arguments, or asymptotic expansions for big arguments.

Here, yet, we have a constraint on $a$: $a > 0$. We clearly never deal with infinites, especially in physical applications (I wonder whether this integral came from a physical calculation, maybe in quantum cosmology?) but now you are aware of the fact that your integral exists as long as $a > 0$. Consider also that the function grows in a not really fast way. To say:

$$A(0.2) \to 3.5288$$ $$A(1) \to 2.9125$$ $$A(2) \to 3.5593$$ $$A(5) \to 6.0314$$ $$A(13) \to 12.9584$$ $$A(31) \to 28.6664$$ $$\ldots$$ $$A(101) \to 89.8355$$ $$A(1001) \to 876.448$$ $$A(10001) \to 8742. 62$$ $$\ldots$$ $$A(1000001) \to 874022$$

If we take a curious look at this we can observe a very interesting fact:

$$\text{as} ~~~ n ~~~ \text{goes to infinity},~~~ \dfrac{n}{A(n)} \approx 1.14$$

Pushed by the curiosity of this I computed the exact limit, finding:

$$\lim_{n\to +\infty} \dfrac{n}{A(n)} = \frac{6 \Gamma \left(\frac{3}{4}\right)}{\sqrt{\pi } \Gamma \left(\frac{1}{4}\right)} \approx 1.4414$$

Perhaps, due to the fact that it's more or less constant the ratio between $A(n)$ and $n$ for every real $n$ (or $a$, to turn back to our initial parameter), we are in good hands to find a sort of exponential asymptotic approximation for the function, like

$$A(a) \sim b^{g(a)} ~~~~~ a > 1$$

For some basis $1 < b < 2$.

Which works better and better the bigger is $a$.

I believe we could work a lot on this interesting integral. I do not know if I answered you in a proper way, maybe I just wrote down a lot of useless numerical information. I only hope that all of this, somehow, helps you!

Enrico M.
  • 26,114
  • 1
    This was extremely useful, thank you! Mathematica did not give me such a compact expression, most likely because I did not put all the correct assumptions on the parameters. – user12588 Mar 28 '20 at 00:11
  • May I ask what version of Mathematica have you used, and what was the command you input to generate the expression inside the box? – user12588 Mar 28 '20 at 00:48
  • @user12588 Sure! My version is Mathematica 12.0 (Max OS system). I just wrote the usual command for the integration (Integrate[...]) where the dots stand for the whole expression of your integrand function. Then, after having gotten the result, I used a FullSimplyfy[... , a>0] where the dots stand for the result of the integration. It actually was not much different from the boxed result, just being $a>0$ helped in writing the things a bit better! – Enrico M. Mar 28 '20 at 13:48
  • Interesting, I think I found a bug in Mathematica 12.0. If you do

    Integrate[(2 a^(3/2) (1 + x^2)^(3/2))/Sqrt[a (x^2 + 2) + 1] - a (2 x^2 + 1) + 1, {x, 0, +[Infinity]}]

    you get what you said, after assuming a>0. However, if you do

    Integrate[(2 a^(3/2) (1 + x^2)^(3/2))/Sqrt[a (x^2 + 2) + 1] - a (2 x^2 + 1) + 1, {x, 0, [Infinity]}, Assumptions -> a > 0]

    You get some large nonsense!

    – user12588 Mar 31 '20 at 12:55