NAG Library Routine Document

E02BAF

▸▿ Contents

1 Purpose

2 Specification

3 Description

4 References

5 Parameters

6 Error Indicators and Warnings

7 Accuracy

8 Parallelism and Performance

9 Further Comments

▸▿ 10 Example

10.1 Program Text

10.2 Program Data

10.3 Program Results

1 Purpose

E02BAF computes a weighted least squares approximation to an arbitrary set of data points by a cubic spline with knots prescribed by you. Cubic spline interpolation can also be carried out.

2 Specification

SUBROUTINE E02BAF (

M, NCAP7, X, Y, W, LAMDA, WORK1, WORK2, C, SS, IFAIL)

INTEGER	M, NCAP7, IFAIL
REAL (KIND=nag_wp)	X(M), Y(M), W(M), LAMDA(NCAP7), WORK1(M), WORK2(4*NCAP7), C(NCAP7), SS

3 Description

E02BAF determines a least squares cubic spline approximation

s (x)

to the set of data points

(x_{r}, y_{r})

with weights

w_{r}

, for

r = 1, 2, \dots, m

. The value of

NCAP7 = \bar{n} + 7

, where

\bar{n}

is the number of intervals of the spline (one greater than the number of interior knots), and the values of the knots

λ_{5}, λ_{6}, \dots, λ_{\bar{n} + 3}

, interior to the data interval, are prescribed by you.

s (x)

has the property that it minimizes

θ

, the sum of squares of the weighted residuals

ε_{r}

, for

r = 1, 2, \dots, m

, where

ε_{r} = w_{r} (y_{r} - s (x_{r})) .

The routine produces this minimizing value of

θ

and the coefficients

c_{1}, c_{2}, \dots, c_{q}

, where

q = \bar{n} + 3

, in the B-spline representation

s (x) = \sum_{i = 1}^{q} c_{i} N_{i} (x) .

Here

N_{i} (x)

denotes the normalized B-spline of degree

3

defined upon the knots

λ_{i}, λ_{i + 1}, \dots, λ_{i + 4}

In order to define the full set of B-splines required, eight additional knots

λ_{1}, λ_{2}, λ_{3}, λ_{4}

and

λ_{\bar{n} + 4}, λ_{\bar{n} + 5}, λ_{\bar{n} + 6}, λ_{\bar{n} + 7}

are inserted automatically by the routine. The first four of these are set equal to the smallest

x_{r}

and the last four to the largest

x_{r}

The representation of

s (x)

in terms of B-splines is the most compact form possible in that only

\bar{n} + 3

coefficients, in addition to the

\bar{n} + 7

knots, fully define

s (x)

The method employed involves forming and then computing the least squares solution of a set of

m

linear equations in the coefficients

c_{i}

, for

i = 1, 2, \dots, \bar{n} + 3

. The equations are formed using a recurrence relation for B-splines that is unconditionally stable (see Cox (1972) and de Boor (1972)), even for multiple (coincident) knots. The least squares solution is also obtained in a stable manner by using orthogonal transformations, viz. a variant of Givens rotations (see Gentleman (1974) and Gentleman (1973)). This requires only one equation to be stored at a time. Full advantage is taken of the structure of the equations, there being at most four nonzero values of

N_{i} (x)

for any value of

x

and hence at most four coefficients in each equation.

For further details of the algorithm and its use see Cox (1974), Cox (1975) and Cox and Hayes (1973).

Subsequent evaluation of

s (x)

from its B-spline representation may be carried out using E02BBF. If derivatives of

s (x)

are also required, E02BCF may be used. E02BDF can be used to compute the definite integral of

s (x)

4 References

Cox M G (1972) The numerical evaluation of B-splines J. Inst. Math. Appl. 10 134–149

Cox M G (1974) A data-fitting package for the non-specialist user Software for Numerical Mathematics (ed D J Evans) Academic Press

Cox M G (1975) Numerical methods for the interpolation and approximation of data by spline functions PhD Thesis City University, London

Cox M G and Hayes J G (1973) Curve fitting: a guide and suite of algorithms for the non-specialist user NPL Report NAC26 National Physical Laboratory

de Boor C (1972) On calculating with B-splines J. Approx. Theory 6 50–62

Gentleman W M (1973) Least squares computations by Givens transformations without square roots J. Inst. Math. Applic. 12 329–336

