tag:blogger.com,1999:blog-85097605767720915762017-06-20T06:01:37.961-07:00GSoC 2017: Make Specfuns Special AgainMichele Ginesihttp://www.blogger.com/profile/17899768419129792476noreply@blogger.comBlogger6125tag:blogger.com,1999:blog-8509760576772091576.post-70864628587510616652017-06-20T06:01:00.002-07:002017-06-20T06:01:37.971-07:00Timetable: modification<HTML><HEAD><TITLE>Timetable: modification</TITLE></HEAD> <H1>Timetable: modification</H1>According to my timetable (that you can find <a href="http://gsocspecfun.blogspot.it/2017/05/mathjax.html">here</a>), during this last week of June, I should've work on <a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=34405">the input validation of betainc</a>. Since a <a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=51157">new bug</a> related to this function has been found and, moreover, the actual implementation doesn't accept the "lower" or "upper" tail (as MATLAB do), me and my mentor decided to use this week to start studying how to rewrite betainc (main references will be [1] and [2]) and to use the last part fo the GSoC to actually implement it. In this way, my timetable remain almost identical (I will use July to work on Bessel functions) and I will be able to fix also this problem. <BR><BR>[1] Abramowitz, Stegun "Handbook of Mathematical Functions"<BR>[2] Cuyt, Brevik Petersen, Vendonk, Waadeland "Handbook of Continued Fractions for Special Functions"Michele Ginesihttp://www.blogger.com/profile/17899768419129792476noreply@blogger.com0tag:blogger.com,1999:blog-8509760576772091576.post-29500474263535409612017-06-16T09:38:00.002-07:002017-06-16T09:39:13.456-07:00gammaincinv<HTML><HEAD><script type="text/javascript" src="https://cdn.mathjax.org/mathjax/latest/MathJax.js">MathJax.Hub.Config({ extensions: ["tex2jax.js","TeX/AMSmath.js","TeX/AMSsymbols.js"], jax: ["input/TeX", "output/HTML-CSS"], tex2jax: { inlineMath: [ ['$','$'], ["\\(","\\)"] ], displayMath: [ ['$$','$$'], ["\\[","\\]"] ], }, "HTML-CSS": { availableFonts: ["TeX"] } }); </script> <TITLE>The gammaincinv function</TITLE></HEAD><H1>The <i> inverse of the incomplete gamma</i> function</H1><H2>Definition</H2>Given two real values $y\in[0,1]$ and $a>0$, gammaincinv(y,a,tail) gives the value $x$ such that \[P(x,a) = y,\quad\text{ or }\quad Q(x,a) = y\] depending on the value of tail ("lower" or "upper"). <H2>Computation</H2>The computation is carried out via standard Newton method, solving, for $x$ \[ y - P(x,a) = 0 \quad\text{ or }\quad y - Q(x,a) = 0. \] The Newton method uses as exit criterion a control on the residual and on the maximum number of iterations.<BR>For numerical stability, the initial guess and which gammainc function is inverted depends on the values of $y$ and $a$. We use the following property: \[\text{gammaincinv}(y,a,\text{`upper'})=\text{gammaincinv}(1-y,a,\text{`lower'})\] which follows immediately by the property \[P(x,a) + Q(x,a) = 1.\] We start computing the trivial values, i.e. $a=1,y=0$ and $y=1$. Then we rename the variables as follows (in order to obtain a more classical notation): if tail = "lower", then $p=y,q=1-y$; while if tail = "upper", $q=y,p=1-y$. We will invert with $p$ as $y$ in the cases in which we invert the lower incomplete gamma function, and with $q$ as $y$ in the cases in which we invert the upper one.<BR>Now, the initial guesses (and the relative version of the incomplete gamma function to invert) are the following: <OL><LI>$p<\dfrac{(0.2(1+a))^a}{\Gamma(1+a)}$. We define \[r = (p\,\Gamma(1+a))^{\frac{1}{a}}\] and the parameters \begin{align*} c_2 &= \dfrac{1}{a+1}\\ c_3 &= \dfrac{3a+5}{2(a+1)^2(a+2)}\\ c_4 &= \dfrac{8a^2+33a+31}{3(a+1)^3(a+2)(a+3)}\\ c_5 &= \dfrac{125a^4+1179a^3+3971a^2+5661a+2888}{24(1+a)^4(a+2)^2(a+3)(a+4)}\\ \end{align*} Then the initial guess is \[x_0 = r + c_2\,r^2+c_3\,r^3+c_4\,r^4+c_5\,r^5\] and we invert the lower incomplete gamma function. </LI> <LI>$q<\dfrac{e^{-a/2}}{\Gamma(a+1)}, a\in(0,10)$. The initial guess is \[x_0 = - \log (q) - \log(\Gamma(a))\] and we invert the upper incomplete gamma function. </LI> <LI>$a\in(0,1)$. The initial guess is \[x_0 = (p\Gamma(a+1))^{\frac{1}{a}}\] and we invert the lower incomplete gamma function. </LI> <LI>Other cases. The initial guess is \[x_0 = a\,t^3\] where \[t = 1-d-\sqrt{d}\,\text{norminv}(q),\quad d=\dfrac{1}{9a}\] (where norminv is the inverse of the normal distribution function) and we invert the upper incomplete gamma function. </LI></OL>The first three initial guesses can be found in the article "Efficient and accurate algorithms for the computation and inversion of the incomplete gamma function rations" by Gil, Segura ad Temme; while the last one can be found in the documentation of the function igami.c of the cephes library.<BR>You can find my work on my repository on bitbucket <a href="https://bitbucket.org/M_Ginesi/octave">here</a>, bookmark "gammainc". <H2>Comments</H2>Working on this function I found some problems in gammainc. To solve them, I just changed the flag for the condition 5 and added separate functions to treat Inf cases.Michele Ginesihttp://www.blogger.com/profile/17899768419129792476noreply@blogger.com0tag:blogger.com,1999:blog-8509760576772091576.post-51420117513781639742017-06-06T08:09:00.000-07:002017-06-06T08:09:56.394-07:00gammainc<HTML><HEAD><script type="text/javascript" src="https://cdn.mathjax.org/mathjax/latest/MathJax.js">MathJax.Hub.Config({ extensions: ["tex2jax.js","TeX/AMSmath.js","TeX/AMSsymbols.js"], jax: ["input/TeX", "output/HTML-CSS"], tex2jax: { inlineMath: [ ['$','$'], ["\\(","\\)"] ], displayMath: [ ['$$','$$'], ["\\[","\\]"] ], }, "HTML-CSS": { availableFonts: ["TeX"] } }); </script> <TITLE>The gammainc function</TITLE></HEAD><H1>The <i>incomplete gamma</i> function</H1><H2>Definition</H2>There are actually four types of incomplete gamma functions: <UL><LI><i>lower</i> (which is the default one) $$P(a,x) = \frac{1}{\Gamma(a)}\int_{0}^{x}e^{-t}t^{a-1}$$ </LI><LI><i>upper</i>$$Q(a,x) = \frac{1}{\Gamma(a)}\int_{x}^{+\infty}t^{a-1}e^{-t}dt$$ </LI><LI><i>scaled lower</i> and <i>scaled upper</i> which return the corresponding incomplete gamma function scaled by $$\Gamma(a+1)\frac{e^x}{x^a}$$ </LI></UL><H2>Computation</H2>To compute the incomplete gamma function, there is a total of seven strategies depending on the position of the arguments in the $x-a$ plane. <OL> <LI> $x=0,a=0$. In this case, the output is given as follows: <UL> <LI> for "lower" and "scaledlower" is $1$ </LI> <LI> for "upper" and "scaledupper" is $0$ </LI> </UL> </LI> <LI> $x=0,a\neq0$. In this case: <UL> <LI> for "lower" is $0$ </LI> <LI> for "upper" and "scalelower" is $1$ </LI> <LI> for "scaledupper" is $+\infty$ </LI> </UL> </LI> <LI> $x\neq0,a=0$. In this case: <UL> <LI> for "lower" is $1$ </LI> <LI> for "scalelower" is $e^x$ </LI> <LI> for "upper" and "scaledupper" is $0$ </LI> </UL> </LI> <LI> $x\neq0,a=1$. In this case: <UL> <LI> for "lower" is $1-e^x$ </LI> <LI> for "upper" is $e^{-x}$ </LI> <LI> for "scaledlower" is $\frac{e^x-1}{x}$ </LI> <LI> for "scaledupper" is $\frac{1}{x}$ </LI> </UL> </LI> <LI> $0< x\leq36,a\in\{2,3,4,\ldots,17,18\}$. In this case we used the following expansion (which holds true only for $n\in\mathbb{N}$): denote $\gamma(a,x):=\Gamma(a)P(a,x)$, then $$\gamma(n,x) = (n-1)!\left( 1-e^{-x}\sum_{k=0}^{n-1} \frac{x^k}{k!}\right).$$ </LI> <LI> $x+0.25< a $ or $x<0$, or $x$ not real or $|x|<1$ or $a<5$. Here we used the expansion $$\gamma(a,x) = e^{-x} x^a \sum_{k=0}^{+\infty} \frac{\Gamma(a)}{\Gamma(a+1+k)}x^k.$$ </LI> <LI> for all the remaining cases was used a continued fraction expansion. Call $\Gamma(a,x) = \Gamma(a) Q(a,x)$, the expansion is $$\Gamma(a,x) = e^{-x}x^a\left( \frac{1}{x+1-a-}\frac{1(1-a)}{x+3-a-}\frac{2(2-a)}{x+5-a-}\cdots \right).$$ This case is handled by an external .cc function. </LI></OL><H2>My contribution</H2>Actually I dind't participate from the start in the (re)making of this function: most of the work done on it is due to Nir and Marco (see <a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=47800">the discussion on the bug tracker</a>).<BR>My contribution was, before the GSoC, to adapt the codes in such a way to make the type of the output (and the tolerances inside the algorithms) coherent on the type of the input (single, int or double). Then I corrected few small bugs and made a patch helped by Carne during the OctConf in Geneve.<BR>During this first week of GSoC I fixed the input validation and added tests to this function, finding some problem in the implementation. Most of them depended on the fact that the continued fractions were used in cases in which they are not optimal. To solve these problems I changed the conditions to use the series expansion instead of the continued fractions.<BR>Now gammainc works properly also with complex argument (for the $x$ variable), while Matlab doesn't accept non-real input.<BR>You can find my work on my repository on bitbucket <a href="https://bitbucket.org/M_Ginesi/octave">here</a>, bookmark "gammainc". I will work on this same bookmark the next two weeks while I will work on gammaincinv.Michele Ginesihttp://www.blogger.com/profile/17899768419129792476noreply@blogger.com0tag:blogger.com,1999:blog-8509760576772091576.post-50424308088926240392017-05-30T02:53:00.000-07:002017-05-30T02:54:10.252-07:00Timetable<HTML><HEAD><script type="text/javascript" src="https://cdn.mathjax.org/mathjax/latest/MathJax.js">MathJax.Hub.Config({ extensions: ["tex2jax.js","TeX/AMSmath.js","TeX/AMSsymbols.js"], jax: ["input/TeX", "output/HTML-CSS"], tex2jax: { inlineMath: [ ['$','$'], ["\\(","\\)"] ], displayMath: [ ['$$','$$'], ["\\[","\\]"] ], }, "HTML-CSS": { availableFonts: ["TeX"] } }); </script> <TITLE>Timetable</TITLE></HEAD> <H1>Timetable</H1>During this first period I searched for the bugs related to special functions in the bug tracker. I found these four bugs that need to be fixed: <OL><LI><a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=47800">gammainc</a>: the upper version rounds down to zero if the output is small. For this bug there is a lot of work already done by Marco and Nir. I will just fix the last few things (like the input validation). </LI><LI><a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=48036#options">gammaincinv</a>: after finishing gammainc, I should start working on the inverse (which is missing in Octave). </LI><LI><a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=48036#options">betainc</a>: it is necessary to fix the input validation. </LI><LI><a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=48316#options">besselj</a>: it gives NaN if the input is too large. Actually, also other versions of the Bessel function have the same problem. </LI></OL>My idea of the timetable is the following <UL><LI><B>First part</B> (May 30 - June 26: 4 weeks): <UL><LI>1st week: finish to fix gammainc (input validation, documentation, add tests) </LI><LI>2nd and 3rd weeks: write gammaincinv (via Newton's method) </LI><LI>4th week: fix the input validation for betainc (and, if needed, add tests and fix the documentation) </LI></UL></LI><LI><B>Second part</B> (July 1 - July 24: 3 weeks): fix the Bessel functions. Some ideas comprehend to test other libraries in addition to the amos (which is the library currently in use) and try to implement new algorithms. Add tests and revise the documentation. <LI><B>Final part</B> (July 29 - August 21: 3 weeks): add tests to the other special functions to make sure they work properly, trying to fix the problems that, eventually, will be found and revise the documentation if needed. </UL>Michele Ginesihttp://www.blogger.com/profile/17899768419129792476noreply@blogger.com0tag:blogger.com,1999:blog-8509760576772091576.post-17018026465171341532017-05-13T06:16:00.000-07:002017-05-13T06:16:26.432-07:00expint<HTML><HEAD><script type="text/javascript" src="https://cdn.mathjax.org/mathjax/latest/MathJax.js">MathJax.Hub.Config({ extensions: ["tex2jax.js","TeX/AMSmath.js","TeX/AMSsymbols.js"], jax: ["input/TeX", "output/HTML-CSS"], tex2jax: { inlineMath: [ ['$','$'], ["\\(","\\)"] ], displayMath: [ ['$$','$$'], ["\\[","\\]"] ], }, "HTML-CSS": { availableFonts: ["TeX"] } }); </script> <TITLE>The expint function</TITLE></HEAD><H1>The <i>exponential integral</i></H1>This is the first function I worked on in Octave: you can find the discussion <a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=47738">here</a>. Even if it will not be part of my GSoC project, I think it would be interesting to show how the function has been rewritten. <H2>Definition and main properties</H2>The canonical definition for the exponential integral is $$E_i (z) = -\int_{-z}^{+\infty} \frac{e^{-t}}{t}dt$$ but, for Matlab compatibility, <i>expint</i> compute the function $$E_1(z) =\int_{z}^{+\infty}\frac{e^{-t}}{t}dt.$$ The two definitions are related, for positive real values $z$, by $$E_1(-z) = -E_i(z) - \mathbb{i}\pi.$$ More in general, the function $E_n$ is defined as $$E_n(z) = \int_1^{+\infty}\frac{e^{-zt}}{t^n}$$ and the following recurrence relation holds true: $$E_{n+1}(z) = \frac{1}{n}\left(e^{-z}-zE_n(z)\right).$$ Moreover $$E_n(\bar{z}) = \overline{E_n(z)}.$$ <H2>Computation</H2>To compute $E_1$, I implemented three different strategies: <UL><LI>Taylor series (Abramowitz, Stegun, "Handbook of Mathematical Functions", formula 5.1.11, p 229): $$E_1(z) = -\gamma -\log z -\sum_{n=1}^{\infty}\frac{(-1)^nz^n}{nn!}$$ where $\gamma\approx 0.57721$ is the <i>Euler's constant</i>. </LI><LI>Continued fractions (Abramowitz, Stegun, "Handbook of Mathematical Functions", formula 5.1.22, p 229): $$E_1(z) = e^{-z}\left(\frac{1}{z+}\frac{1}{1+}\frac{1}{z+}\frac{2}{1+}\frac{2}{z+}\cdots\right)$$ or, in a more explicit notation $$E_1(z)=e^{-z}\frac{1}{z+\frac{1}{1+\frac{1}{z+\frac{2}{1+\frac{2}{z+\ddots}}}}}$$ This formulation has been implemented using the modified Lentz algorithm ("Numerical recipes in Fortran 77" p.165). </LI><LI>Asymptotic series ("Selected Asymptotic Methods with Application to Magnetics and Antennas" formula A.10 p 161): $$E_1(z)\approx \frac{e^{-z}}{z}\sum_{n=0}^{N}\frac{(-1)^n n!}{z^n}.$$ A difficulty about this approximation is that the series is divergent, and that is the reason why the sum goes up to a certain $N$ "big" and not up to infinity. </LI></UL>Then I tested them in the square $[-100,100]\times[-100,100]$ of the complex plane, comparing the result with the ones given by the Octave symbolic package. With these informations, I identified three zones of the complex plane: in each zone one strategy is better than the others.<BR>Then the final function divides the input into three parts, accordingly to the position of the same in the complex plane, and compute the function using the opportune strategy.Michele Ginesihttp://www.blogger.com/profile/17899768419129792476noreply@blogger.com0tag:blogger.com,1999:blog-8509760576772091576.post-31436226872139628192017-05-09T08:35:00.000-07:002017-05-10T04:24:26.495-07:00Introduction<HTML><HEAD><script type="text/javascript" src="https://cdn.mathjax.org/mathjax/latest/MathJax.js">MathJax.Hub.Config({ extensions: ["tex2jax.js","TeX/AMSmath.js","TeX/AMSsymbols.js"], jax: ["input/TeX", "output/HTML-CSS"], tex2jax: { inlineMath: [ ['$','$'], ["\\(","\\)"] ], displayMath: [ ['$$','$$'], ["\\[","\\]"] ], }, "HTML-CSS": { availableFonts: ["TeX"] } }); </script> <TITLE>Introduction to the project</TITLE></HEAD> <H1>Introduction</H1><H2>About me</H2>My name is Michele Ginesi, I obtained a Bachelor's degree in Applied Mathematics in Verona, Italy. Now I am getting a Master degree in Mathematics in the same university.<BR>I was selected to partecipate to the Google Summer of Code under GNU Octave for the project <i>Make specfuns special again</i>. <H2>About the project</H2>Special functions are an interesting and important topic in Mathematics, and so it is fundamental to have a way to compute them in an accurate way. <BR>Some examples of special functions (whith some important application of the same) are: <UL><LI><i>Gamma</i> function $\Gamma$. This is one of the most important: it can be viewed as the extension of the factorial function ($\Gamma(n)=(n-1)!$, for $n\in\mathbb{N}$) and it is a component in various distribution functions in probability theory. </LI><LI><i>Beta </i>function $B$. This was the first known Scattering amplitude in String theory. </LI><LI><i>Bessel</i> functions. These are the canonical solutions $u(r)$ of the Bessel's differential equation $$r^2\frac{d^2u}{dr^2}+r\frac{du}{dr}+(r^2-\alpha^2)u=0 $$ for any complex number $\alpha$. At a first approach may seems that they are an end in themselves, but actually the Bessel equation describes the radial component of the two dimensional wave equation ($u_{tt}-c^2\Delta u = 0$) applied on a disc. </LI></UL>The most common strategies used to approximate special functions are <i>Taylor series</i> and <i>continued fractions</i>, sometimes <i>asymptotic series</i>. Some particular functions can be implemented via recurrence formula or other type relations with other functions (for example, $B(z,w) = \Gamma(z)\Gamma(w)/\Gamma(z+w)$). <BR>This project will be divided into three main parts: <OL><LI>Fix the already known bugs related to special functions (e.g. <a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=48316#options">#48316</a>, <a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=47800#options">#47800</a>, <a href="https://savannah.gnu.org/bugs/?func=detailitem&item_id=48036#options">#48036</a>). </LI> <LI>When the known bugs will be fixed, I will proceed to add new tests to make sure that all the functions are accurate. </LI> <LI>Fix the new problems/bugs that, eventually, will be found during the second phase. </LI></OL>The main reference for this work will be <i>Handbook of Mathematical Functions</i> by Irene Stegun and Milton Abramowitz which contains all the functions I will work on completed with (almost) all the expansions that are needed to implement them; and <i>Handbook of Continued Fractions for Special Functions</i> by Annie Cuyt, Vigdis Brevik Petersen, Brigitte Verdonk, Haakon Waadeland and William B. Jones.<BR>To test the functions I will use, in addition to the Handbook of Mathematical Functions, <a href="http://www.sagemath.org/">Sage<a> and the <a href="https://octave.sourceforge.io/symbolic/">Octave symbolic package<a> to get a reference value.<BR><a href="https://bitbucket.org/M_Ginesi/octave">Here</a> you can find my repository on which I will work.Michele Ginesihttp://www.blogger.com/profile/17899768419129792476noreply@blogger.com0