46 lines
1.1 KiB
Prolog
46 lines
1.1 KiB
Prolog
|
|
/*******************************************************
|
|
|
|
Interface with C++
|
|
|
|
********************************************************/
|
|
|
|
:- module(clpbn_horus,
|
|
[create_lifted_network/3,
|
|
create_ground_network/2,
|
|
set_parfactors_params/2,
|
|
set_bayes_net_params/2,
|
|
run_lifted_solver/3,
|
|
run_ground_solver/3,
|
|
set_extra_vars_info/2,
|
|
set_horus_flag/2,
|
|
free_parfactors/1,
|
|
free_bayesian_network/1
|
|
]).
|
|
|
|
|
|
:- load_foreign_files(['horus'], [], init_predicates).
|
|
|
|
|
|
%:- set_horus_flag(inf_alg, ve).
|
|
:- set_horus_flag(inf_alg, bn_bp).
|
|
%:- set_horus_flag(inf_alg, fg_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).
|
|
|