more PFL support.

This commit is contained in:
Vítor Santos Costa
2012-09-26 00:04:58 +01:00
parent 83418f8f27
commit 83c5c7e7af
6 changed files with 209 additions and 95 deletions

View File

@@ -37,7 +37,8 @@
[ve/3,
check_if_ve_done/1,
init_ve_solver/4,
run_ve_solver/3
run_ve_solver/3,
call_ve_ground_solver/6
]).
:- use_module('clpbn/horus_ground',
@@ -321,6 +322,8 @@ call_ground_solver(bp, GVars, GoalKeys, Keys, Factors, Evidence) :- !,
call_horus_ground_solver(GVars, GoalKeys, Keys, Factors, Evidence, _Answ).
call_ground_solver(bdd, GVars, GoalKeys, Keys, Factors, Evidence) :- !,
call_bdd_ground_solver(GVars, GoalKeys, Keys, Factors, Evidence, _Answ).
call_ground_solver(ve, GVars, GoalKeys, Keys, Factors, Evidence) :- !,
call_ve_ground_solver(GVars, GoalKeys, Keys, Factors, Evidence, _Answ).
call_ground_solver(Solver, GVars, _GoalKeys, Keys, Factors, Evidence) :-
% traditional solver
b_hash_new(Hash0),