从一固定点到其他所有点的最短同路

%% ***********从一固定点到其他所有点的最短同路***********

%%
function [Pm D] = ktonghf(W,k)
n = length(W);
D = zeros(1,n);
for i = 1:n
    [p d] = n2shorf(W,k,i);
    Pm{i} = p;
    D(i) = d;
end