recompute tables when commit.

2011-09-20 09:55:09 +01:00 · 2011-09-20 09:55:09 +01:00 · 5baf42320b
commit 5baf42320b
parent bfc1def1d5
1 changed files with 3 additions and 0 deletions
--- a/packages/CLPBN/learning/aleph_params.yap
+++ b/packages/CLPBN/learning/aleph_params.yap
@ -128,9 +128,12 @@ store_cl(Cl) :-

 add_new_clause(_,(_ :- true),_,_) :- !.
 add_new_clause(_,(H :- B),_,_) :-
+%trace,
 %	user:db_usage,
 %	user:db_dynamic,
 	domain(H, K, V, D),
+	user:cost((H :- B), _, Cost),
+	format(user_error,'Current Cost: ~w.~n', [Cost]),
 	rewrite_body(B, IB, Vs, _, ( !, { V = K with p(D, CPTList, Vs) })),
 	% need to remember which CPT we want
 	get_dist_key(Id, K),