Gentleman W M (1974) Algorithm AS 75. Basic procedures for large sparse or weighted linear least squares problems Appl. Statist. 23 448–454

Schoenberg I J and Whitney A (1953) On Polya frequency functions III Trans. Amer. Math. Soc. 74 246–259

5 Parameters

1: $M$ – INTEGERInput: On entry: the number $m$ of data points.

Constraint: $M \geq mdist \geq 4$ , where $mdist$ is the number of distinct $x$ values in the data.
2: $NCAP7$ – INTEGERInput: On entry: $\bar{n} + 7$ , where $\bar{n}$ is the number of intervals of the spline (which is one greater than the number of interior knots, i.e., the knots strictly within the range $x_{1}$ to $x_{m}$ ) over which the spline is defined.

Constraint: $8 \leq NCAP7 \leq mdist + 4$ , where $mdist$ is the number of distinct $x$ values in the data.
3: $X (M)$ – REAL (KIND=nag_wp) arrayInput: On entry: the values $x_{r}$ of the independent variable (abscissa), for $r = 1, 2, \dots, m$ .

Constraint: $x_{1} \leq x_{2} \leq \dots \leq x_{m}$ .
4: $Y (M)$ – REAL (KIND=nag_wp) arrayInput: On entry: the values $y_{r}$ of the dependent variable (ordinate), for $r = 1, 2, \dots, m$ .
5: $W (M)$ – REAL (KIND=nag_wp) arrayInput: On entry: the values $w_{r}$ of the weights, for $r = 1, 2, \dots, m$ . For advice on the choice of weights, see the E02 Chapter Introduction.

Constraint: $W (r) > 0.0$ , for $r = 1, 2, \dots, m$ .
6: $LAMDA (NCAP7)$ – REAL (KIND=nag_wp) arrayInput/Output: On entry: $LAMDA (i)$ must be set to the $(i - 4)$ th (interior) knot, $λ_{i}$ , for $i = 5, 6, \dots, \bar{n} + 3$ .

Constraint: $X (1) < LAMDA (5) \leq LAMDA (6) \leq \dots \leq LAMDA (NCAP7 - 4) < X (M)$ .

On exit: the input values are unchanged, and $LAMDA (i)$ , for $i = 1, 2, 3, 4$ , $NCAP7 - 3$ , $NCAP7 - 2$ , $NCAP7 - 1$ , NCAP7 contains the additional (exterior) knots introduced by the routine. For advice on the choice of knots, see Section 3.3 in the E02 Chapter Introduction.
7: $WORK1 (M)$ – REAL (KIND=nag_wp) arrayWorkspace
8: $WORK2 (4 \times NCAP7)$ – REAL (KIND=nag_wp) arrayWorkspace
9: $C (NCAP7)$ – REAL (KIND=nag_wp) arrayOutput: On exit: the coefficient $c_{i}$ of the B-spline $N_{i} (x)$ , for $i = 1, 2, \dots, \bar{n} + 3$ . The remaining elements of the array are not used.
10: $SS$ – REAL (KIND=nag_wp)Output: On exit: the residual sum of squares, $θ$ .
11: $IFAIL$ – INTEGERInput/Output: On entry: IFAIL must be set to $0$ , $- 1 or 1$ . If you are unfamiliar with this parameter you should refer to Section 3.3 in the Essential Introduction for details.
For environments where it might be inappropriate to halt program execution when an error is detected, the value $- 1 or 1$ is recommended. If the output of error messages is undesirable, then the value $1$ is recommended. Otherwise, if you are not familiar with this parameter, the recommended value is $0$ . When the value $- 1 or 1$ is used it is essential to test the value of IFAIL on exit.

On exit: $IFAIL = 0$ unless the routine detects an error or a warning has been flagged (see Section 6).

6 Error Indicators and Warnings

If on entry

IFAIL = 0

- 1

, explanatory error messages are output on the current error message unit (as defined by X04AAF).

Errors or warnings detected by the routine:

$IFAIL = 1$: The knots fail to satisfy the condition

$X (1) < LAMDA (5) \leq LAMDA (6) \leq \dots \leq LAMDA (NCAP7 - 4) < X (M)$ .

Thus the knots are not in correct order or are not interior to the data interval.

$IFAIL = 2$: The weights are not all strictly positive.

$IFAIL = 3$: The values of $X (r)$ , for $r = 1, 2, \dots, M$ , are not in nondecreasing order.

