# NAG CL Interfaced01uac (dim1_​gauss_​vec)

Settings help

CL Name Style:

## 1Purpose

d01uac computes an estimate of the definite integral of a function of known analytical form, using a Gaussian quadrature formula with a specified number of abscissae. Formulae are provided for a finite interval (Gauss–Legendre), a semi-infinite interval (Gauss–Laguerre, rational Gauss), and an infinite interval (Gauss–Hermite).

## 2Specification

 #include
void  d01uac (Nag_QuadType quad_type, double a, double b, Integer n,
 void (*f)(const double x[], Integer nx, double fv[], Integer *iflag, Nag_Comm *comm),
double *dinest, Nag_Comm *comm, NagError *fail)
The function may be called by the names: d01uac, nag_quad_dim1_gauss_vec or nag_quad_1d_gauss_vec.

## 3Description

### 3.1General

d01uac evaluates an estimate of the definite integral of a function $f\left(x\right)$, over a finite or infinite range, by $n$-point Gaussian quadrature (see Davis and Rabinowitz (1975), Fröberg (1970), Ralston (1965) or Stroud and Secrest (1966)). The integral is approximated by a summation of the product of a set of weights and a set of function evaluations at a corresponding set of abscissae ${x}_{i}$. For adjusted weights, the function values correspond to the values of the integrand $f$, and hence the sum will be
 $∑i=1nwif(xi)$
where the ${w}_{i}$ are called the weights, and the ${x}_{i}$ the abscissae. A selection of values of $n$ is available. (See Section 5.)
Where applicable, normal weights may instead be used, in which case the corresponding weight function $\omega$ is factored out of the integrand as $f\left(x\right)=\omega \left(x\right)g\left(x\right)$ and hence the sum will be
 $∑ i=-1 n w¯i g(x) ,$
where the normal weights ${\overline{w}}_{i}={w}_{i}\omega \left({x}_{i}\right)$ are computed internally.
d01uac uses a vectorized f to evaluate the integrand or normalized integrand at a set of abscissae, ${x}_{\mathit{i}}$, for $\mathit{i}=1,2,\dots ,{n}_{x}$. If adjusted weights are used, the integrand $f\left({x}_{i}\right)$ must be evaluated otherwise the normalized integrand $g\left({x}_{i}\right)$ must be evaluated.

### 3.2Both Limits Finite

 $∫abf(x)dx.$
The Gauss–Legendre weights and abscissae are used, and the formula is exact for any function of the form:
 $f(x)=∑i= 0 2n- 1 ci xi.$
The formula is appropriate for functions which can be well approximated by such a polynomial over $\left[a,b\right]$. It is inappropriate for functions with algebraic singularities at one or both ends of the interval, such as ${\left(1+x\right)}^{-1/2}$ on $\left[-1,1\right]$.

### 3.3One Limit Infinite

 $∫a∞f(x)dx or ∫-∞af(x)dx.$
Two quadrature formulae are available for these integrals.
1. (a)The Gauss–Laguerre formula is exact for any function of the form:
 $f(x)=e-bx ∑i= 0 2n- 1 ci xi.$
This formula is appropriate for functions decaying exponentially at infinity; the argument $b$ should be chosen if possible to match the decay rate of the function.
If the adjusted weights are selected, the complete integrand $f\left(x\right)$ should be provided through f.
If the normal form is selected, the contribution of ${e}^{-bx}$ is accounted for internally, and f should only return $g\left(x\right)$, where $f\left(x\right)={e}^{-bx}g\left(x\right)$.
If $b<0$ is supplied, the interval of integration will be $\left[a,\infty \right)$. Otherwise if $b>0$ is supplied, the interval of integration will be $\left(-\infty ,a\right]$.
2. (b)The rational Gauss formula is exact for any function of the form:
 $f(x)=∑i=2 2n+1ci(x+b)i=∑i=0 2n-1c2n+1-i(x+b)i(x+b)2n+1.$
