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

removed singletons

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2135 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rzf 2008-03-09 08:21:00 +00:00
parent ee2c0ca203
commit 93e6f17c3b
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
CLPBN/clpbn/bnt.yap
View File

@ -398,13 +398,12 @@ marginalize([V], _SortedVars,_NunmberedVars, Ps) :- !,
marginalize(Vs, SortedVars, NumberedVars,Ps) :- marginalize(Vs, SortedVars, NumberedVars,Ps) :-
bnt_solver(jtree),!, bnt_solver(jtree),!,
matlab_get_variable(loglik, Den), matlab_get_variable(loglik, Den),
D is exp(Den),
clpbn_display:get_all_combs(Vs, Vals), clpbn_display:get_all_combs(Vs, Vals),
mk_evidence(SortedVars, NumberedVars, Ev), mk_evidence(SortedVars, NumberedVars, Ev),
length(SortedVars,L), length(SortedVars,L),
cycle_values(Den, Ev, Vs, L, Vals, Ps). cycle_values(Den, Ev, Vs, L, Vals, Ps).
cycle_values(_D, Ev, _Vs, _Size, [], []). cycle_values(_D, _Ev, _Vs, _Size, [], []).
cycle_values(Den,Ev,Vs,Size,[H|T],[HP|TP]):- cycle_values(Den,Ev,Vs,Size,[H|T],[HP|TP]):-
mk_evidence_query(Vs, H, EvQuery), mk_evidence_query(Vs, H, EvQuery),