/** @defgroup BDDs Binary Decision Diagrams and Friends @ingroup packages @{ This library provides an interface to the BDD package CUDD. It requires CUDD compiled as a dynamic library. In Linux this is available out of box in Fedora, but can easily be ported to other Linux distributions. CUDD is available in the ports OSX package, and in cygwin. To use it, call ~~~~~ :-use_module(library(bdd))`. ~~~~~ The following predicates construct a BDD: \toc */ :- module(bdd, [ bdd_new/2, bdd_new/3, bdd_from_list/3, mtbdd_new/2, mtbdd_new/3, bdd_eval/2, mtbdd_eval/2, bdd_tree/2, bdd_size/2, bdd_print/2, bdd_print/3, bdd_to_probability_sum_product/2, bdd_to_probability_sum_product/3, bdd_reorder/2, bdd_close/1, mtbdd_close/1]). :- use_module(library(lists)). :- use_module(library(maplist)). :- use_module(library(rbtrees)). :- use_module(library(simpbool)). tell_warning :- print_message(warning,functionality(cudd)). :- catch(load_foreign_files([cudd], [], init_cudd),_,fail) -> true ; tell_warning. /** @pred bdd_new(? _Exp_, - _BddHandle_) create a new BDD from the logical expression _Exp_. The expression may include: + Logical Variables: a leaf-node can be a logical variable. + `0` and `1` a leaf-node can also be bound to the two boolean constants. + `or( _X_, _Y_)`, `_X_ \/ _Y_`, `_X_ + _Y_` disjunction + `and( _X_, _Y_)`, `_X_ /\ _Y_`, `_X_ * _Y_` conjunction + `nand( _X_, _Y_)` negated conjunction + `nor( _X_, _Y_)` negated disjunction + `xor( _X_, _Y_)` exclusive or + `not( _X_)`, or `-_X_` negation. */ bdd_new(T, Bdd) :- term_variables(T, Vars), bdd_new(T, Vars, Bdd). /** @pred bdd_new(? _Exp_, +_Vars_, - _BddHandle_) Same as bdd_new/2, but receives a term of the form `vs(V1,....,Vn)`. This allows incremental construction of BDDs. */ bdd_new(T, Vars, cudd(M,X,VS,TrueVars)) :- term_variables(Vars, TrueVars), VS =.. [vs|TrueVars], findall(Manager-Cudd, set_bdd(T, VS, Manager, Cudd), [M-X]). /** @pred bdd_from_list(? _List_, ?_Vars_, - _BddHandle_) Convert a _List_ of logical expressions of the form above, that includes the set of free variables _Vars_, into a BDD accessible through _BddHandle_. */ % create a new BDD from a list. bdd_from_list(List, Vars, cudd(M,X,VS,TrueVars)) :- term_variables(Vars, TrueVars), VS =.. [vs|TrueVars], findall(Manager-Cudd, set_bdd_from_list(List, VS, Manager, Cudd), [M-X]). set_bdd(T, VS, Manager, Cudd) :- numbervars(VS,0,_), ( ground(T) -> term_to_cudd(T,Manager,Cudd) ; writeln(throw(error(instantiation_error,T))) ). set_bdd_from_list(T0, VS, Manager, Cudd) :- numbervars(VS,0,_), generate_releases(T0, Manager, T), % T0 = T, % writeln_list(T0), list_to_cudd(T,Manager,_Cudd0,Cudd). generate_releases(T0, Manager, T) :- rb_empty(RB0), reverse(T0, [H|R]), add_releases(R, RB0, [H], Manager, T). add_releases([], _, RR, _M, RR). add_releases([(X = Ts)|R], RB0, RR0, M, RR) :- term_variables(Ts, Vs), !, add_variables(Vs, RB0, RR0, M, RBF, RRI), add_releases(R, RBF, [(X=Ts)|RRI], M, RR). add_variables([], RB, RR, _M, RB, RR). add_variables([V|Vs], RB0, RR0, M, RBF, RRF) :- rb_lookup(V, _, RB0), !, add_variables(Vs, RB0, RR0, M, RBF, RRF). add_variables([V|Vs], RB0, RR0, M, RBF, RRF) :- rb_insert(RB0, V, _, RB1), add_variables(Vs, RB1, [release_node(M,V)|RR0], M, RBF, RRF). writeln_list([]). writeln_list([B|Bindings]) :- writeln(B), writeln_list(Bindings). %list_to_cudd(H._List,_Manager,_Cudd0,_CuddF) :- writeln(l:H), fail. list_to_cudd([],_Manager,Cudd,Cudd) :- writeln('X'). list_to_cudd([release_node(M,cudd(V))|T], Manager, Cudd0, CuddF) :- !, write('-'), flush_output, cudd_release_node(M,V), list_to_cudd(T, Manager, Cudd0, CuddF). list_to_cudd([(V=0*_Par)|T], Manager, _Cudd0, CuddF) :- !, write('0'), flush_output, term_to_cudd(0, Manager, Cudd), V = cudd(Cudd), list_to_cudd(T, Manager, Cudd, CuddF). list_to_cudd([(V=0)|T], Manager, _Cudd0, CuddF) :- !, write('0'), flush_output, term_to_cudd(0, Manager, Cudd), V = cudd(Cudd), list_to_cudd(T, Manager, Cudd, CuddF). list_to_cudd([(V=_Tree*0)|T], Manager, _Cudd0, CuddF) :- !, write('0'), flush_output, term_to_cudd(0, Manager, Cudd), V = cudd(Cudd), list_to_cudd(T, Manager, Cudd, CuddF). list_to_cudd([(V=Tree*1)|T], Manager, _Cudd0, CuddF) :- !, write('.'), flush_output, term_to_cudd(Tree, Manager, Cudd), V = cudd(Cudd), list_to_cudd(T, Manager, Cudd, CuddF). list_to_cudd([(V=Tree)|T], Manager, _Cudd0, CuddF) :- write('.'), flush_output, ( ground(Tree) -> true ; throw(error(instantiation_error(Tree))) ), term_to_cudd(Tree, Manager, Cudd), V = cudd(Cudd), list_to_cudd(T, Manager, Cudd, CuddF). /** @pred mtbdd_new(? _Exp_, - _BddHandle_) create a new algebraic decision diagram (ADD) from the logical expression _Exp_. The expression may include: + Logical Variables: a leaf-node can be a logical variable, or parameter. + Number a leaf-node can also be any number + _X_ \* _Y_ product + _X_ + _Y_ sum + _X_ - _Y_ subtraction + or( _X_, _Y_), _X_ \/ _Y_ logical or */ mtbdd_new(T, Mtbdd) :- term_variables(T, Vars), mtbdd_new(T, Vars, Mtbdd). mtbdd_new(T, Vars, add(M,X,VS,Vars)) :- VS =.. [vs|Vars], functor(VS,vs,Sz), findall(Manager-Cudd, (numbervars(VS,0,_),term_to_add(T,Sz,Manager,Cudd)), [M-X]). /** @pred bdd_eval(+ _BDDHandle_, _Val_) Unify _Val_ with the value of the logical expression compiled in _BDDHandle_ given an assignment to its variables. ~~~~~ bdd_new(X+(Y+X)*(-Z), BDD), [X,Y,Z] = [0,0,0], bdd_eval(BDD, V), writeln(V). ~~~~~ would write 0 in the standard output stream. The Prolog code equivalent to bdd_eval/2 is: ~~~~~ Tree = bdd(1, T, _Vs), reverse(T, RT), foldl(eval_bdd, RT, _, V). eval_bdd(pp(P,X,L,R), _, P) :- P is ( X/\L ) \/ ( (1-X) /\ R ). eval_bdd(pn(P,X,L,R), _, P) :- P is ( X/\L ) \/ ( (1-X) /\ (1-R) ). ~~~~~ First, the nodes are reversed to implement bottom-up evaluation. Then, we use the `foldl` list manipulation predicate to walk every node, computing the disjunction of the two cases and binding the output variable. The top node gives the full expression value. Notice that `(1- _X_)` implements negation. */ bdd_eval(cudd(M, X, Vars, _), Val) :- cudd_eval(M, X, Vars, Val). bdd_eval(add(M, X, Vars, _), Val) :- add_eval(M, X, Vars, Val). mtbdd_eval(add(M,X, Vars, _), Val) :- add_eval(M, X, Vars, Val). % get the BDD as a Prolog list from the CUDD C object /** @pred bdd_tree(+ _BDDHandle_, _Term_) Convert the BDD or ADD represented by _BDDHandle_ to a Prolog term of the form `bdd( _Dir_, _Nodes_, _Vars_)` or `mtbdd( _Nodes_, _Vars_)`, respectively. The arguments are: + _Dir_ direction of the BDD, usually 1 + _Nodes_ list of nodes in the BDD or ADD. In a BDD nodes may be pp (both terminals are positive) or pn (right-hand-side is negative), and have four arguments: a logical variable that will be bound to the value of the node, the logical variable corresponding to the node, a logical variable, a 0 or a 1 with the value of the left-hand side, and a logical variable, a 0 or a 1 with the right-hand side. + _Vars_ are the free variables in the original BDD, or the parameters of the BDD/ADD. As an example, the BDD for the expression `X+(Y+X)\*(-Z)` becomes: ~~~~~ bdd(1,[pn(N2,X,1,N1),pp(N1,Y,N0,1),pn(N0,Z,1,1)],vs(X,Y,Z)) ~~~~~ */ bdd_tree(cudd(M, X, Vars, _Vs), bdd(Dir, List, Vars)) :- cudd_to_term(M, X, Vars, Dir, List). bdd_tree(add(M, X, Vars, _), mtbdd(Tree, Vars)) :- add_to_term(M, X, Vars, Tree). /** @pred bdd_to_probability_sum_product(+ _BDDHandle_, - _Prob_) Each node in a BDD is given a probability _Pi_. The total probability of a corresponding sum-product network is _Prob_. */ bdd_to_probability_sum_product(cudd(M,X,_,Probs), Prob) :- cudd_to_probability_sum_product(M, X, Probs, Prob). /** @pred bdd_to_probability_sum_product(+ _BDDHandle_, - _Probs_, - _Prob_) Each node in a BDD is given a probability _Pi_. The total probability of a corresponding sum-product network is _Prob_, and the probabilities of the inner nodes are _Probs_. In Prolog, this predicate would correspond to computing the value of a BDD. The input variables will be bound to probabilities, eg `[ _X_, _Y_, _Z_] = [0.3.0.7,0.1]`, and the previous `eval_bdd` would operate over real numbers: ~~~~~ Tree = bdd(1, T, _Vs), reverse(T, RT), foldl(eval_prob, RT, _, V). eval_prob(pp(P,X,L,R), _, P) :- P is X * L + (1-X) * R. eval_prob(pn(P,X,L,R), _, P) :- P is X * L + (1-X) * (1-R). ~~~~~ */ bdd_to_probability_sum_product(cudd(M,X,_,_Probs), Probs, Prob) :- cudd_to_probability_sum_product(M, X, Probs, Prob). /** @pred bdd_close( _BDDHandle_) close the BDD and release any resources it holds. */ bdd_close(cudd(M,_,_Vars, _)) :- cudd_die(M). bdd_close(add(M,_,_Vars, _)) :- cudd_die(M). /** @pred bdd_close( _BDDHandle_) close the BDD and release any resources it holds. */ bdd_reorder(cudd(M,Top,_Vars, _), How) :- cudd_reorder(M, Top,How). /** @pred bdd_size(+ _BDDHandle_, - _Size_) Unify _Size_ with the number of nodes in _BDDHandle_. */ bdd_size(cudd(M,Top,_Vars, _), Sz) :- cudd_size(M,Top,Sz). bdd_size(add(M,Top,_Vars, _), Sz) :- cudd_size(M,Top,Sz). /** @pred bdd_print(+ _BDDHandle_, + _File_) Output bdd _BDDHandle_ as a dot file to _File_. */ bdd_print(cudd(M,Top,_Vars, _), File) :- absolute_file_name(File, AFile, []), cudd_print(M, Top, AFile). bdd_print(add(M,Top,_Vars, _), File) :- absolute_file_name(File, AFile, []), cudd_print(M, Top, AFile). bdd_print(cudd(M,Top, Vars, _), File, Names) :- Vars =.. [_|LVars], %trace, maplist( fetch_name(Names), LVars, Ss), absolute_file_name(File, AFile, []), cudd_print(M, Top, AFile, Ss). bdd_print(add(M,Top, Vars, _), File, Names) :- Vars =.. [_|LVars], maplist( fetch_name(Names), LVars, Ss), absolute_file_name(File, AFile, []), cudd_print(M, Top, AFile, Ss). fetch_name([S=V1|_], V2, SN) :- V1 == V2, !, ( atom(S) -> SN = S ; format(atom(SN), '~w', [S]) ). fetch_name([_|Y], V, S) :- !, fetch_name(Y, V, S). fetch_name([], V, V). mtbdd_close(add(M,_,_Vars,_)) :- cudd_die(M). /* algorithm to compute probabilitie in Prolog */ bdd_to_sp(bdd(Dir, Tree, _Vars, IVars), Binds, Prob) :- findall(P, sp(Dir, Tree, IVars, Binds, P), [Prob]). sp(Dir, Tree, Vars, Vars, P) :- run_sp(Tree), fetch(Tree, Dir, P). run_sp([]). run_sp(pp(P,X,L,R).Tree) :- run_sp(Tree), P is X*L+(1-X)*R. run_sp(pn(P,X,L,R).Tree) :- run_sp(Tree), P is X*L+(1-X)*(1-R). fetch(pp(P,_,_,_)._Tree, 1, P). fetch(pp(P,_,_,_)._Tree, -1, N) :- N is 1-P. fetch(pn(P,_,_,_)._Tree, 1, P). fetch(pn(P,_,_,_)._Tree, -1, N) :- N is 1-P. %% @}