k-diagonal matrix

k-diagonal matrixというものがある。
正方行列の対角成分に値があれば diagonal matrixといい、その直上に値がある場合は superdiagonal, 直下なら subdiagonal という。
k番目がどうか…というので一般化すると

k本の糸で構成されるネットワークになる。

matsize <- 200
library(animation)
library(igraph)
saveGIF({
	for(k in seq(matsize-1)){
		# k-diagonal
		mat <- diag(0, matsize)
		for(i in (k+1):matsize){
			mat[i-k, i] <- 1
		}
		g <- graph.adjacency(mat)
		par(mar=c(0, 0, 4, 0))
		plot(g)
		title(paste(k, "-diagonal matrix", sep=""), cex.main=3)
	}
}, interval=1, ani.width=400, ani.height=400)