blob: b72349ac58465faf9d7971411d110e1fdd808bed (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# Header file for the curve fitting package
# set up the curve descriptor structure
define LEN_CVSTRUCT 20
define CV_TYPE Memi[$1] # Type of curve to be fitted
define CV_ORDER Memi[$1+1] # Order of the fit
define CV_NPIECES Memi[$1+2] # Number of polynomial pieces - 1
define CV_NCOEFF Memi[$1+3] # Number of coefficients
define CV_XMAX Memr[P2R($1+4)] # Maximum x value
define CV_XMIN Memr[P2R($1+5)] # Minimum x value
define CV_RANGE Memr[P2R($1+6)] # 2. / (xmax - xmin), polynomials
define CV_MAXMIN Memr[P2R($1+7)] # - (xmax + xmin) / 2., polynomials
define CV_SPACING Memr[P2R($1+8)] # order / (xmax - xmin), splines
define CV_NPTS Memi[$1+9] # Number of data points
define CV_XBASIS Memi[$1+10] # Pointer to non zero basis for single x
define CV_MATRIX Memi[$1+11] # Pointer to original matrix
define CV_CHOFAC Memi[$1+12] # Pointer to Cholesky factorization
define CV_VECTOR Memi[$1+13] # Pointer to vector
define CV_COEFF Memi[$1+14] # Pointer to coefficient vector
define CV_BASIS Memi[$1+15] # Pointer to basis functions (all x)
define CV_LEFT Memi[$1+16] # Pointer to first non-zero basis
define CV_WY Memi[$1+17] # Pointer to y * w (cvrefit)
define CV_USERFNC Memi[$1+18] # Pointer to external user subroutine
define CV_USERFNCR Memr[P2R($1+18)]# Real version of above for cvrestore.
# one free slot left
# matrix and vector element definitions
define XBASIS Memr[P2P($1)] # Non zero basis for single x
define MATRIX Memr[P2P($1)] # Element of MATRIX
define CHOFAC Memr[P2P($1)] # Element of CHOFAC
define VECTOR Memr[P2P($1)] # Element of VECTOR
define COEFF Memr[P2P($1)] # Element of COEFF
define BASIS Memr[P2P($1)] # Element of BASIS
define LEFT Memi[P2P($1)] # Element of LEFT
# structure definitions for restore
define CV_SAVETYPE $1[1]
define CV_SAVEORDER $1[2]
define CV_SAVEXMIN $1[3]
define CV_SAVEXMAX $1[4]
define CV_SAVEFNC $1[5]
define CV_SAVECOEFF 5
# miscellaneous
define SPLINE3_ORDER 4
define SPLINE1_ORDER 2
define DELTA EPSILON
|