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

CLP(BN) stuff.

Browse Source
This commit is contained in:
Vitor Santos Costa
2012-06-01 13:17:39 +01:00
parent 39f392be9c
commit 71a62307f4
7 changed files with 39 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
packages/CLPBN/clpbn/display.yap
View File

@@ -46,11 +46,11 @@ clpbn_bind_vals([Vs|MoreVs],[Ps|MorePs],AllDiffs) :-
clpbn_bind_vals2([],_,_) :- !.
% simple case, we want a distribution on a single variable.
bind_vals([V],Ps) :-
clpbn_bind_vals2([V],Ps,AllDiffs) :-
use_parfactors(on), !,
clpbn:get_atts(V, [key(K)]),
pfl:skolem(K,Vals),
put_atts(V, posterior([V], Vals, Ps)).
put_atts(V, posterior([V], Vals, Ps, AllDiffs)).
% complex case, we want a joint distribution, do it on a leader.
% should split on cliques ?
clpbn_bind_vals2(Vs,Ps,AllDiffs) :-