twoshort.m

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

%求任意两点间的最短距离
function [s,road]=twoshort(w)
wh=size(w,1);
road=zeros(wh,wh,wh);
for k=1:wh
    [dk,sk,roadk]=shortroad(w,k);
    road(:,:,k)=roadk;
    for k1=1:wh-1
        s(k,dk(k1))=sk(k1);
    end
end