# 黄金比 psi <- (1+sqrt(5))/2 # 黄金角 psi.angle <- (2*pi)/(1+psi) # シリアルナンバー t <- 0:5 # シリアル角 angles <- psi.angle * t # 角は y = ax 的に増える plot(t,angles) # 角に対応する単位円周上の座標 x <- cos(angles) y <- sin(angles) # …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。