clc,clear
a=zeros(7);
a(1,2)=4;a(1,3)=2;
a(2,3)=3;a(2,4)=2;a(2,5)=6;
a(3,4)=5;a(3,6)=4;
a(4,5)=2;a(4,6)=7;
a(5,6)=4;a(5,7)=8;
a(6,7)=3;
% %构建稀疏矩阵
b=sparse(a);
% 画网络图
h=view(biograph(b,[],'showArrows','on','ShowWeights','on'))
[dist,path,pred] = graphshortestpath(b,1,7)
% Mark the nodes and edges of the shortest path
set(h.Nodes(path),'Color',[1 0.4 0.4])
edges = getedgesbynodeid(h,get(h.Nodes(path),'ID'));
set(edges,'LineColor',[1 0 0])
set(edges,'LineWidth',1.5)
%写出数据和图片
% saveas(gcf,'myfig.jpg')
% fid = fopen('min_path2.txt','w+');
% fprintf(fid,'%4d\n',path);
% fclose(fid);
Biograph object with 7 nodes and 12 edges.
dist =
9
path =
1 3 6 7
pred =
0 1 1 2 4 3 6