$IFAIL = 4$: $NCAP7 < 8$ (so the number of interior knots is negative) or $NCAP7 > mdist + 4$ , where $mdist$ is the number of distinct $x$ values in the data (so there cannot be a unique solution).

$IFAIL = 5$

The conditions specified by Schoenberg and Whitney (1953) fail to hold for at least one subset of the distinct data abscissae. That is, there is no subset of

NCAP7 - 4

strictly increasing values,

X (R (1)), X (R (2)), \dots, X (R (NCAP7 - 4))

, among the abscissae such that

$X (R (1)) < LAMDA (1) < X (R (5))$ ,
$X (R (2)) < LAMDA (2) < X (R (6))$ ,
$⋮$
$X (R (NCAP7 - 8)) < LAMDA (NCAP7 - 8) < X (R (NCAP7 - 4))$ .

This means that there is no unique solution: there are regions containing too many knots compared with the number of data points.

$IFAIL = - 99$: An unexpected error has been triggered by this routine. Please contact NAG.
See Section 3.8 in the Essential Introduction for further information.

$IFAIL = - 399$: Your licence key may have expired or may not have been installed correctly.
See Section 3.7 in the Essential Introduction for further information.

$IFAIL = - 999$: Dynamic memory allocation failed.
See Section 3.6 in the Essential Introduction for further information.

7 Accuracy

The rounding errors committed are such that the computed coefficients are exact for a slightly perturbed set of ordinates

y_{r} + δ y_{r}

. The ratio of the root-mean-square value for the

δ y_{r}

to the root-mean-square value of the

y_{r}

can be expected to be less than a small multiple of

κ \times m \times machine precision

, where

κ

is a condition number for the problem. Values of

κ

for

20

–

30

practical datasets all proved to lie between

4.5

and

7.8

(see Cox (1975)). (Note that for these datasets, replacing the coincident end knots at the end points

x_{1}

and

x_{m}

used in the routine by various choices of non-coincident exterior knots gave values of

κ

between

16

and

180

. Again see Cox (1975) for further details.) In general we would not expect

κ

to be large unless the choice of knots results in near-violation of the Schoenberg–Whitney conditions.

A cubic spline which adequately fits the data and is free from spurious oscillations is more likely to be obtained if the knots are chosen to be grouped more closely in regions where the function (underlying the data) or its derivatives change more rapidly than elsewhere.

8 Parallelism and Performance

Not applicable.

9 Further Comments

The time taken is approximately

C \times (2 m + \bar{n} + 7)

seconds, where

C

is a machine-dependent constant.

Multiple knots are permitted as long as their multiplicity does not exceed

4

, i.e., the complete set of knots must satisfy

λ_{i} < λ_{i + 4}

, for

i = 1, 2, \dots, \bar{n} + 3

, (see Section 6). At a knot of multiplicity one (the usual case),

s (x)

and its first two derivatives are continuous. At a knot of multiplicity two,

s (x)

and its first derivative are continuous. At a knot of multiplicity three,

s (x)

is continuous, and at a knot of multiplicity four,

s (x)

is generally discontinuous.

The routine can be used efficiently for cubic spline interpolation, i.e., if

m = \bar{n} + 3

. The abscissae must then of course satisfy

x_{1} < x_{2} < \dots < x_{m}

. Recommended values for the knots in this case are

λ_{i} = x_{i - 2}

, for

i = 5, 6, \dots, \bar{n} + 3

10 Example

Determine a weighted least squares cubic spline approximation with five intervals (four interior knots) to a set of

14

given data points. Tabulate the data and the corresponding values of the approximating spline, together with the residual errors, and also the values of the approximating spline at points half-way between each pair of adjacent data points.

The example program is written in a general form that will enable a cubic spline approximation with

\bar{n}

intervals (

\bar{n} - 1

interior knots) to be obtained to

m

data points, with arbitrary positive weights, and the approximation to be tabulated. Note that E02BBF is used to evaluate the approximating spline. The program is self-starting in that any number of datasets can be supplied.

NAG Library Routine DocumentE02BAF

▸▿ Contents

1 Purpose

2 Specification

3 Description

4 References

5 Parameters

6 Error Indicators and Warnings

7 Accuracy

8 Parallelism and Performance

9 Further Comments

10 Example

10.1 Program Text

10.2 Program Data

10.3 Program Results

NAG Library Routine Document

E02BAF