diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add support to markov networks

Browse Source
This commit is contained in:
Tiago Gomes
2012-04-05 18:38:56 +01:00
parent 6c3add2ebd
commit 0d23591058
32 changed files with 857 additions and 616 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
packages/CLPBN/clpbn/bp.yap
View File

@@ -40,7 +40,7 @@
get_pfl_parameters/2
]).
:- use_module(library(clpbn/horus)).
% :- use_module(library(clpbn/horus)).
:- use_module(library(lists)).
@@ -50,7 +50,7 @@
:- use_module(horus,
[create_ground_network/2,
[create_ground_network/4,
set_bayes_net_params/2,
run_ground_solver/3,
set_extra_vars_info/2,
@@ -75,11 +75,19 @@ call_bp_ground(QueryKeys, AllKeys, Factors, Evidence, Solutions) :-
writeln(factorIds:FactorIds), writeln(''),
writeln(evidence:Evidence), writeln(''),
writeln(evIds:EvIds),
create_ground_network(Type, FactorIds, GroundNetwork).
%run_ground_solver(Network, QueryIds, EvIds, Solutions),
create_ground_network(Type, FactorIds, EvIds, Network),
run_ground_fixme_solver(ground(Network,Hash), QueryKeys, Solutions).
%free_graphical_model(Network).
run_ground_fixme_solver(ground(Network,Hash), QueryKeys, Solutions) :-
%get_dists_parameters(DistIds, DistsParams),
%set_bayes_net_params(Network, DistsParams),
%vars_to_ids(QueryVars, QueryVarsIds),
list_of_keys_to_ids(QueryKeys, Hash, QueryIds),
run_ground_solver(Network, [QueryIds], Solutions).
get_factors_type([f(bayes, _, _)|_], bayes) :- ! .
get_factors_type([f(markov, _, _)|_], markov) :- ! .