Fix EM typos
This commit is contained in:
parent
29b2d4f3df
commit
1bb1138b3a
|
@ -134,14 +134,15 @@ setup_em_network(Items, state(AllDists, AllDistInstances, MargVars, SolverState)
|
||||||
clpbn_init_solver(MargVars, AllVars, _, SolverState).
|
clpbn_init_solver(MargVars, AllVars, _, SolverState).
|
||||||
|
|
||||||
run_examples(user:Exs, Keys, Factors, EList) :-
|
run_examples(user:Exs, Keys, Factors, EList) :-
|
||||||
Exs = [[_]|_], !,
|
Exs = [[_|_]|_], !,
|
||||||
foldl(add_key, Exs, ,KExs, 1, _),
|
foldl(add_key, Exs, KExs, 1, _),
|
||||||
findall(ex(EKs, EFs, EEs), run_example(Exs, EKs, EFs, EEs), VExs),
|
findall(ex(EKs, EFs, EEs), run_example(KExs, EKs, EFs, EEs), VExs),
|
||||||
foldl4(join_example, VExs, [], Keys, [], Factors, [], EList, 0, _).
|
foldl4(join_example, VExs, [], Keys, [], Factors, [], EList, 0, _).
|
||||||
run_examples(Items, Keys, Factors, EList) :-
|
run_examples(Items, Keys, Factors, EList) :-
|
||||||
run_ex(Items, Keys, Factors, EList).
|
run_ex(Items, Keys, Factors, EList).
|
||||||
|
|
||||||
add_key(Ex, I:Ex, I, I1) :- I1 is I+1.
|
add_key(Ex, I:Ex, I, I1) :-
|
||||||
|
I1 is I+1.
|
||||||
|
|
||||||
join_example( ex(EKs, EFs, EEs), Keys0, Keys, Factors0, Factors, EList0, EList, I0, I) :-
|
join_example( ex(EKs, EFs, EEs), Keys0, Keys, Factors0, Factors, EList0, EList, I0, I) :-
|
||||||
I is I0+1,
|
I is I0+1,
|
||||||
|
|
Reference in New Issue