0001 function dot(g,filename)
0002
0003
0004
0005
0006
0007
0008
0009 graph_name = ['Graph_', int2str(g.idx)];
0010
0011 if nargin==1
0012 filename = [graph_name,'.dot'];
0013 end
0014
0015 fid = fopen(filename,'w');
0016 if (fid<0)
0017 error(['Cannot open ', filename, ' for writing']);
0018 end
0019
0020 label_state = is_labeled(g);
0021 if (~label_state)
0022 label(g)
0023 end
0024
0025 fprintf(fid,['strict graph ', graph_name, '{ \n']);
0026
0027 n = nv(g);
0028
0029 for v=1:n
0030 fprintf(fid,'"%s";\n', get_label(g,v));
0031 end
0032
0033 elist = edges(g);
0034 m = ne(g);
0035
0036 for k=1:m
0037 a = get_label(g,elist(k,1));
0038 b = get_label(g,elist(k,2));
0039 fprintf(fid, '"%s" -- "%s"; \n', a, b);
0040 end
0041
0042 fprintf(fid,'}\n');
0043
0044
0045 if (~label_state)
0046 clear_labels(g);
0047 end
0048
0049 disp(['Wrote "', filename,'"']);
0050 fclose(fid);