This formula is likely to be more accurate for functions having only an inverse power rate of decay for large $x$. Here the choice of a suitable value of $b$ may be more difficult; unfortunately a poor choice of $b$ can make a large difference to the accuracy of the computed integral.
Only the adjusted form of the rational Gauss formula is available, and as such, the complete integrand $f\left(x\right)$ must be supplied in f.
If $a+b<0$, the interval of integration will be $\left[a,\infty \right)$. Otherwise if $a+b>0$, the interval of integration will be $\left(-\infty ,a\right]$.

### 3.4Both Limits Infinite

 $∫-∞ +∞f(x)dx.$
The Gauss–Hermite weights and abscissae are used, and the formula is exact for any function of the form:
 $f(x) = e - b (x-a) 2 ∑ i=0 2n- 1 ci xi ,$
where $b>0$. Again, for general functions not of this exact form, the argument $b$ should be chosen to match if possible the decay rate at $\text{}±\infty$.
If the adjusted weights are selected, the complete integrand $f\left(x\right)$ should be provided through f.
If the normal form is selected, the contribution of ${e}^{-b{\left(x-a\right)}^{2}}$ is accounted for internally, and f should only return $g\left(x\right)$, where $f\left(x\right)={e}^{-b{\left(x-a\right)}^{2}}g\left(x\right)$.

## 4References

Davis P J and Rabinowitz P (1975) Methods of Numerical Integration Academic Press
Fröberg C E (1970) Introduction to Numerical Analysis Addison–Wesley
Ralston A (1965) A First Course in Numerical Analysis pp. 87–90 McGraw–Hill
Stroud A H and Secrest D (1966) Gaussian Quadrature Formulas Prentice–Hall

## 5Arguments

1: $\mathbf{quad_type}$Nag_QuadType Input
On entry: indicates the quadrature formula.
${\mathbf{quad_type}}=\mathrm{Nag_Quad_Gauss_Legendre}$
Gauss–Legendre quadrature on a finite interval, using normal weights.
${\mathbf{quad_type}}=\mathrm{Nag_Quad_Gauss_Laguerre}$
Gauss–Laguerre quadrature on a semi-infinite interval, using normal weights.
${\mathbf{quad_type}}=\mathrm{Nag_Quad_Gauss_Laguerre_Adjusted}$
Gauss–Laguerre quadrature on a semi-infinite interval, using adjusted weights.
${\mathbf{quad_type}}=\mathrm{Nag_Quad_Gauss_Hermite}$
Gauss–Hermite quadrature on an infinite interval, using normal weights.
${\mathbf{quad_type}}=\mathrm{Nag_Quad_Gauss_Hermite_Adjusted}$
Gauss–Hermite quadrature on an infinite interval, using adjusted weights.
${\mathbf{quad_type}}=\mathrm{Nag_Quad_Gauss_Rational_Adjusted}$
Rational Gauss quadrature on a semi-infinite interval, using adjusted weights.
Constraint: ${\mathbf{quad_type}}=\mathrm{Nag_Quad_Gauss_Legendre}$, $\mathrm{Nag_Quad_Gauss_Laguerre}$, $\mathrm{Nag_Quad_Gauss_Laguerre_Adjusted}$, $\mathrm{Nag_Quad_Gauss_Hermite}$, $\mathrm{Nag_Quad_Gauss_Hermite_Adjusted}$ or $\mathrm{Nag_Quad_Gauss_Rational_Adjusted}$.
2: $\mathbf{a}$double Input
3: $\mathbf{b}$double Input
On entry: the quantities $a$ and $b$ as described in the appropriate subsection of Section 3.
Constraints:
• Rational Gauss: ${\mathbf{a}}+{\mathbf{b}}\ne 0.0$;
• Gauss–Laguerre: ${\mathbf{b}}\ne 0.0$;
• Gauss–Hermite: ${\mathbf{b}}>0$.
4: $\mathbf{n}$Integer Input
On entry: $n$, the number of abscissae to be used.
Constraint: ${\mathbf{n}}=1$, $2$, $3$, $4$, $5$, $6$, $8$, $10$, $12$, $14$, $16$, $20$, $24$, $32$, $48$ or $64$.
If the soft fail option is used, the answer is evaluated for the largest valid value of n less than the requested value.
5: $\mathbf{f}$function, supplied by the user External Function
f must return the value of the integrand $f$, or the normalized integrand $g$, at a set of points.
The specification of f is:
 void f (const double x[], Integer nx, double fv[], Integer *iflag, Nag_Comm *comm)
