完全にランダムな酔歩様曲面も作れるが、広がり方にある偏りを入れることで、コーラルリーフ的な広がりが作れたりする library(geometry) library(gtools) library(igraph) CategoryVector<-function(d){ df <- d - 1 diagval <- 1:d diagval <- sqrt((d)/df…