SINFONI Pipeline Reference Manual  2.6.0
sinfo_svd.h
1 #ifndef SINFO_SVD_H
2 #define SINFO_SVD_H
3 /*
4  * This file is part of the ESO SINFONI Pipeline
5  * Copyright (C) 2004,2005 European Southern Observatory
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 2 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, 51 Franklin St, Fifth Floor, Boston, MA 02111-1307 USA
20  */
21 /*******************************************************************************
22 * E.S.O. - VLT project
23 *
24 * "@(#) $Id: sinfo_svd.h,v 1.4 2007-06-06 07:10:45 amodigli Exp $"
25 *
26 * who when what
27 * -------- -------- ----------------------------------------------
28 * schreib 16/04/03 created
29 */
30 
31 /************************************************************************
32  * sinfo_svd.h
33  * singular value decomposition fit routines
34  *----------------------------------------------------------------------
35  */
36 
37 /*
38  * header files
39  */
40 
41 #include <math.h>
42 #include <cpl.h>
43 
44 /*----------------------------------------------------------------------------
45  * Function ANSI C prototypes
46  *--------------------------------------------------------------------------*/
47 
48 void sinfo_fpol(float x, float *p, int np) ;
49 
50 void
51 sinfo_svb_kas(float **u, float w[], float **v, int m,
52  int n, float b[],float x[]) ;
53 
54 void sinfo_svd_variance(float **v , int ma , float w[] , float **cvm) ;
55 
56 void sinfo_svd_fitting ( float *x,
57  float *y,
58  float *sig,
59  int ndata,
60  float *a,
61  int ma,
62  float **u,
63  float **v,
64  float *w,
65  float **cvm,
66  float *chisq,
67  void (*funcs)(float,float *,int) ) ;
68 
69 void sinfo_svd_compare(float **a,int m,int n,float w[],float **v) ;
70 
71 void sinfo_nerror(const char error_text[]) ;
72 
73 float *sinfo_vector(long nl, long nh) ;
74 
75 void sinfo_free_vector(float *v, long nl /*, long nh*/) ;
76 
77 float **sinfo_matrix(long nrl, long nrh, long ncl, long nch) ;
78 
79 void
80 sinfo_free_matrix(float **m,long nrl/*, long nrh*/, long ncl/*, long nch*/) ;
81 
82 
83 #endif
85 /*--------------------------------------------------------------------------*/