1: $\mathbf{x}\left[\mathit{dim}\right]$const double Input
On entry: the abscissae, ${x}_{i}$, for $\mathit{i}=1,2,\dots ,{n}_{x}$ at which function values are required.
2: $\mathbf{nx}$Integer Input
On entry: ${n}_{x}$, the number of abscissae.
3: $\mathbf{fv}\left[\mathit{dim}\right]$double Output
On exit: if adjusted weights are used, the values of the integrand $f$. ${\mathbf{fv}}\left[\mathit{i}-1\right]=f\left({x}_{\mathit{i}}\right)$, for $\mathit{i}=1,2,\dots ,{n}_{x}$.
Otherwise the values of the normalized integrand $g$. ${\mathbf{fv}}\left[\mathit{i}-1\right]=g\left({x}_{\mathit{i}}\right)$, for $\mathit{i}=1,2,\dots ,{n}_{x}$.
4: $\mathbf{iflag}$Integer * Input/Output
On entry: ${\mathbf{iflag}}=0$.
On exit: set ${\mathbf{iflag}}<0$ if you wish to force an immediate exit from d01uac with ${\mathbf{fail}}\mathbf{.}\mathbf{code}=$ NE_USER_STOP.
5: $\mathbf{comm}$Nag_Comm *
Pointer to structure of type Nag_Comm; the following members are relevant to f.
userdouble *
iuserInteger *
pPointer
The type Pointer will be void *. Before calling d01uac you may allocate memory and initialize these pointers with various quantities for use by f when called from d01uac (see Section 3.1.1 in the Introduction to the NAG Library CL Interface).
Note: f should not return floating-point NaN (Not a Number) or infinity values, since these are not handled by d01uac. If your code inadvertently does return any NaNs or infinities, d01uac is likely to produce unexpected results.
Some points to bear in mind when coding f are mentioned in Section 7.
6: $\mathbf{dinest}$double * Output
On exit: the estimate of the definite integral.
7: $\mathbf{comm}$Nag_Comm *
The NAG communication argument (see Section 3.1.1 in the Introduction to the NAG Library CL Interface).
8: $\mathbf{fail}$NagError * Input/Output
The NAG error argument (see Section 7 in the Introduction to the NAG Library CL Interface).

## 6Error Indicators and Warnings

NE_ALLOC_FAIL
Dynamic memory allocation failed.
See Section 3.1.2 in the Introduction to the NAG Library CL Interface for further information.
The value of a and/or b is invalid for the chosen quad_type. Either:
• On entry, argument $⟨\mathit{\text{value}}⟩$ had an illegal value.
• The value of a and/or b is invalid.
On entry, ${\mathbf{quad_type}}=⟨\mathit{\text{value}}⟩$.
On entry, ${\mathbf{a}}=⟨\mathit{\text{value}}⟩$ and ${\mathbf{b}}=⟨\mathit{\text{value}}⟩$.
Constraint: $|{\mathbf{a}}+{\mathbf{b}}|>0.0$.
• The value of a and/or b is invalid.
On entry, ${\mathbf{quad_type}}=⟨\mathit{\text{value}}⟩$.
On entry, ${\mathbf{a}}=⟨\mathit{\text{value}}⟩$ and ${\mathbf{b}}=⟨\mathit{\text{value}}⟩$.
Constraint: $|{\mathbf{b}}|>0.0$.
• The value of a and/or b is invalid.
On entry, ${\mathbf{quad_type}}=⟨\mathit{\text{value}}⟩$.
On entry, ${\mathbf{a}}=⟨\mathit{\text{value}}⟩$ and ${\mathbf{b}}=⟨\mathit{\text{value}}⟩$.
Constraint: ${\mathbf{b}}>0.0$.
NE_INT
On entry, ${\mathbf{n}}=⟨\mathit{\text{value}}⟩$.
Constraint: ${\mathbf{n}}>0$.
NE_INTERNAL_ERROR
An internal error has occurred in this function. Check the function call and any array sizes. If the call is correct then please contact NAG for assistance.
See Section 7.5 in the Introduction to the NAG Library CL Interface for further information.
NE_NO_LICENCE
Your licence key may have expired or may not have been installed correctly.
See Section 8 in the Introduction to the NAG Library CL Interface for further information.
The $n$-point rule is not among those stored.
On entry: ${\mathbf{n}}=⟨\mathit{\text{value}}⟩$.
$n$-point rule used: ${\mathbf{n}}=⟨\mathit{\text{value}}⟩$.
NE_TOO_SMALL
Underflow occurred in calculation of normal weights.
Reduce n or use adjusted weights: ${\mathbf{n}}=⟨\mathit{\text{value}}⟩$.
NE_USER_STOP
Exit requested from f with ${\mathbf{iflag}}=⟨\mathit{\text{value}}⟩$.
NE_WEIGHT_ZERO
No nonzero weights were generated for the provided parameters.

