home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / xlispstat_386.lzh / XLispStat / src1.lzh / Headers / xlsdef.h < prev    next >
C/C++ Source or Header  |  1990-10-09  |  1KB  |  58 lines
  1. #ifndef XLSDEF_H
  2. #define XLSDEF_H
  3.  
  4. #ifndef _MC68881_
  5. #define _MC68881_
  6. #endif
  7.  
  8. #include <math.h>
  9.  
  10. #define realp(x) (floatp(x) || fixp(x))
  11. #define Max(a,b)      (((a) > (b)) ? (a) : (b))
  12. #define Min(a,b)      (((a) < (b)) ? (a) : (b))
  13. #define nil 0L
  14.  
  15. typedef struct {
  16.   double real, imag;
  17. } Complex;
  18.  
  19. typedef char **Matrix, *Vector;   /* for this to be of use, probably assumes */
  20. typedef int **IMatrix, *IVector;  /* int and double have same size?? JKL */
  21. typedef double **RMatrix, *RVector;
  22. typedef Complex **CMatrix, *CVector;
  23.  
  24. #define IN 0
  25. #define RE 1
  26. #define CX 2
  27.  
  28. #ifndef PI
  29. #define PI 3.141592653589793
  30. #endif PI
  31.  
  32. #define numberp(x) (floatp(x) || fixp(x))
  33.  
  34. #define numberp(x) (floatp(x) || fixp(x))
  35. #define sequencep(x) (listp(x) || simplevectorp(x))
  36. #define seqlen(x) ((listp(x)) ? llength(x) : getsize(x))
  37.  
  38. typedef struct {
  39.   int n, m, k, itnlimit, backtrack, verbose, vals_suppl, exptilt;
  40.   int count, termcode;
  41. } MaxIPars;
  42.  
  43. typedef struct {
  44.   double typf, h, gradtol, steptol, maxstep, dflt, tilt, newtilt, hessadd;
  45. } MaxDPars;
  46.  
  47. typedef struct {
  48.   MaxIPars max;
  49.   int full, covar;
  50. } MomIPars;
  51.  
  52. typedef struct {
  53.   MaxDPars max;
  54.   double mgfdel;
  55. } MomDPars;
  56.  
  57. #endif XLSDEF_H
  58.