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

recompute tables when commit.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-09-20 09:55:09 +01:00
parent bfc1def1d5
commit 5baf42320b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/CLPBN/learning/aleph_params.yap
View File

@ -128,9 +128,12 @@ store_cl(Cl) :-
add_new_clause(_,(_ :- true),_,_) :- !. add_new_clause(_,(_ :- true),_,_) :- !.
add_new_clause(_,(H :- B),_,_) :- add_new_clause(_,(H :- B),_,_) :-
%trace,
% user:db_usage, % user:db_usage,
% user:db_dynamic, % user:db_dynamic,
domain(H, K, V, D), 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) })), rewrite_body(B, IB, Vs, _, ( !, { V = K with p(D, CPTList, Vs) })),
% need to remember which CPT we want % need to remember which CPT we want
get_dist_key(Id, K), get_dist_key(Id, K),