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

make clp(bn) work again.

Browse Source
This commit is contained in:
Vitor Santos Costa
2010-06-30 17:54:58 +02:00
parent 8f8ba6221e
commit 8690fb8ca0
4 changed files with 36 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
packages/CLPBN/clpbn.yap
View File

@@ -169,7 +169,7 @@ add_evidence(V,K,_,V) :-
clpbn_marginalise(V, Dist) :-
attributes:all_attvars(AVars),
project_attributes([V], AVars),
vel:get_atts(V, posterior(_,_,Dist,_)).
clpbn_display:get_atts(V, posterior(_,_,Dist,_)).
%
% called by top-level

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

@@ -33,7 +33,7 @@ gen_eqs([V], D, (V=D)) :- !.
gen_eqs([V|Vs], [D|Ds], ((V=D),Eqs)) :-
gen_eqs(Vs,Ds,Eqs).
add_alldiffs([],Eqs,Eqs).
add_alldiffs([],Eqs,Eqs) :- !.
add_alldiffs(AllDiffs,Eqs,(Eqs/alldiff(AllDiffs))).