|
Packit |
67cb25 |
/* multfit/lmder.c
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* Copyright (C) 1996, 1997, 1998, 1999, 2000, 2007 Brian Gough
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is free software; you can redistribute it and/or modify
|
|
Packit |
67cb25 |
* it under the terms of the GNU General Public License as published by
|
|
Packit |
67cb25 |
* the Free Software Foundation; either version 3 of the License, or (at
|
|
Packit |
67cb25 |
* your option) any later version.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is distributed in the hope that it will be useful, but
|
|
Packit |
67cb25 |
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
67cb25 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
67cb25 |
* General Public License for more details.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* You should have received a copy of the GNU General Public License
|
|
Packit |
67cb25 |
* along with this program; if not, write to the Free Software
|
|
Packit |
67cb25 |
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <config.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <stddef.h>
|
|
Packit |
67cb25 |
#include <stdlib.h>
|
|
Packit |
67cb25 |
#include <stdio.h>
|
|
Packit |
67cb25 |
#include <math.h>
|
|
Packit |
67cb25 |
#include <float.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <gsl/gsl_math.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_errno.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_multifit_nlin.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_blas.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_linalg.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_permutation.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
typedef struct
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
size_t iter;
|
|
Packit |
67cb25 |
double xnorm;
|
|
Packit |
67cb25 |
double fnorm;
|
|
Packit |
67cb25 |
double delta;
|
|
Packit |
67cb25 |
double par;
|
|
Packit |
67cb25 |
gsl_matrix *J; /* Jacobian matrix */
|
|
Packit |
67cb25 |
gsl_matrix *r; /* R matrix in J = Q R P^T */
|
|
Packit |
67cb25 |
gsl_vector *tau;
|
|
Packit |
67cb25 |
gsl_vector *diag; /* scaling matrix D = diag(d1,...,dp) */
|
|
Packit |
67cb25 |
gsl_vector *qtf; /* Q^T f */
|
|
Packit |
67cb25 |
gsl_vector *newton;
|
|
Packit |
67cb25 |
gsl_vector *gradient; /* gradient g = J^T f */
|
|
Packit |
67cb25 |
gsl_vector *x_trial; /* trial step x + dx */
|
|
Packit |
67cb25 |
gsl_vector *f_trial; /* trial function f(x + dx) */
|
|
Packit |
67cb25 |
gsl_vector *df;
|
|
Packit |
67cb25 |
gsl_vector *sdiag;
|
|
Packit |
67cb25 |
gsl_vector *rptdx;
|
|
Packit |
67cb25 |
const gsl_vector *weights; /* data weights */
|
|
Packit |
67cb25 |
gsl_vector *w;
|
|
Packit |
67cb25 |
gsl_vector *work1;
|
|
Packit |
67cb25 |
gsl_permutation * perm;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
lmder_state_t;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int lmder_alloc (void *vstate, size_t n, size_t p);
|
|
Packit |
67cb25 |
static int lmder_set (void *vstate, const gsl_vector * swts, gsl_multifit_function_fdf * fdf, gsl_vector * x, gsl_vector * f, gsl_vector * dx);
|
|
Packit |
67cb25 |
static int lmsder_set (void *vstate, const gsl_vector * swts, gsl_multifit_function_fdf * fdf, gsl_vector * x, gsl_vector * f, gsl_vector * dx);
|
|
Packit |
67cb25 |
static int set (void *vstate, const gsl_vector * swts, gsl_multifit_function_fdf * fdf, gsl_vector * x, gsl_vector * f, gsl_vector * dx, int scale);
|
|
Packit |
67cb25 |
static int lmder_iterate (void *vstate, const gsl_vector * swts, gsl_multifit_function_fdf * fdf, gsl_vector * x, gsl_vector * f, gsl_vector * dx);
|
|
Packit |
67cb25 |
static void lmder_free (void *vstate);
|
|
Packit |
67cb25 |
static int iterate (void *vstate, const gsl_vector * swts, gsl_multifit_function_fdf * fdf, gsl_vector * x, gsl_vector * f, gsl_vector * dx, int scale);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include "lmutil.c"
|
|
Packit |
67cb25 |
#include "lmpar.c"
|
|
Packit |
67cb25 |
#include "lmset.c"
|
|
Packit |
67cb25 |
#include "lmiterate.c"
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
lmder_alloc (void *vstate, size_t n, size_t p)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
lmder_state_t *state = (lmder_state_t *) vstate;
|
|
Packit |
67cb25 |
gsl_matrix *r, *J;
|
|
Packit |
67cb25 |
gsl_vector *tau, *diag, *qtf, *newton, *gradient, *x_trial, *f_trial,
|
|
Packit |
67cb25 |
*df, *sdiag, *rptdx, *w, *work1;
|
|
Packit |
67cb25 |
gsl_permutation *perm;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
J = gsl_matrix_alloc (n, p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (J == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for J", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->J = J;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
r = gsl_matrix_alloc (n, p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (r == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for r", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->r = r;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
tau = gsl_vector_calloc (GSL_MIN(n, p));
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (tau == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for tau", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->tau = tau;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
diag = gsl_vector_calloc (p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (diag == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for diag", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->diag = diag;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
qtf = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (qtf == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for qtf", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->qtf = qtf;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
newton = gsl_vector_calloc (p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (newton == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for newton", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->newton = newton;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gradient = gsl_vector_calloc (p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (gradient == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for gradient", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->gradient = gradient;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
x_trial = gsl_vector_calloc (p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (x_trial == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for x_trial", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->x_trial = x_trial;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
f_trial = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (f_trial == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for f_trial", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->f_trial = f_trial;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
df = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (df == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (f_trial);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for df", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->df = df;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
sdiag = gsl_vector_calloc (p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (sdiag == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (f_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (df);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for sdiag", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->sdiag = sdiag;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
rptdx = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (rptdx == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (f_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (df);
|
|
Packit |
67cb25 |
gsl_vector_free (sdiag);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for rptdx", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->rptdx = rptdx;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
w = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (w == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (f_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (df);
|
|
Packit |
67cb25 |
gsl_vector_free (sdiag);
|
|
Packit |
67cb25 |
gsl_vector_free (rptdx);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for w", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->w = w;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
work1 = gsl_vector_calloc (p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (work1 == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (f_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (df);
|
|
Packit |
67cb25 |
gsl_vector_free (sdiag);
|
|
Packit |
67cb25 |
gsl_vector_free (rptdx);
|
|
Packit |
67cb25 |
gsl_vector_free (w);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for work1", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->work1 = work1;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
perm = gsl_permutation_calloc (p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (perm == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (r);
|
|
Packit |
67cb25 |
gsl_vector_free (tau);
|
|
Packit |
67cb25 |
gsl_vector_free (diag);
|
|
Packit |
67cb25 |
gsl_vector_free (qtf);
|
|
Packit |
67cb25 |
gsl_vector_free (newton);
|
|
Packit |
67cb25 |
gsl_vector_free (gradient);
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (f_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (df);
|
|
Packit |
67cb25 |
gsl_vector_free (sdiag);
|
|
Packit |
67cb25 |
gsl_vector_free (rptdx);
|
|
Packit |
67cb25 |
gsl_vector_free (w);
|
|
Packit |
67cb25 |
gsl_vector_free (work1);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for perm", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->perm = perm;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
lmder_set (void *vstate, const gsl_vector * swts,
|
|
Packit |
67cb25 |
gsl_multifit_function_fdf * fdf, gsl_vector * x,
|
|
Packit |
67cb25 |
gsl_vector * f, gsl_vector * dx)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = set (vstate, swts, fdf, x, f, dx, 0);
|
|
Packit |
67cb25 |
return status ;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
lmsder_set (void *vstate, const gsl_vector * swts,
|
|
Packit |
67cb25 |
gsl_multifit_function_fdf * fdf, gsl_vector * x,
|
|
Packit |
67cb25 |
gsl_vector * f, gsl_vector * dx)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = set (vstate, swts, fdf, x, f, dx, 1);
|
|
Packit |
67cb25 |
return status ;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
lmder_iterate (void *vstate, const gsl_vector * swts,
|
|
Packit |
67cb25 |
gsl_multifit_function_fdf * fdf, gsl_vector * x,
|
|
Packit |
67cb25 |
gsl_vector * f, gsl_vector * dx)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = iterate (vstate, swts, fdf, x, f, dx, 0);
|
|
Packit |
67cb25 |
return status;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
lmsder_iterate (void *vstate, const gsl_vector * swts,
|
|
Packit |
67cb25 |
gsl_multifit_function_fdf * fdf, gsl_vector * x,
|
|
Packit |
67cb25 |
gsl_vector * f, gsl_vector * dx)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = iterate (vstate, swts, fdf, x, f, dx, 1);
|
|
Packit |
67cb25 |
return status;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
lmder_gradient (void *vstate, gsl_vector * g)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
lmder_state_t *state = (lmder_state_t *) vstate;
|
|
Packit |
67cb25 |
compute_gradient(state->r, state->qtf, g);
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
lmder_jac (void *vstate, gsl_matrix * J)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
lmder_state_t *state = (lmder_state_t *) vstate;
|
|
Packit |
67cb25 |
int s = gsl_matrix_memcpy(J, state->J);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return s;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static void
|
|
Packit |
67cb25 |
lmder_free (void *vstate)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
lmder_state_t *state = (lmder_state_t *) vstate;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->perm)
|
|
Packit |
67cb25 |
gsl_permutation_free (state->perm);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->work1)
|
|
Packit |
67cb25 |
gsl_vector_free (state->work1);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->w)
|
|
Packit |
67cb25 |
gsl_vector_free (state->w);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->rptdx)
|
|
Packit |
67cb25 |
gsl_vector_free (state->rptdx);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->sdiag)
|
|
Packit |
67cb25 |
gsl_vector_free (state->sdiag);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->df)
|
|
Packit |
67cb25 |
gsl_vector_free (state->df);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->f_trial)
|
|
Packit |
67cb25 |
gsl_vector_free (state->f_trial);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->x_trial)
|
|
Packit |
67cb25 |
gsl_vector_free (state->x_trial);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->gradient)
|
|
Packit |
67cb25 |
gsl_vector_free (state->gradient);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->newton)
|
|
Packit |
67cb25 |
gsl_vector_free (state->newton);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->qtf)
|
|
Packit |
67cb25 |
gsl_vector_free (state->qtf);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->diag)
|
|
Packit |
67cb25 |
gsl_vector_free (state->diag);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->tau)
|
|
Packit |
67cb25 |
gsl_vector_free (state->tau);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->r)
|
|
Packit |
67cb25 |
gsl_matrix_free (state->r);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (state->J)
|
|
Packit |
67cb25 |
gsl_matrix_free (state->J);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static const gsl_multifit_fdfsolver_type lmder_type =
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
"lmder", /* name */
|
|
Packit |
67cb25 |
sizeof (lmder_state_t),
|
|
Packit |
67cb25 |
&lmder_alloc,
|
|
Packit |
67cb25 |
&lmder_set,
|
|
Packit |
67cb25 |
&lmder_iterate,
|
|
Packit |
67cb25 |
&lmder_gradient,
|
|
Packit |
67cb25 |
&lmder_jac,
|
|
Packit |
67cb25 |
&lmder_free
|
|
Packit |
67cb25 |
};
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static const gsl_multifit_fdfsolver_type lmsder_type =
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
"lmsder", /* name */
|
|
Packit |
67cb25 |
sizeof (lmder_state_t),
|
|
Packit |
67cb25 |
&lmder_alloc,
|
|
Packit |
67cb25 |
&lmsder_set,
|
|
Packit |
67cb25 |
&lmsder_iterate,
|
|
Packit |
67cb25 |
&lmder_gradient,
|
|
Packit |
67cb25 |
&lmder_jac,
|
|
Packit |
67cb25 |
&lmder_free
|
|
Packit |
67cb25 |
};
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
const gsl_multifit_fdfsolver_type *gsl_multifit_fdfsolver_lmder = &lmder_type;
|
|
Packit |
67cb25 |
const gsl_multifit_fdfsolver_type *gsl_multifit_fdfsolver_lmsder = &lmsder_type;
|