yap-6.3/packages/CLPBN/clpbn/horus.yap


/*******************************************************

 Interface with C++
 
********************************************************/

:- module(clpbn_horus,
          [create_lifted_network/3,
           create_ground_network/4,
           set_parfactors_params/2,
           set_factors_params/2,
           run_lifted_solver/3,
           run_ground_solver/3,
           set_vars_information/2,
           set_horus_flag/2,
           free_parfactors/1,
           free_ground_network/1
          ]).


patch_things_up :-
  assert_static(clpbn_horus:set_horus_flag(_,_)).

warning :-
  format(user_error,"Horus library not installed: cannot use bp, fove~n.",[]).

:- catch(load_foreign_files([horus], [], init_predicates), _, patch_things_up) -> true ; warning.


:- set_horus_flag(inf_alg, ve).
%:- set_horus_flag(inf_alg, bp).
%: -set_horus_flag(inf_alg, cbp).

:- set_horus_flag(schedule, seq_fixed).
%:- set_horus_flag(schedule, seq_random).
%:- set_horus_flag(schedule, parallel).
%:- set_horus_flag(schedule, max_residual).

:- set_horus_flag(accuracy, 0.0001).

:- set_horus_flag(max_iter, 1000).

:- set_horus_flag(order_factor_variables, false).
%:- set_horus_flag(order_factor_variables, true).


:- set_horus_flag(use_logarithms, false).
% :- set_horus_flag(use_logarithms, true).
add more support for FOVE. 2012-03-22 19:10:15 +00:00
yay, my first commit 2012-03-31 23:27:37 +01:00			`/*******************************************************`

			`Interface with C++`

			`********************************************************/`

add more support for FOVE. 2012-03-22 19:10:15 +00:00			`:- module(clpbn_horus,`
yay, my first commit 2012-03-31 23:27:37 +01:00			`[create_lifted_network/3,`
Add support to markov networks 2012-04-05 18:38:56 +01:00			`create_ground_network/4,`
yay, my first commit 2012-03-31 23:27:37 +01:00			`set_parfactors_params/2,`
refactorings 2012-04-10 12:53:52 +01:00			`set_factors_params/2,`
yay, my first commit 2012-03-31 23:27:37 +01:00			`run_lifted_solver/3,`
			`run_ground_solver/3,`
Improvements Factor nodes now contain a factor object instead of a pointer. Refactor the way .fg and .uai formats are readed. 2012-04-09 15:40:51 +01:00			`set_vars_information/2,`
yay, my first commit 2012-03-31 23:27:37 +01:00			`set_horus_flag/2,`
			`free_parfactors/1,`
first steps in adapting horus ground solvers to pfl 2012-04-03 19:53:27 +01:00			`free_ground_network/1`
yay, my first commit 2012-03-31 23:27:37 +01:00			`]).`

add more support for FOVE. 2012-03-22 19:10:15 +00:00
PFL support. 2012-04-03 15:01:35 +01:00			`patch_things_up :-`
first steps in adapting horus ground solvers to pfl 2012-04-03 19:53:27 +01:00			`assert_static(clpbn_horus:set_horus_flag(_,_)).`
PFL support. 2012-04-03 15:01:35 +01:00
			`warning :-`
first steps in adapting horus ground solvers to pfl 2012-04-03 19:53:27 +01:00			`format(user_error,"Horus library not installed: cannot use bp, fove~n.",[]).`
PFL support. 2012-04-03 15:01:35 +01:00
more PFL changes. 2012-04-03 16:22:40 +01:00			`:- catch(load_foreign_files([horus], [], init_predicates), _, patch_things_up) -> true ; warning.`
PFL support. 2012-04-03 15:01:35 +01:00

rework the examples and erase the city network in the old format 2012-04-11 15:36:50 +01:00			`:- set_horus_flag(inf_alg, ve).`
			`%:- set_horus_flag(inf_alg, bp).`
yay, my first commit 2012-03-31 23:27:37 +01:00			`%: -set_horus_flag(inf_alg, cbp).`

			`:- set_horus_flag(schedule, seq_fixed).`
			`%:- set_horus_flag(schedule, seq_random).`
			`%:- set_horus_flag(schedule, parallel).`
			`%:- set_horus_flag(schedule, max_residual).`

			`:- set_horus_flag(accuracy, 0.0001).`

			`:- set_horus_flag(max_iter, 1000).`

			`:- set_horus_flag(order_factor_variables, false).`
			`%:- set_horus_flag(order_factor_variables, true).`


			`:- set_horus_flag(use_logarithms, false).`
			`% :- set_horus_flag(use_logarithms, true).`