フィボナッチ数

黄金角で葉序

# 黄金比 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) # …

フィボナッチ数に基づく格子の基底

こちらで、トポロジカル・インデックスのことを書いた その中でフィボナッチ的数列を書いた ここでは「普通のフィボナッチ数列」 ただし、負の側もある 次の性質を満たす FN <- function(n){ if(n<0){ return(both.fn.3(-n)*(-1)^(n+1)) } if(n==0){ return(…