src/gromacs/correlationfunctions/expfit.h

   1 /*
   2  * This file is part of the GROMACS molecular simulation package.
   3  *
   4  * Copyright (c) 2014,2015, by the GROMACS development team, led by
   5  * Mark Abraham, David van der Spoel, Berk Hess, and Erik Lindahl,
   6  * and including many others, as listed in the AUTHORS file in the
   7  * top-level source directory and at http://www.gromacs.org.
   8  *
   9  * GROMACS is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public License
  11  * as published by the Free Software Foundation; either version 2.1
  12  * of the License, or (at your option) any later version.
  13  *
  14  * GROMACS is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with GROMACS; if not, see
  21  * http://www.gnu.org/licenses, or write to the Free Software Foundation,
  22  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
  23  *
  24  * If you want to redistribute modifications to GROMACS, please
  25  * consider that scientific software is very special. Version
  26  * control is crucial - bugs must be traceable. We will be happy to
  27  * consider code for inclusion in the official distribution, but
  28  * derived work must not be called official GROMACS. Details are found
  29  * in the README & COPYING files - if they are missing, get the
  30  * official version at http://www.gromacs.org.
  31  *
  32  * To help us fund GROMACS development, we humbly ask that you cite
  33  * the research papers on the package. Check out http://www.gromacs.org.
  34  */
  35 /*! \libinternal
  36  * \file
  37  * \brief
  38  * Declares routine for fitting a data set to a curve
  39  *
  40  * \author David van der Spoel <david.vanderspoel@icm.uu.se>
  41  * \inlibraryapi
  42  * \ingroup module_correlationfunctions
  43  */
  44 #ifndef GMX_EXPFIT_H
  45 #define GMX_EXPFIT_H
  46
  47 #include "gromacs/legacyheaders/oenv.h"
  48 #include "gromacs/utility/real.h"
  49
  50 #ifdef __cplusplus
  51 extern "C" {
  52 #endif
  53
  54 /*! \brief
  55  * Enum to select fitting functions
  56  */
  57 enum {
  58     effnNONE, effnEXP1, effnEXP2, effnEXPEXP,
  59     effnEXP5, effnEXP7, effnEXP9,
  60     effnVAC,  effnERF,  effnERREST, effnPRES, effnNR
  61 };
  62
  63 /*! \brief
  64  * Short name of each function type.
  65  * This is exported for now in order to use when
  66  * calling parse_common_args.
  67  */
  68 extern const char *s_ffn[effnNR+2];
  69
  70 /*! \brief
  71  * Returns  description corresponding to the enum above, or NULL if out of range
  72  * \param[in] effn Index
  73  * \return Description or NULL
  74  */
  75 const char *effnDescription(int effn);
  76
  77 /*! \brief
  78  * Returns  number of function parameters associated with a fitting function.
  79  * \param[in] effn Index
  80  * \return number or -1 if index out of range
  81  */
  82 int effnNparams(int effn);
  83
  84 /*! \brief
  85  * Returns  corresponding to the selected enum option in sffn
  86  * \param[in] sffn Two dimensional string array coming from parse_common_args
  87  * \return the ffn enum
  88  */
  89 int sffn2effn(const char **sffn);
  90
  91 /*! \brief
  92  * Returns the value of fit function eFitFn at x
  93  * \param[in] eFitFn the index to the fitting function (0 .. effnNR)
  94  * \param[in] parm Array of parameters, the length of which depends on eFitFn
  95  * \param[in] x The value of x
  96  * \return the value of the fit
  97  */
  98 double fit_function(const int eFitFn, const double parm[], const double x);
  99
 100 /*! \brief
 101  * Use Levenberg-Marquardt method to fit to a nfitparm parameter exponential
 102  * or to a transverse current autocorrelation function.
 103  *
 104  * If x == NULL, the timestep dt will be used to create a time axis.
 105  * \param[in] ndata Number of data points
 106  * \param[in] c1 The data points
 107  * \param[in] sig The standard deviation in the points (can be NULL)
 108  * \param[in] dt The time step
 109  * \param[in] x The X-axis (may be NULL, see above)
 110  * \param[in] begintimefit Starting time for fitting
 111  * \param[in] endtimefit Ending time for fitting
 112  * \param[in] oenv Output formatting information
 113  * \param[in] bVerbose Should the routine write to console?
 114  * \param[in] eFitFn Fitting function (0 .. effnNR)
 115  * \param[inout] fitparms[] Fitting parameters, see printed manual for a
 116  * detailed description. Note that in all implemented cases the parameters
 117  * corresponding to time constants will be generated with increasing values.
 118  * Such input parameters should therefore be provided in increasing order.
 119  * If this is not the case or if subsequent time parameters differ by less than
 120  * a factor of 2, they will be modified to ensure tau_i+1 >= 2 tau_i.
 121  * \param[in] fix Constrains fit parameter i at it's starting value, when the i'th bit
 122  * of fix is set. This works only when the N last parameters are fixed
 123  * but not when a parameter somewhere in the middle needs to be fixed.
 124  * \param[in] fn_fitted If not NULL file to print the data and fitted curve to
 125  * \return integral.
 126  */
 127 real do_lmfit(int ndata, real c1[], real sig[], real dt, real *x,
 128               real begintimefit, real endtimefit, const output_env_t oenv,
 129               gmx_bool bVerbose, int eFitFn, double fitparms[], int fix,
 130               const char *fn_fitted);
 131
 132 /*! \brief
 133  * Fit an autocorrelation function to a pre-defined functional form
 134  *
 135  * \todo check parameters
 136  * \param[in] ncorr
 137  * \param[in] fitfn Fitting function (0 .. effnNR)
 138  * \param[in] oenv Output formatting information
 139  * \param[in] bVerbose Should the routine write to console?
 140  * \param[in] tbeginfit Starting time for fitting
 141  * \param[in] tendfit Ending time for fitting
 142  * \param[in] dt The time step
 143  * \param[in] c1 The data points
 144  * \param[inout] fit The fitting parameters
 145  * \return the integral over the autocorrelation function?
 146  */
 147 real fit_acf(int ncorr, int fitfn, const output_env_t oenv, gmx_bool bVerbose,
 148              real tbeginfit, real tendfit, real dt, real c1[], real *fit);
 149
 150 #ifdef __cplusplus
 151 }
 152 #endif
 153
 154 #endif