00001 #ifndef SVD_H
00002 #define SVD_H
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027 #include "eclipse.h"
00028 #include <cpl.h>
00029
00030
00031
00032
00033
00034 void fpol(float x, float *p, int np) ;
00035
00036 void svb_kas(float **u, float w[], float **v, int m, int n, float b[],float x[]) ;
00037
00038 void svd_variance(float **v , int ma , float w[] , float **cvm) ;
00039
00040 void svd_fitting ( float *x,
00041 float *y,
00042 float *sig,
00043 int ndata,
00044 float *a,
00045 int ma,
00046 float **u,
00047 float **v,
00048 float *w,
00049 float **cvm,
00050 float *chisq,
00051 void (*funcs)(float,float *,int) ) ;
00052
00053 void svd_compare(float **a,int m,int n,float w[],float **v) ;
00054
00055 void nerror(const char error_text[]) ;
00056
00057 float *vector(long nl, long nh) ;
00058
00059 void free_vector(float *v, long nl ) ;
00060
00061 float **matrix(long nrl, long nrh, long ncl, long nch) ;
00062
00063 void free_matrix(float **m,long nrl, long ncl) ;
00064
00065
00066 #endif
00068