## 7Accuracy

The accuracy depends on the behaviour of the integrand, and on the number of abscissae used. No tests are carried out in d01uac to estimate the accuracy of the result. If such an estimate is required, the function may be called more than once, with a different number of abscissae each time, and the answers compared. It is to be expected that for sufficiently smooth functions a larger number of abscissae will give improved accuracy.
Alternatively, the range of integration may be subdivided, the integral estimated separately for each sub-interval, and the sum of these estimates compared with the estimate over the whole range.
The coding of f may also have a bearing on the accuracy. For example, if a high-order Gauss–Laguerre formula is used, and the integrand is of the form
 $f(x)=e-bxg(x)$
it is possible that the exponential term may underflow for some large abscissae. Depending on the machine, this may produce an error, or simply be assumed to be zero. In any case, it would be better to evaluate the expression with
 $f(x) = sgn (g(x)) × exp(-bx+ln|g(x)|)$
Another situation requiring care is exemplified by
 $∫-∞ +∞e-x2xmdx=0, m​ odd.$
The integrand here assumes very large values; for example, when $m=63$, the peak value exceeds $3×{10}^{33}$. Now, if the machine holds floating-point numbers to an accuracy of $k$ significant decimal digits, we could not expect such terms to cancel in the summation leaving an answer of much less than ${10}^{33-k}$ (the weights being of order unity); that is, instead of zero we obtain a rather large answer through rounding error. Such situations are characterised by great variability in the answers returned by formulae with different values of $n$.
In general, you should be aware of the order of magnitude of the integrand, and should judge the answer in that light.

## 8Parallelism and Performance

d01uac is currently neither directly nor indirectly threaded. In particular, the user-supplied argument f is not called from within a parallel region initialized inside d01uac.
The user-supplied argument f uses a vectorized interface, allowing for the required vector of function values to be evaluated in parallel; for example by placing appropriate OpenMP directives in the code for the user-supplied argument f.

The time taken by d01uac depends on the complexity of the expression for the integrand and on the number of abscissae required.

## 10Example

This example evaluates the integrals
 $∫0141+x2 dx=π$
 $∫2∞ 1x2 ln⁡x dx =0.378671$
by rational Gauss quadrature with $b=0$;
 $∫2∞e-xxdx=0.048901$
by Gauss–Laguerre quadrature with $b=1$; and
 $∫-∞ +∞e-3⁢x2-4x-1dx=∫-∞ +∞e-3⁢ (x+1) 2e2x+2dx=1.428167$
by Gauss–Hermite quadrature with $a=-1$ and $b=3$.
The formulae with $n=2,4,8,16,32$ and $64$ are used in each case. Both adjusted and normal weights are used for Gauss–Laguerre and Gauss–Hermite quadrature.

### 10.1Program Text

Program Text (d01uace.c)

None.

### 10.3Program Results

Program Results (d01uace.r)