毛虫グラフを描く library(igraph) n <- 8 ke <- sample(1:5,n,replace=TRUE) e.l <- NULL for(i in 2:n){ e.l <- rbind(e.l, c(i-1,i)) } v.id <- n+1 for(i in 1:n){ for(j in 1:ke[i]){ e.l <- rbind(e.l, c(i,v.id)) v.id <- v.id +1 } } g <- graph.edg…

トポロジカル・インデックス: フィボナッチ数からピタゴラスの三角形までをつなぐ新しい数学作者: 細矢治夫出版社/メーカー: 日本評論社発売日: 2012/08/20メディア: 単行本（ソフトカバー） クリック: 5回この商品を含むブログ (3件) を見る フィボナッチ数…