2014-01-28から1日間の記事一覧

格子に順序

# 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 <…