fileName = 'dolphins.gml';
inputfile = fopen(fileName);
l=0;
k=1;
A = zeros([],2) ;
while 1
% Get a line from the input file
tline = fgetl(inputfile);
% Quit if end of file
if ~ischar(tline)
break
end
nums = regexp(tline,'\d+','match');
if ~isempty(nums)
if l==1
l=0;
A(k,2)=str2double(nums{1});
k=k+1;
continue;
end
A(k,1)=str2double(nums{1});
l=1;
else
l=0;
continue;
end
end
fclose(inputfile) ;
G = zeros([],[]) ;
for i=1:length(A)
G(A(i,1)+1,A(i,2)+1) = 1;
G(A(i,2)+1,A(i,1)+1) = 1;
end
figure
g = graph(G) ;
plot(g)
figure
L=diag(sum(G))-G;
[v,~]=eig(L);
xy=v(:,[2 3]) ;
gplot(G,xy,'.-r')
