floyd.asv

Floyd算法,对研究通信网性能分析很有帮助

function [w,r]=floyd(a)
w=a;
  for i=1:n
      for j=1:n
        if i==h
        r(i,j)=j
      end
  end
  r
  for k=1:n
      for i=1:n
          for j=1:n
              if w(i,k)+w(k,j)<w(i,j)
                  w(i,j)=w(i,k)+w(k,j);
                  r(i,j)=r(i,k);
              end
          end
      end
      w
      r