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

ddnnf support

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-04-23 07:13:25 -05:00
parent 040c1c7fa7
commit 32a905bc8b
2 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/bdd/ddnnf.yap
View File

@ -16,17 +16,19 @@
% in DDNNF, Exs \in LVars into DDNNF with extra existential vars % in DDNNF, Exs \in LVars into DDNNF with extra existential vars
% %
cnf_to_ddnnf(CNF0, PVs, DDNNF) :- cnf_to_ddnnf(CNF0, PVs, DDNNF) :-
term_variables(CNF0, Vars),
list2cnf(CNF0, CNF, []), list2cnf(CNF0, CNF, []),
new_variables_in_term(Vars, CNF, LVars), mkddnnf(CNF, PVs, DDNNF).
append(Vars, LVars, AllVars),
mkddnnf(CNF, PVs, DDNNF) :-
term_variables(CNF, AllVars),
% (numbervars(CNF,1,_), writeln(CNF), fail ; true), % (numbervars(CNF,1,_), writeln(CNF), fail ; true),
open(dimacs, write, S), open(dimacs, write, S),
cnf_to_file(CNF, AllVars, S), cnf_to_file(CNF, AllVars, S),
close(S), close(S),
% execute c2d at this point, but we're lazy% % execute c2d at this point, but we're lazy%
% unix(system('c2d -dt_method 3 -in dimacs')), % unix(system('c2d -dt_method 3 -in dimacs')),
unix(system('c2d -visualize -in dimacs')), % unix(system('c2d -visualize -in dimacs')),
unix(system('dsharp -Fnnf dimacs.nnf dimacs')),
open('dimacs.nnf',read,R), open('dimacs.nnf',read,R),
SVars =.. [v|AllVars], SVars =.. [v|AllVars],
% ones(LVars), % ones(LVars),
@ -100,19 +102,7 @@ disj(A, NO) -->
ddnnf(List, PVs, DDNNF) :- ddnnf(List, PVs, DDNNF) :-
exps2conj(List, Conj), exps2conj(List, Conj),
cnf(Conj, CNF), cnf(Conj, CNF),
% (numbervars(CNF,1,_), writeln(Vars:CNF), fail ; true), mkddnnf(CNF, PVs, DDNNF).
open(dimacs, write, S),
variables_in_term(PVs, CNF, LVars),
append(PVs, LVars, AllVars),
cnf_to_file(CNF, AllVars, S),
close(S),
% execute c2d at this point, but we're lazy
unix(system('c2d -in dimacs')),
open('dimacs.nnf',read,R),
SVars =.. [v|AllVars],
% ones(LVars),
input_ddnnf(R, SVars, PVs, DDNNF),
close(R).
exps2conj((C1,C2), CC1*CC2) :- !, exps2conj((C1,C2), CC1*CC2) :- !,
exps2conj(C1, CC1), exps2conj(C1, CC1),

2
packages/bdd/simpbool.yap
View File

@ -6,7 +6,7 @@
:- module(simplify_boolean, :- module(simplify_boolean,
[simplify_exp/2]). [simplify_exp/2]).
%simplify_exp(V,V) :- !. %simplify_exp(V,V) :- writeln(V), fail, !.
simplify_exp(V,V) :- var(V), !. simplify_exp(V,V) :- var(V), !.
simplify_exp(S1+S2,NS) :- !, simplify_exp(S1+S2,NS) :- !,
simplify_exp(S1, SS1), simplify_exp(S1, SS1),