00001 #ifndef SINFO_SVD_H 00002 #define SINFO_SVD_H 00003 /* 00004 * This file is part of the ESO SINFONI Pipeline 00005 * Copyright (C) 2004,2005 European Southern Observatory 00006 * 00007 * This program is free software; you can redistribute it and/or modify 00008 * it under the terms of the GNU General Public License as published by 00009 * the Free Software Foundation; either version 2 of the License, or 00010 * (at your option) any later version. 00011 * 00012 * This program is distributed in the hope that it will be useful, 00013 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00014 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00015 * GNU General Public License for more details. 00016 * 00017 * You should have received a copy of the GNU General Public License 00018 * along with this program; if not, write to the Free Software 00019 * Foundation, 51 Franklin St, Fifth Floor, Boston, MA 02111-1307 USA 00020 */ 00021 /******************************************************************************* 00022 * E.S.O. - VLT project 00023 * 00024 * "@(#) $Id: sinfo_svd.h,v 1.4 2007/06/06 07:10:45 amodigli Exp $" 00025 * 00026 * who when what 00027 * -------- -------- ---------------------------------------------- 00028 * schreib 16/04/03 created 00029 */ 00030 00031 /************************************************************************ 00032 * sinfo_svd.h 00033 * singular value decomposition fit routines 00034 *---------------------------------------------------------------------- 00035 */ 00036 00037 /* 00038 * header files 00039 */ 00040 00041 #include <math.h> 00042 #include <cpl.h> 00043 00044 /*---------------------------------------------------------------------------- 00045 * Function ANSI C prototypes 00046 *--------------------------------------------------------------------------*/ 00047 00048 void sinfo_fpol(float x, float *p, int np) ; 00049 00050 void 00051 sinfo_svb_kas(float **u, float w[], float **v, int m, 00052 int n, float b[],float x[]) ; 00053 00054 void sinfo_svd_variance(float **v , int ma , float w[] , float **cvm) ; 00055 00056 void sinfo_svd_fitting ( float *x, 00057 float *y, 00058 float *sig, 00059 int ndata, 00060 float *a, 00061 int ma, 00062 float **u, 00063 float **v, 00064 float *w, 00065 float **cvm, 00066 float *chisq, 00067 void (*funcs)(float,float *,int) ) ; 00068 00069 void sinfo_svd_compare(float **a,int m,int n,float w[],float **v) ; 00070 00071 void sinfo_nerror(const char error_text[]) ; 00072 00073 float *sinfo_vector(long nl, long nh) ; 00074 00075 void sinfo_free_vector(float *v, long nl /*, long nh*/) ; 00076 00077 float **sinfo_matrix(long nrl, long nrh, long ncl, long nch) ; 00078 00079 void 00080 sinfo_free_matrix(float **m,long nrl/*, long nrh*/, long ncl/*, long nch*/) ; 00081 00082 00083 #endif 00085 /*--------------------------------------------------------------------------*/