diff options
author | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
---|---|---|
committer | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
commit | 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch) | |
tree | 4464880c571602d54f6ae114729bf62a89518057 /math/curfit/dcurfitdef.h | |
download | iraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz |
Repatch (from linux) of OSX IRAF
Diffstat (limited to 'math/curfit/dcurfitdef.h')
-rw-r--r-- | math/curfit/dcurfitdef.h | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/math/curfit/dcurfitdef.h b/math/curfit/dcurfitdef.h new file mode 100644 index 00000000..ab611450 --- /dev/null +++ b/math/curfit/dcurfitdef.h @@ -0,0 +1,54 @@ +# Header file for the curve fitting package + +# set up the curve descriptor structure + +define LEN_CVSTRUCT 30 + +define CV_XMAX Memd[P2D($1)] # Maximum x value +define CV_XMIN Memd[P2D($1+2)] # Minimum x value +define CV_RANGE Memd[P2D($1+4)] # 2. / (xmax - xmin), polynomials +define CV_MAXMIN Memd[P2D($1+6)] # - (xmax + xmin) / 2., polynomials +define CV_SPACING Memd[P2D($1+8)] # order / (xmax - xmin), splines +define CV_USERFNCD Memd[P2D($1+10)]# Real version of above for cvrestore. +define CV_TYPE Memi[$1+12] # Type of curve to be fitted +define CV_ORDER Memi[$1+13] # Order of the fit +define CV_NPIECES Memi[$1+14] # Number of polynomial pieces - 1 +define CV_NCOEFF Memi[$1+15] # Number of coefficients +define CV_NPTS Memi[$1+16] # Number of data points + +define CV_XBASIS Memi[$1+17] # Pointer to non zero basis for single x +define CV_MATRIX Memi[$1+18] # Pointer to original matrix +define CV_CHOFAC Memi[$1+19] # Pointer to Cholesky factorization +define CV_VECTOR Memi[$1+20] # Pointer to vector +define CV_COEFF Memi[$1+21] # Pointer to coefficient vector +define CV_BASIS Memi[$1+22] # Pointer to basis functions (all x) +define CV_LEFT Memi[$1+23] # Pointer to first non-zero basis +define CV_WY Memi[$1+24] # Pointer to y * w (cvrefit) +define CV_USERFNC Memi[$1+25] # Pointer to external user subroutine + # one free slot left + +# matrix and vector element definitions + +define XBASIS Memd[$1] # Non zero basis for single x +define MATRIX Memd[$1] # Element of MATRIX +define CHOFAC Memd[$1] # Element of CHOFAC +define VECTOR Memd[$1] # Element of VECTOR +define COEFF Memd[$1] # Element of COEFF +define BASIS Memd[$1] # Element of BASIS +define LEFT Memi[$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 |