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

update graphviz interface

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1214 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-12-16 06:17:18 +00:00
parent 319207d3c6
commit 94b1984a7f
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
CLPBN/clpbn/graphviz.yap
View File

@ -18,8 +18,7 @@ output_var(Stream, V) :-
format(Stream, ' [ shape=box, style=filled, fillcolor=red, fontsize=18.0 ]~n',[]), format(Stream, ' [ shape=box, style=filled, fillcolor=red, fontsize=18.0 ]~n',[]),
fail. fail.
output_var(Stream, V) :- output_var(Stream, V) :-
clpbn:get_atts(V,[key(Key),dist(DInfo)]), clpbn:get_atts(V,[key(Key),dist(_,_,Parents)]),
extract_parents(DInfo,Parents),
Parents = [_|_], !, Parents = [_|_], !,
format(Stream, ' ',[]), format(Stream, ' ',[]),
output_parents(Stream, Parents), output_parents(Stream, Parents),
@ -52,13 +51,6 @@ output_parents1(Stream,[V|L]) :-
output_parents1(Stream,L). output_parents1(Stream,L).
extract_parents(tab(_,_),[]).
extract_parents(tab(_,_,Parents),Parents).
extract_parents((sum.Parents->_),Parents) :- !.
extract_parents((normalised_average(_).Parents->_),Parents) :- !.
extract_parents(([_|_].Parents->_),Parents) :- !.
extract_parents((_->_),[]).
output_key(Stream, Key) :- output_key(Stream, Key) :-
output_key(Stream, 0, Key). output_key(Stream, 0, Key).