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

hack to make ProbLog run faster on very large domains.

Browse Source
This commit is contained in:
Vítor Manuel de Morais Santos Costa
2009-11-11 10:54:05 +00:00
parent 8ecac6c2f9
commit 51f6f509e1
3 changed files with 52 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
packages/ProbLog/problog/flags.yap
View File

@@ -216,7 +216,7 @@
:- ensure_loaded(library(system)).
:- dynamic bdd_time/1, first_threshold/1, last_threshold/1, id_stepsize/1, prunecheck/1, maxsteps/1, mc_batchsize/1, mc_logfile/1, bdd_file/1, bdd_par_file/1, bdd_result/1, work_dir/1, save_bdd/1, problog_verbose/1.
:- dynamic bdd_time/1, first_threshold/1, last_threshold/1, id_stepsize/1, prunecheck/1, maxsteps/1, mc_batchsize/1, mc_logfile/1, bdd_file/1, bdd_par_file/1, bdd_result/1, work_dir/1, save_bdd/1, problog_verbose/1, hacked_proofs/1.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% global parameters that can be set using set_problog_flag/2
@@ -258,6 +258,8 @@ get_problog_flag(save_bdd,X) :-
save_bdd(X).
get_problog_flag(verbose,X) :-
problog_verbose(X).
get_problog_flag(hacked_proofs,X) :-
hacked_proofs(X).
%%%%%%%%%%%%
@@ -472,6 +474,16 @@ set_problog_flag(verbose,_) :-
flush_output(user),
fail.
set_problog_flag(hacked_proofs,true) :-
retractall(hacked_proofs(_)),
assert(hacked_proofs(true)).
set_problog_flag(hacked_proofs,false) :-
retractall(hacked_proofs(_)),
assert(hacked_proofs(true)).
set_problog_flag(hacked_proofs,V) :-
format(user,'\% ERROR: value ~w should be \'true\' or \'false\'!~n',[V]),
flush_output(user),
fail.
%%%%%%%%%%%%%%%%%%%%%%%%
% show values