|
Packit |
67cb25 |
/* multiroots/broyden.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_multiroots.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_linalg.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include "enorm.c"
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* Broyden's method. It is not an efficient or modern algorithm but
|
|
Packit |
67cb25 |
gives an example of a rank-1 update.
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
C.G. Broyden, "A Class of Methods for Solving Nonlinear
|
|
Packit |
67cb25 |
Simultaneous Equations", Mathematics of Computation, vol 19 (1965),
|
|
Packit |
67cb25 |
p 577-593
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
typedef struct
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix *H;
|
|
Packit |
67cb25 |
gsl_matrix *lu;
|
|
Packit |
67cb25 |
gsl_permutation *permutation;
|
|
Packit |
67cb25 |
gsl_vector *v;
|
|
Packit |
67cb25 |
gsl_vector *w;
|
|
Packit |
67cb25 |
gsl_vector *y;
|
|
Packit |
67cb25 |
gsl_vector *p;
|
|
Packit |
67cb25 |
gsl_vector *fnew;
|
|
Packit |
67cb25 |
gsl_vector *x_trial;
|
|
Packit |
67cb25 |
double phi;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
broyden_state_t;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int broyden_alloc (void *vstate, size_t n);
|
|
Packit |
67cb25 |
static int broyden_set (void *vstate, gsl_multiroot_function * function, gsl_vector * x, gsl_vector * f, gsl_vector * dx);
|
|
Packit |
67cb25 |
static int broyden_iterate (void *vstate, gsl_multiroot_function * function, gsl_vector * x, gsl_vector * f, gsl_vector * dx);
|
|
Packit |
67cb25 |
static void broyden_free (void *vstate);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
broyden_alloc (void *vstate, size_t n)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
broyden_state_t *state = (broyden_state_t *) vstate;
|
|
Packit |
67cb25 |
gsl_vector *v, *w, *y, *fnew, *x_trial, *p;
|
|
Packit |
67cb25 |
gsl_permutation *perm;
|
|
Packit |
67cb25 |
gsl_matrix *m, *H;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
m = gsl_matrix_calloc (n, n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (m == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for lu", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->lu = m;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
perm = gsl_permutation_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (perm == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for permutation", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->permutation = perm;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
H = gsl_matrix_calloc (n, n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (H == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_permutation_free (perm);
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for d", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->H = H;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
v = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (v == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_matrix_free (H);
|
|
Packit |
67cb25 |
gsl_permutation_free (perm);
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for v", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->v = v;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
w = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (w == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_vector_free (v);
|
|
Packit |
67cb25 |
gsl_matrix_free (H);
|
|
Packit |
67cb25 |
gsl_permutation_free (perm);
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
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 |
y = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (y == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_vector_free (w);
|
|
Packit |
67cb25 |
gsl_vector_free (v);
|
|
Packit |
67cb25 |
gsl_matrix_free (H);
|
|
Packit |
67cb25 |
gsl_permutation_free (perm);
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for y", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->y = y;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
fnew = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (fnew == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_vector_free (y);
|
|
Packit |
67cb25 |
gsl_vector_free (w);
|
|
Packit |
67cb25 |
gsl_vector_free (v);
|
|
Packit |
67cb25 |
gsl_matrix_free (H);
|
|
Packit |
67cb25 |
gsl_permutation_free (perm);
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for fnew", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->fnew = fnew;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
x_trial = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (x_trial == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_vector_free (fnew);
|
|
Packit |
67cb25 |
gsl_vector_free (y);
|
|
Packit |
67cb25 |
gsl_vector_free (w);
|
|
Packit |
67cb25 |
gsl_vector_free (v);
|
|
Packit |
67cb25 |
gsl_matrix_free (H);
|
|
Packit |
67cb25 |
gsl_permutation_free (perm);
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
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 |
p = gsl_vector_calloc (n);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (p == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_vector_free (x_trial);
|
|
Packit |
67cb25 |
gsl_vector_free (fnew);
|
|
Packit |
67cb25 |
gsl_vector_free (y);
|
|
Packit |
67cb25 |
gsl_vector_free (w);
|
|
Packit |
67cb25 |
gsl_vector_free (v);
|
|
Packit |
67cb25 |
gsl_matrix_free (H);
|
|
Packit |
67cb25 |
gsl_permutation_free (perm);
|
|
Packit |
67cb25 |
gsl_matrix_free (m);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_ERROR ("failed to allocate space for p", GSL_ENOMEM);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->p = p;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
broyden_set (void *vstate, gsl_multiroot_function * function, gsl_vector * x, gsl_vector * f, gsl_vector * dx)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
broyden_state_t *state = (broyden_state_t *) vstate;
|
|
Packit |
67cb25 |
size_t i, j, n = function->n;
|
|
Packit |
67cb25 |
int signum = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
GSL_MULTIROOT_FN_EVAL (function, x, f);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_multiroot_fdjacobian (function, x, f, GSL_SQRT_DBL_EPSILON, state->lu);
|
|
Packit |
67cb25 |
gsl_linalg_LU_decomp (state->lu, state->permutation, &signum);
|
|
Packit |
67cb25 |
gsl_linalg_LU_invert (state->lu, state->permutation, state->H);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
gsl_matrix_set(state->H,i,j,-gsl_matrix_get(state->H,i,j));
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_vector_set (dx, i, 0.0);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->phi = enorm (f);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
broyden_iterate (void *vstate, gsl_multiroot_function * function, gsl_vector * x, gsl_vector * f, gsl_vector * dx)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
broyden_state_t *state = (broyden_state_t *) vstate;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
double phi0, phi1, t, lambda;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_matrix *H = state->H;
|
|
Packit |
67cb25 |
gsl_vector *p = state->p;
|
|
Packit |
67cb25 |
gsl_vector *y = state->y;
|
|
Packit |
67cb25 |
gsl_vector *v = state->v;
|
|
Packit |
67cb25 |
gsl_vector *w = state->w;
|
|
Packit |
67cb25 |
gsl_vector *fnew = state->fnew;
|
|
Packit |
67cb25 |
gsl_vector *x_trial = state->x_trial;
|
|
Packit |
67cb25 |
gsl_matrix *lu = state->lu;
|
|
Packit |
67cb25 |
gsl_permutation *perm = state->permutation;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
size_t i, j, iter;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
size_t n = function->n;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* p = H f */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double sum = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
sum += gsl_matrix_get (H, i, j) * gsl_vector_get (f, j);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
gsl_vector_set (p, i, sum);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
t = 1;
|
|
Packit |
67cb25 |
iter = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
phi0 = state->phi;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
new_step:
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double pi = gsl_vector_get (p, i);
|
|
Packit |
67cb25 |
double xi = gsl_vector_get (x, i);
|
|
Packit |
67cb25 |
gsl_vector_set (x_trial, i, xi + t * pi);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = GSL_MULTIROOT_FN_EVAL (function, x_trial, fnew);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (status != GSL_SUCCESS)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return GSL_EBADFUNC;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
phi1 = enorm (fnew);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
iter++ ;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (phi1 > phi0 && iter < 10 && t > 0.1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
/* full step goes uphill, take a reduced step instead */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
double theta = phi1 / phi0;
|
|
Packit |
67cb25 |
t *= (sqrt (1.0 + 6.0 * theta) - 1.0) / (3.0 * theta);
|
|
Packit |
67cb25 |
goto new_step;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (phi1 > phi0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
/* need to recompute Jacobian */
|
|
Packit |
67cb25 |
int signum = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_multiroot_fdjacobian (function, x, f, GSL_SQRT_DBL_EPSILON, lu);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
gsl_matrix_set(lu,i,j,-gsl_matrix_get(lu,i,j));
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_linalg_LU_decomp (lu, perm, &signum);
|
|
Packit |
67cb25 |
gsl_linalg_LU_invert (lu, perm, H);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_linalg_LU_solve (lu, perm, f, p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
t = 1;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double pi = gsl_vector_get (p, i);
|
|
Packit |
67cb25 |
double xi = gsl_vector_get (x, i);
|
|
Packit |
67cb25 |
gsl_vector_set (x_trial, i, xi + t * pi);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = GSL_MULTIROOT_FN_EVAL (function, x_trial, fnew);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (status != GSL_SUCCESS)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return GSL_EBADFUNC;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
phi1 = enorm (fnew);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* y = f' - f */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double yi = gsl_vector_get (fnew, i) - gsl_vector_get (f, i);
|
|
Packit |
67cb25 |
gsl_vector_set (y, i, yi);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* v = H y */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double sum = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
sum += gsl_matrix_get (H, i, j) * gsl_vector_get (y, j);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_vector_set (v, i, sum);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* lambda = p . v */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
lambda = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
lambda += gsl_vector_get (p, i) * gsl_vector_get (v, i);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (lambda == 0)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("approximation to Jacobian has collapsed", GSL_EZERODIV) ;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* v' = v + t * p */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double vi = gsl_vector_get (v, i) + t * gsl_vector_get (p, i);
|
|
Packit |
67cb25 |
gsl_vector_set (v, i, vi);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* w^T = p^T H */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double sum = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
sum += gsl_matrix_get (H, j, i) * gsl_vector_get (p, j);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_vector_set (w, i, sum);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* Hij -> Hij - (vi wj / lambda) */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double vi = gsl_vector_get (v, i);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double wj = gsl_vector_get (w, j);
|
|
Packit |
67cb25 |
double Hij = gsl_matrix_get (H, i, j) - vi * wj / lambda;
|
|
Packit |
67cb25 |
gsl_matrix_set (H, i, j, Hij);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* copy fnew into f */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_vector_memcpy (f, fnew);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* copy x_trial into x */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_vector_memcpy (x, x_trial);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double pi = gsl_vector_get (p, i);
|
|
Packit |
67cb25 |
gsl_vector_set (dx, i, t * pi);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
state->phi = phi1;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static void
|
|
Packit |
67cb25 |
broyden_free (void *vstate)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
broyden_state_t *state = (broyden_state_t *) vstate;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_matrix_free (state->H);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_matrix_free (state->lu);
|
|
Packit |
67cb25 |
gsl_permutation_free (state->permutation);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_vector_free (state->v);
|
|
Packit |
67cb25 |
gsl_vector_free (state->w);
|
|
Packit |
67cb25 |
gsl_vector_free (state->y);
|
|
Packit |
67cb25 |
gsl_vector_free (state->p);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_vector_free (state->fnew);
|
|
Packit |
67cb25 |
gsl_vector_free (state->x_trial);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static const gsl_multiroot_fsolver_type broyden_type =
|
|
Packit |
67cb25 |
{"broyden", /* name */
|
|
Packit |
67cb25 |
sizeof (broyden_state_t),
|
|
Packit |
67cb25 |
&broyden_alloc,
|
|
Packit |
67cb25 |
&broyden_set,
|
|
Packit |
67cb25 |
&broyden_iterate,
|
|
Packit |
67cb25 |
&broyden_free};
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
const gsl_multiroot_fsolver_type *gsl_multiroot_fsolver_broyden = &broyden_type;
|