floyd.r

这是07年的大学生建模比赛最为完整的解答 使用了lingo 和R软件

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
}