home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / xlispstat_386.lzh / XLispStat / src3.lzh / Original_Headers / linalg.h < prev    next >
C/C++ Source or Header  |  1990-07-30  |  798b  |  35 lines
  1. # include "xmath.h"
  2. # include "xlisp.h"
  3. # include "statfloat.h"
  4.  
  5. extern double makedouble();
  6. extern char *calloc();
  7. extern double macheps();
  8.  
  9. # define realp(x) (floatp(x) || fixp(x))
  10. # define seqlen(x) ((vectorp(x)) ? getsize(x) : llength(x))
  11.  
  12. #define nil 0L
  13.  
  14. typedef char **Matrix, *Vector;
  15. typedef int **IMatrix, *IVector;
  16. typedef double **RMatrix, *RVector;
  17. typedef Complex **CMatrix, *CVector;
  18.  
  19. #define IN 0
  20. #define RE 1
  21. #define CX 2
  22.  
  23. /* external symbols */
  24. extern LVAL s_true, a_fixnum, a_flonum, a_complex;
  25.  
  26. /* external functions */
  27. extern LVAL arraydata(), getnextelement(), coerce_to_list(), newarray(),
  28.   integer_list_2(), mklist();
  29. extern IVector ivector();
  30. extern RVector rvector();
  31. extern CVector cvector();
  32. extern IMatrix imatrix();
  33. extern RMatrix rmatrix();
  34. extern CMatrix cmatrix();
  35.