testshortroad.m

来自「Matlab源程序求任意两点间的最短距离」· M 代码 · 共 19 行

clear;
w=zeros(8);
w(1,2:4)=[2,1,8];
w(2,4:5)=[6,1];
w(3,4)=7;
w(3,7)=9;
w(4,5:7)=[5,1,2];
w(5,6)=3;
w(5,8)=9;
w(6,7:8)=[4,6];
w(7,8)=3;

w=duijiao(w);
w=tihuan(w,0,inf);%将w中为零的元素用正无穷大替换

[d,s,road]=shortroad(w,1)%参见函数shortroad

[ms,mr]=twoshort(w)%表示各点间的最短距离，表示各点间的最短路径
mr(8,:,1)%从点1到点8的最短路径