Prim/Kruskal 算法（最小生成树算法）的R语言实现

做离散的作业做到身心俱爆炸。。。
这里贴一个最小生成树算法的R语言实现
希望能够帮到大家

library(igraph)
vn<-12
rownames<-letters[1:vn]
colnames<-letters[1:vn]
adjacency_matrix=matrix(0,vn,vn,byrow=T,dimnames=list(rownames,colnames))            #创建邻接矩阵
adjacency_matrix_k=matrix(0,vn,vn,byrow=T,dimnames=list(rownames,colnames))          #创建k子树邻接矩阵
adjacency_matrix_p=matrix(0,vn,vn,byrow=T,dimnames=list(rownames,colnames))          #创建p子树邻接矩阵
link <- function(x,y,w){#构建邻接矩阵与子节点矩阵
  adjacency_matrix[x,y]<<-w
  adjacency_matrix[y,x]<<-w
}
link_k <- function(x,y,w){#构建邻接矩阵与子节点矩阵
  adjacency_matrix_k[x,y]<<-w
  adjacency_matrix_k[y,x]<<-w
}
link_p <- function(x,y,w){#构建邻接矩阵与子节点矩阵
  adjacenc