0001 function disjoint_union(g,h,k)
0002
0003
0004
0005
0006
0007 global GRAPH_MAGIC
0008
0009 n1 = nv(h);
0010 n2 = nv(k);
0011
0012 if (issparse(h) | issparse(k))
0013 z = logical(sparse([],[],[],n1,n2,0));
0014 else
0015 z = logical(zeros(n1,n2));
0016 end
0017
0018 rmxy(g);
0019
0020 GRAPH_MAGIC.graphs{g.idx}.array = ...
0021 [GRAPH_MAGIC.graphs{h.idx}.array, z; ...
0022 z', GRAPH_MAGIC.graphs{k.idx}.array
0023 ];
0024 make_logical(g);
0025
0026 if (hasxy(h) & hasxy(k))
0027 xy = [getxy(h);getxy(k)];
0028 embed(g,xy);
0029 end