nag_rgsn_matrix_multi_normal (g05lyc) (PDF version)
g05 Chapter Contents
g05 Chapter Introduction
NAG C Library Manual

NAG Library Function Document

nag_rgsn_matrix_multi_normal (g05lyc)

+ Contents

    1  Purpose
    7  Accuracy

1  Purpose

nag_rgsn_matrix_multi_normal (g05lyc) sets up a reference vector and generates an array of pseudorandom numbers from a multivariate Normal distribution with mean vector a and covariance matrix C.

2  Specification

#include <nag.h>
#include <nagg05.h>
void  nag_rgsn_matrix_multi_normal (Nag_OrderType order, Integer mode, Integer m, const double xmu[], const double c[], Integer pdc, Integer n, double x[], Integer pdx, Integer igen, Integer iseed[], double r[], Integer lr, NagError *fail)

3  Description

When the covariance matrix is nonsingular (i.e., strictly positive definite), the distribution has probability density function
fx = C-1 2πm exp - 12 x-aT C-1 x-a
where m is the number of dimensions, C is the covariance matrix, a is the vector of means and x is the vector of positions.
Covariance matrices are symmetric and positive semidefinite. Given such a matrix C, there exists a lower triangular matrix L such that LLT=C. L is not unique, if C is singular.
nag_rgsn_matrix_multi_normal (g05lyc) decomposes C to find such an L. It then stores m, a and L in the reference vector r which is used to generate a vector x of independent standard Normal pseudorandom numbers. It then returns the vector a+Lx, which has the required multivariate Normal distribution.
It should be noted that this function will work with a singular covariance matrix C, provided C is positive semidefinite, despite the fact that the above formula for the probability density function is not valid in that case. Wilkinson (1965) should be consulted if further information is required.
One of the initialization functions nag_rngs_init_repeatable (g05kbc) (for a repeatable sequence if computed sequentially) or nag_rngs_init_nonrepeatable (g05kcc) (for a non-repeatable sequence) must be called prior to the first call to nag_rgsn_matrix_multi_normal (g05lyc).

4  References

Knuth D E (1981) The Art of Computer Programming (Volume 2) (2nd Edition) Addison–Wesley
Wilkinson J H (1965) The Algebraic Eigenvalue Problem Oxford University Press, Oxford

5  Arguments

1:     orderNag_OrderTypeInput
On entry: the order argument specifies the two-dimensional storage scheme being used, i.e., row-major ordering or column-major ordering. C language defined storage is specified by order=Nag_RowMajor. See Section 3.2.1.3 in the Essential Introduction for a more detailed explanation of the use of this argument.
Constraint: order=Nag_RowMajor or Nag_ColMajor.
2:     modeIntegerInput
On entry: selects the operation to be performed.
mode=0
Initialize and generate random numbers.
mode=1
Initialize only (i.e., set up reference vector).
mode=2
Generate random numbers using previously set up reference vector.
Constraint: mode=0, 1 or 2.
3:     mIntegerInput
On entry: m, the number of dimensions of the distribution.
Constraint: m>0.
4:     xmu[m]const doubleInput
On entry: a, the vector of means of the distribution.
5:     c[dim]const doubleInput
Note: the dimension, dim, of the array c must be at least pdc×m.
The i,jth element of the matrix C is stored in
  • c[j-1×pdc+i-1] when order=Nag_ColMajor;
  • c[i-1×pdc+j-1] when order=Nag_RowMajor.
On entry: the covariance matrix of the distribution. Only the upper triangle need be set.
Constraint: c must be positive semidefinite to machine precision.
6:     pdcIntegerInput
On entry: the stride separating row or column elements (depending on the value of order) in the array c.
Constraint: pdcm.
7:     nIntegerInput
On entry: n, the number of random variates required.
Constraint: n1.
8:     x[dim]doubleOutput
Note: the dimension, dim, of the array x must be at least
  • max1,pdx×m when order=Nag_ColMajor;
  • max1,n×pdx when order=Nag_RowMajor.
Where Xi,j appears in this document, it refers to the array element
  • x[j-1×pdx+i-1] when order=Nag_ColMajor;
  • x[i-1×pdx+j-1] when order=Nag_RowMajor.
