svd.h

00001 #ifndef SVD_H
00002 #define SVD_H
00003 /*******************************************************************************
00004 * E.S.O. - VLT project
00005 *
00006 * "@(#) $Id: svd.h,v 1.4 2005/04/08 13:38:20 amodigli Exp $"
00007 *
00008 * who       when      what
00009 * --------  --------  ----------------------------------------------
00010 * schreib  16/04/03  created
00011 */
00012 
00013 /************************************************************************
00014  * svd.h
00015  * singular value decomposition fit routines
00016  *----------------------------------------------------------------------
00017  */
00018 
00019 /*
00020  * header files
00021  */
00022 
00023 /*
00024 #include <stdio.h>
00025 #include <math.h>
00026 */
00027 #include "eclipse.h"
00028 #include <cpl.h>
00029 
00030 /*----------------------------------------------------------------------------
00031  *                      Function ANSI C prototypes
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 /*, long nh*/) ;
00060 
00061 float **matrix(long nrl, long nrh, long ncl, long nch) ;
00062 
00063 void free_matrix(float **m,long nrl/*, long nrh*/, long ncl/*, long nch*/) ;
00064 
00065 
00066 #endif 
00068 /*--------------------------------------------------------------------------*/

Generated on Wed Oct 26 13:08:56 2005 for SINFONI Pipeline Reference Manual by doxygen1.2.13.1 written by Dimitri van Heesch, © 1997-2001