my_nrlib.cc

Go to the documentation of this file.

/* Changed 13/6/97 by AMB */
// explicit instantiation of templates
/* $Id: my_nrlib.cc,v 1.5.2.3 2019/05/28 11:13:02 garloff Exp $ */

#ifndef NUM
# define NUM double
#endif

#ifdef PRAGMA_I
//# pragma implementation "my_nr.h"
#endif
#include "tbci/my_nr.h"

//NAMESPACE_TBCI

#define T NUM
#include "my_nr_inst.h"

#if 0
#define TEMPLATE template

//template class minimum<NUM>;

TEMPLATE int basis_trafo <NUM> (long int value, long int basis, Vector<NUM>& index);

TEMPLATE NUM partial_del <NUM> (NUM (*func)(const Vector<NUM>&, const Vector<NUM>&), 
                                const Vector<NUM>& x, const Vector<NUM>& p, 
                                int mu, NUM h, NUM& err);
 
TEMPLATE NUM chisq <NUM> (Vector<NUM>& data, Vector<NUM>& func, Vector<NUM>& sig);
 
TEMPLATE NUM chisquare <NUM> (NUM (*func)(const Vector<NUM>&, const Vector<NUM>&),
                              Vector<NUM>& param, Vector<NUM>& x,
                              Vector<NUM>& y, Vector<NUM>& sigma);
 
/*TEMPLATE Vector<NUM> grid_mins <NUM> (NUM (*func)(Vector<NUM>&, Vector<NUM>&),
  Vector<NUM>& x, Vector<NUM>& y,
  Vector<NUM>& sigma, Vector<NUM>& pmin, Vector<NUM>& pmax, int res, char v, int anzmin, nslist<minimum<NUM>,NUM>& minima);
*/

TEMPLATE TVector<NUM> grid_min <NUM> (NUM (*func)(const Vector<NUM>&, const Vector<NUM>&),
                                      Vector<NUM>& x, Vector<NUM>& y, Vector<NUM>& sig, 
                                      Vector<NUM>& pmin, Vector<NUM>& pmax, Vector<NUM>& lambda, 
                                      long int res, int max_it, char v);

TEMPLATE NUM lev_mar <NUM> (Vector<NUM>& x, Vector<NUM>& y, Vector<NUM>& sig, 
                            Vector<NUM>& param, Vector<NUM>& plow, Vector<NUM>& phigh, 
                            NUM (*func)(const Vector<NUM>&, const Vector<NUM>&), 
                            Vector<NUM> lambda, Vector<NUM>& lscale, NUM tol, 
                            int iter, char ver);

TEMPLATE void hpsort <NUM> (Matrix<NUM>& x, int pos);

//unsigned long long fac (const char);

//long double ldgamma (const double);
//long double fact (const double);

#endif /* 0 */

//NAMESPACE_END