On exit: the array of pseudorandom multivariate Normal vectors generated by the function, with Xi,j holding the jth dimension for the ith variate.
9:     pdxIntegerInput
On entry: the stride separating row or column elements (depending on the value of order) in the array x.
Constraints:
  • if order=Nag_ColMajor, pdxn;
  • if order=Nag_RowMajor, pdxm.
10:   igenIntegerInput
On entry: must contain the identification number for the generator to be used to return a pseudorandom number and should remain unchanged following initialization by a prior call to nag_rngs_init_repeatable (g05kbc) or nag_rngs_init_nonrepeatable (g05kcc).
11:   iseed[4]IntegerCommunication Array
On entry: contains values which define the current state of the selected generator.
On exit: contains updated values defining the new state of the selected generator.
12:   r[lr]doubleInput/Output
On entry: if mode=2, the reference vector as set up by nag_rgsn_matrix_multi_normal (g05lyc) in a previous call with mode=0 or 1.
On exit: if mode=0 or 1, the reference vector that can be used in subsequent calls to nag_rgsn_matrix_multi_normal (g05lyc) with mode=2.
13:   lrIntegerInput
On entry: the dimension of the array r. If mode=2, it must be the same as the value of lr specified in the prior call to nag_rgsn_matrix_multi_normal (g05lyc) with mode=0 or 1.
Constraint: lr>m×m+1.
14:   failNagError *Input/Output
The NAG error argument (see Section 3.6 in the Essential Introduction).

6  Error Indicators and Warnings

NE_ALLOC_FAIL
Dynamic memory allocation failed.
NE_BAD_PARAM
On entry, argument value had an illegal value.
NE_INT
On entry, invalid value for igen. Ensure igen has not changed since random number generator was initialized.
On entry, m=value.
Constraint: m>0.
On entry, mode=value.
Constraint: mode=0, 1 or 2.
On entry, n=value.
Constraint: n1.
On entry, pdc=value.
Constraint: pdc>0.
On entry, pdx=value.
Constraint: pdx>0.
NE_INT_2
m is not the same as when r was set up in a previous call. Previous value =value and m=value.
On entry, lr=value, m×m+m+1= value.
Constraint: lrm×m+m+1.
On entry, pdc=value and m=value.
Constraint: pdcm.
On entry, pdx=value and m=value.
Constraint: pdxm.
On entry, pdx=value and n=value.
Constraint: pdx n.
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.
NE_POS_DEF
The covariance matrix c is not positive semidefinite to machine precision.

7  Accuracy

The maximum absolute error in LLT, and hence in the covariance matrix of the resulting vectors, is less than mε+m+3ε/2 times the maximum element of C, where ε is the machine precision. Under normal circumstances, the above will be small compared to sampling error.

8  Further Comments

The time taken by nag_rgsn_matrix_multi_normal (g05lyc) is of order nm3.
It is recommended that the diagonal elements of C should not differ too widely in order of magnitude. This may be achieved by scaling the variables if necessary. The actual matrix decomposed is C+E=LLT, where E is a diagonal matrix with small positive diagonal elements. This ensures that, even when C is singular, or nearly singular, the Cholesky factor L corresponds to a positive definite covariance matrix that agrees with C within machine precision.

9  Example

This example prints ten pseudorandom observations from a multivariate Normal distribution with means vector
1.0 2.0 -3.0 0.0
and covariance matrix
1.69 0.39 -1.86 0.07 0.39 98.01 -7.07 -0.71 -1.86 -7.07 11.56 0.03 0.07 -0.71 0.03 0.01 ,
generated by nag_rgsn_matrix_multi_normal (g05lyc). All ten observations are generated by a single call to nag_rgsn_matrix_multi_normal (g05lyc) with mode=0. The random number generator is initialized by nag_rngs_init_repeatable (g05kbc).

9.1  Program Text

Program Text (g05lyce.c)

9.2  Program Data

None.

9.3  Program Results

Program Results (g05lyce.r)


nag_rgsn_matrix_multi_normal (g05lyc) (PDF version)
g05 Chapter Contents
g05 Chapter Introduction
NAG C Library Manual

© The Numerical Algorithms Group Ltd, Oxford, UK. 2012