floyd.r

来自「这是07年的大学生建模比赛最为完整的解答 使用了lingo 和R软件」· R 代码 · 共 13 行

floyd<-function(D){
   n<-nrow(D)
   for (k in 1:n){
      for (i in 1:n){
         for (j in 1:n){
            D[i,j]<-min(D[i,j], D[i,k]+D[k,j]);
         }
      }
   }
   D
}