Rで完全グラフを描く
完全グラフは、すべての頂点間に辺のあるグラフです。
エッジを行列表現して、segments()関数を使って、こんな風に。
DrawPerfectGraph<-function(d=5){ #d:次数 #正d角形の頂点座標 k<-1:d divk<-k/d divk<-divk*2*pi x<-cos(divk) y<-sin(divk) #プロット図を正方形にする par(pin=c(2,2)) #点を打つ plot(x,y,pch=20,cex=2) #辺行列。対角成分=0の上三角TRUE行列にする edgeMatrix<-matrix(rep(TRUE,d^2),nrow=d) edgeMatrix[lower.tri(edgeMatrix,diag=TRUE)]<-FALSE #TRUE成分の添え字を取り出す Edges<-which(edgeMatrix,arr.ind=TRUE) #線分を描く segments(x[Edges[,1]],y[Edges[,1]],x[Edges[,2]],y[Edges[,2]]) }