18/10/16 15:41:49.58 571Up1V7.net
>>122
一般化して正ｎ角形の対角線の長さを計算して図示するスクリプトを書いてみた。
DOP <- function(n,print=FALSE,...){ # diagonal length of plygon
q=2*pi/n
r=cos(q)+1i*sin(q)
p=numeric(n+1)
for(i in 1:(n+1)) p[i]=r^(i-1)
D=NULL
if(n>3){
for(j in 3:(2+ceiling(n-3)/2)){
D= append(D,abs(p[1]-p[j])/abs(p[1]-p[2]))
}
}
if(print){
plot(p,type='l',bty='l',axes=FALSE,ann=FALSE,lwd=2)
for(i in 3:(n-1)) segments(1,0,Re(p[i]),Im(p[i]),...)
}
return(D)
}
正１７面形だと
> DOP(17,print=TRUE,col=sample(colours(),1))
[1] 1.965946 2.864944 3.666380 4.342962 4.871650 5.234439 5.418976
URLﾘﾝｸ(i.imgur.com)