d_1k.r

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

str<-c(12,11,16:14)
str<-c(13,1:4)
str<-c(10:7,5,6)

str<-c(14:12,3:1)
str<-c(4:8, 10); str<-c(10,8:4)
str<-c(11,15,16,9)

n<-length(str)
D<-dist[c(1, str+1), c(1, str+1)]; D
L<-D[1,2]
for (i in 1:(n-1))
   L<-L+D[i+1, i+2]
L<-L+D[(n+1),1]
L