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

new interface to display

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-10-29 18:24:50 +00:00
parent 7cbdad30f2
commit 22b17b5856
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CLPBN/clpbn/jt.yap
View File

@ -73,7 +73,7 @@
clpbn_bind_vals/3]). clpbn_bind_vals/3]).
jt([[]],_,_) :- !. jt([[]],_,_) :- !.
jt(LVs,Vs0,AllDiffs) :- jt([LVs],Vs0,AllDiffs) :-
get_graph(Vs0, BayesNet, CPTs, Evidence), get_graph(Vs0, BayesNet, CPTs, Evidence),
build_jt(BayesNet, CPTs, JTree), build_jt(BayesNet, CPTs, JTree),
% JTree is a dgraph % JTree is a dgraph
@ -83,7 +83,7 @@ jt(LVs,Vs0,AllDiffs) :-
propagate_evidence(Evidence, NewTree, EvTree), propagate_evidence(Evidence, NewTree, EvTree),
message_passing(EvTree, MTree), message_passing(EvTree, MTree),
get_margins(MTree, LVs, LPs), get_margins(MTree, LVs, LPs),
clpbn_bind_vals(LVs,LPs,AllDiffs). clpbn_bind_vals([LVs],[LPs],AllDiffs).
get_graph(LVs, BayesNet, CPTs, Evidence) :- get_graph(LVs, BayesNet, CPTs, Evidence) :-

2
CLPBN/clpbn/vel.yap
View File

@ -73,7 +73,7 @@ vel([LVs],Vs0,AllDiffs) :-
% from array to list % from array to list
list_from_CPT(Ps, LPs), list_from_CPT(Ps, LPs),
% bind Probs back to variables so that they can be output. % bind Probs back to variables so that they can be output.
clpbn_bind_vals(LVs,LPs,AllDiffs). clpbn_bind_vals([LVs],[LPs],AllDiffs).
% %
% just get a list of variables plus associated tables % just get a list of variables plus associated tables