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

Trivial

Browse Source
This commit is contained in:
Tiago Gomes 2012-12-17 11:56:15 +00:00
parent e35cf51476
commit d03ea1509e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/CLPBN/learning/em.yap
View File

@ -193,12 +193,12 @@ ltables([Id-T|Tables], [Key-LTable|FTables]) :-
generate_dists(Factors, EList, AllDists, AllInfo, MargVars) :- generate_dists(Factors, EList, AllDists, AllInfo, MargVars) :-
b_hash_new(Ev0), b_hash_new(Ev0),
foldl(elist_to_hash, EList, Ev0, Ev), foldl(elist_to_hash, EList, Ev0, Ev),
maplist(process_factor(Ev), Factors, Dists0), maplist(process_factor(Ev), Factors, Dists0),
sort(Dists0, Dists1), sort(Dists0, Dists1),
group(Dists1, AllDists, AllInfo, MargVars0, []), group(Dists1, AllDists, AllInfo, MargVars0, []),
sort(MargVars0, MargVars). sort(MargVars0, MargVars).
elist_to_hash(K=V, Ev0, Ev) :- elist_to_hash(K=V, Ev0, Ev) :-
b_hash_insert(Ev0, K, V, Ev). b_hash_insert(Ev0, K, V, Ev).