From 22b17b5856ddf42b59f1f9d3855488f2e28a470e Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Wed, 29 Oct 2008 18:24:50 +0000 Subject: [PATCH] new interface to display --- CLPBN/clpbn/jt.yap | 4 ++-- CLPBN/clpbn/vel.yap | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/CLPBN/clpbn/jt.yap b/CLPBN/clpbn/jt.yap index 843cc917f..54807599d 100644 --- a/CLPBN/clpbn/jt.yap +++ b/CLPBN/clpbn/jt.yap @@ -73,7 +73,7 @@ clpbn_bind_vals/3]). jt([[]],_,_) :- !. -jt(LVs,Vs0,AllDiffs) :- +jt([LVs],Vs0,AllDiffs) :- get_graph(Vs0, BayesNet, CPTs, Evidence), build_jt(BayesNet, CPTs, JTree), % JTree is a dgraph @@ -83,7 +83,7 @@ jt(LVs,Vs0,AllDiffs) :- propagate_evidence(Evidence, NewTree, EvTree), message_passing(EvTree, MTree), get_margins(MTree, LVs, LPs), - clpbn_bind_vals(LVs,LPs,AllDiffs). + clpbn_bind_vals([LVs],[LPs],AllDiffs). get_graph(LVs, BayesNet, CPTs, Evidence) :- diff --git a/CLPBN/clpbn/vel.yap b/CLPBN/clpbn/vel.yap index 9c829e4ac..0199bc6e0 100644 --- a/CLPBN/clpbn/vel.yap +++ b/CLPBN/clpbn/vel.yap @@ -73,7 +73,7 @@ vel([LVs],Vs0,AllDiffs) :- % from array to list list_from_CPT(Ps, LPs), % 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