/*********************************************************************** * Adaptive Simulated Annealing (ASA) * Lester Ingber * Copyright (c) 1993-1996 Lester Ingber. All Rights Reserved. * The LICENSE file must be included with ASA code. ***********************************************************************/ /* $Id: user.h,v 13.5 1996/08/16 10:06:30 ingber Exp ingber $ */ /* user.h for Adaptive Simulated Annealing */ #include "asa_user.h" #if ASA_TEMPLATE_ASA_OUT_PID #include #endif /* print the time every PRINT_FREQUENCY function evaluations Define PRINT_FREQUENCY to 0 to not print out the time. */ #define PRINT_FREQUENCY ((LONG_INT) 1000) #if USER_ACCEPTANCE_TEST #define MIN(x,y) ((x) < (y) ? (x) : (y)) #endif FILE *ptr_out; /* system function prototypes */ #if ASA_TEMPLATE_ASA_OUT_PID int getpid (); #endif #if HAVE_ANSI /* This block gives trouble under some Ultrix */ #if FALSE #if OPTIONS_FILE int fscanf (FILE * fp, char *string,...); #endif #endif #if IO_PROTOTYPES #if OPTIONS_FILE //#zzzint fscanf (); #endif #endif /* user-defined */ double cost_function (double *cost_parameters, double *parameter_lower_bound, double *parameter_upper_bound, double *cost_tangents, double *cost_curvature, ALLOC_INT * parameter_dimension, int *parameter_int_real, int *cost_flag, int *exit_code, USER_DEFINES * USER_OPTIONS); #if ASA_LIB void asa_main ( #if ASA_TEMPLATE_LIB double *main_cost_value, double *main_cost_parameters, int *main_exit_code #endif ); #else int main (int argc, char **argv); #endif #if ASA_TEMPLATE_LIB int main (); #endif /* possibly with accompanying data file */ void initialize_parameters (double *cost_parameters, double *parameter_lower_bound, double *parameter_upper_bound, double *cost_tangents, double *cost_curvature, ALLOC_INT * parameter_dimension, int *parameter_int_real, #if OPTIONS_FILE_DATA FILE * ptr_options, #endif USER_DEFINES * USER_OPTIONS); #if ASA_LIB LONG_INT asa_seed (LONG_INT seed); #endif double myrand (LONG_INT * rand_seed); double randflt (LONG_INT * rand_seed); #if USER_COST_SCHEDULE double user_cost_schedule (double test_temperature, USER_DEFINES * USER_OPTIONS); #endif #if USER_ACCEPTANCE_TEST void user_acceptance_test (double current_cost, ALLOC_INT * parameter_dimension, USER_DEFINES * USER_OPTIONS); #endif #if USER_GENERATING_FUNCTION double user_generating_distrib (LONG_INT * seed, ALLOC_INT * parameter_dimension, ALLOC_INT index_v, double temperature_v, double init_param_temp_v, double temp_scale_params_v, double parameter_v, double parameter_range_v, USER_DEFINES * USER_OPTIONS); #endif #if USER_REANNEAL_COST int user_reanneal_cost (double *cost_best, double *cost_last, double *initial_cost_temperature, double *current_cost_temperature, USER_DEFINES * USER_OPTIONS); #endif #if USER_REANNEAL_PARAMETERS double user_reanneal_params (double current_temp, double tangent, double max_tangent, USER_DEFINES * USER_OPTIONS); #endif #if ASA_TEMPLATE_SAMPLE void sample (FILE * ptr_out, FILE * ptr_asa); #endif #else /* HAVE_ANSI */ #if IO_PROTOTYPES #if OPTIONS_FILE int fscanf (); #endif #endif /* user-defined */ double cost_function (); #if ASA_LIB void asa_main (); #else int main (); #endif #if ASA_TEMPLATE_LIB int main (); #endif void initialize_parameters (); /* possibly with accompanying data file */ #if ASA_LIB LONG_INT asa_seed (); #endif double myrand (); double randflt (); void initialize_rng (); #if USER_COST_SCHEDULE double user_cost_schedule (); #endif #if USER_ACCEPTANCE_TEST void user_acceptance_test (); #endif #if USER_GENERATING_FUNCTION double user_generating_distrib (); #endif #if USER_REANNEAL_COST int user_reanneal_cost (); #endif #if USER_REANNEAL_PARAMETERS double user_reanneal_params (); #endif #if ASA_TEMPLATE_SAMPLE void sample (); #endif #endif /* HAVE_ANSI */ #if SELF_OPTIMIZE static LONG_INT funevals = 0; #define RECUR_PRINT_FREQUENCY ((LONG_INT) 1) #if HAVE_ANSI /* HAVE_ANSI SELF_OPTIMIZE */ double recur_cost_function (double *recur_cost_parameters, double *recur_parameter_lower_bound, double *recur_parameter_upper_bound, double *recur_cost_tangents, double *recur_cost_curvature, ALLOC_INT * recur_parameter_dimension, int *recur_parameter_int_real, int *recur_cost_flag, int *recur_exit_code, USER_DEFINES * RECUR_USER_OPTIONS); void recur_initialize_parameters (double *recur_cost_parameters, double *recur_parameter_lower_bound, double *recur_parameter_upper_bound, double *recur_cost_tangents, double *recur_cost_curvature, ALLOC_INT * recur_parameter_dimension, int *recur_parameter_int_real, #if RECUR_OPTIONS_FILE_DATA FILE * recur_ptr_options, #endif USER_DEFINES * RECUR_USER_OPTIONS); #if USER_COST_SCHEDULE double recur_user_cost_schedule (double test_temperature, USER_DEFINES * RECUR_USER_OPTIONS); #endif #if USER_ACCEPTANCE_TEST void recur_user_acceptance_test (double current_cost, ALLOC_INT * recur_parameter_dimension, USER_DEFINES * RECUR_USER_OPTIONS); #endif #if USER_GENERATING_FUNCTION double recur_user_generating_distrib (LONG_INT * seed, ALLOC_INT * recur_parameter_dimension, ALLOC_INT index_v, double temperature_v, double init_param_temp_v, double temp_scale_params_v, double parameter_v, double parameter_range_v, USER_DEFINES * RECUR_USER_OPTIONS); #endif #if USER_REANNEAL_COST int recur_user_reanneal_cost (double *cost_best, double *cost_last, double *initial_cost_temperature, double *current_cost_temperature, USER_DEFINES * RECUR_USER_OPTIONS); #endif #if USER_REANNEAL_PARAMETERS double recur_user_reanneal_params (double current_temp, double tangent, double max_tangent, USER_DEFINES * RECUR_USER_OPTIONS); #endif #else /* HAVE_ANSI SELF_OPTIMIZE */ double recur_cost_function (); void recur_initialize_parameters (); #if USER_COST_SCHEDULE double recur_user_cost_schedule (); #endif #if USER_ACCEPTANCE_TEST void recur_user_acceptance_test (); #endif #if USER_GENERATING_FUNCTION double recur_user_generating_distrib (); #endif #if USER_REANNEAL_COST int recur_user_reanneal_cost (); #endif #if USER_REANNEAL_PARAMETERS double recur_user_reanneal_params (); #endif #endif /* HAVE_ANSI */ #endif /* SELF_OPTIMIZE */