0001 function load(g,filename)
0002
0003
0004
0005
0006 fid = fopen(filename,'r');
0007
0008 if fid == -1
0009 error(['File "', filename, '" cannot be opened for reading']);
0010 end
0011
0012 A = textscan(fid,'%s\n','whitespace','\n');
0013 A = A{1};
0014
0015 nl = length(A);
0016
0017 for k=1:nl
0018 line = A{k};
0019 eval(line);
0020 end
0021
0022 resize(g,0);
0023
0024 if (sp == 1)
0025 sparse(g)
0026 else
0027 full(g)
0028 end
0029
0030 resize(g,nverts);
0031 add(g,elist);
0032
0033 if (length(xy) > 0)
0034 embed(g,xy);
0035 end
0036
0037 n = nv(g);
0038
0039 if (length(labs)>0)
0040 for k=1:n
0041 label(g,k,labs{k});
0042 end
0043 end
0044
0045 fclose(fid);