static void compute_vertex_areas(const Vertices vertices, double areas[N]);
static double best_energy= DBL_MAX;
-static void flushoutput(void);
-static void diee(const char *what) { perror(what); exit(16); }
static void cost(double *energy, double tweight, double tcost);
#define COST(weight, compute) cost(&energy, (weight), (compute))
*energy += tenergy;
}
-static void flushoutput(void) {
- if (fflush(stdout) || ferror(stdout)) diee("stdout");
-}
-
static void compute_vertex_areas(const Vertices vertices, double areas[N]) {
int v0,v1,v2, e1,e2, k;
* coordinates. Hopefully this won't be too slow ...
*/
-static void gsldie(const char *what, int status) {
- fprintf(stderr,"gsl function failed: %s: %s\n", what, gsl_strerror(status));
- exit(-1);
-}
-
static gsl_multimin_fminimizer *minimiser;
static const double stop_epsilon= 1e-4;
-#define DIM (N*D3)
-
static double minfunc_f(const gsl_vector *x, void *params) {
assert(x->size == DIM);
assert(x->stride == 1);
FOR_RIM_VERTEX(vx,vy,v)
step_size[v][3] *= 0.1;
- r= gsl_multimin_fminimizer_set(minimiser, &multimin_function,
- &initial_gsl, &step_size_gsl);
- if (r) { gsldie("fminimizer_set",r); }
+ GA( gsl_multimin_fminimizer_set(minimiser, &multimin_function,
+ &initial_gsl, &step_size_gsl) );
for (;;) {
- r= gsl_multimin_fminimizer_iterate(minimiser);
- if (r) { gsldie("fminimizer_iterate",r); }
+ GA( gsl_multimin_fminimizer_iterate(minimiser) );
size= gsl_multimin_fminimizer_size(minimiser);
r= gsl_multimin_test_size(size, stop_epsilon);