# 1辺のノード数 n <- 4 # 次元 d <- 3 a <- array(1:(n^d),rep(n,d)) N <- 1:n Na <- 1:(n-1) Nb <- 2:n tmp.list <- rep(list(N),d-1) tmp.list[[d]] <- Na tmpa <- expand.grid(tmp.list)-1 tmp.list[[d]] <- Nb tmpb <- expand.grid(tmp.list)-1 Amat <…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。