{"version":"1.0","title":"R\u3067\u5b8c\u5168\u30b0\u30e9\u30d5\u3092\u63cf\u304f","categories":["R","\u30b0\u30e9\u30d5"],"description":"\u5b8c\u5168\u30b0\u30e9\u30d5\u306f\u3001\u3059\u3079\u3066\u306e\u9802\u70b9\u9593\u306b\u8fba\u306e\u3042\u308b\u30b0\u30e9\u30d5\u3067\u3059\u3002 \u30a8\u30c3\u30b8\u3092\u884c\u5217\u8868\u73fe\u3057\u3066\u3001segments()\u95a2\u6570\u3092\u4f7f\u3063\u3066\u3001\u3053\u3093\u306a\u98a8\u306b\u3002 DrawPerfectGraph<-function(d=5){ #d:\u6b21\u6570 #\u6b63d\u89d2\u5f62\u306e\u9802\u70b9\u5ea7\u6a19 k<-1:d divk<-k/d divk<-divk*2*pi x<-cos(divk) y<-sin(divk) #\u30d7\u30ed\u30c3\u30c8\u56f3\u3092\u6b63\u65b9\u5f62\u306b\u3059\u308b par(pin=c(2,2)) #\u70b9\u3092\u6253\u3064 plot(x,y,pch=20,cex=2) #\u8fba\u884c\u5217\u3002\u5bfe\u89d2\u6210\u5206=0\u306e\u4e0a\u4e09\u89d2TRUE\u884c\u5217\u306b\u3059\u308b edgeMatrix<-matrix(rep(TRUE,d^2),nrow=d) edgeM\u2026","provider_name":"Hatena Blog","blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","provider_url":"https://hatena.blog","height":"190","author_name":"ryamada22","blog_url":"https://ryamada22.hatenablog.jp/","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20100126%2F1264481341\" title=\"R\u3067\u5b8c\u5168\u30b0\u30e9\u30d5\u3092\u63cf\u304f - ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","published":"2010-01-26 13:49:01","type":"rich","author_url":"https://blog.hatena.ne.jp/ryamada22/","url":"https://ryamada22.hatenablog.jp/entry/20100126/1264481341"}