%% ***********从一固定点到其他所有点的最短同路*********** %% 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