Serie de Fibonacci y proporción aurea en R

1 Serie de Fibonacci.

n=30
fibo=numeric(n)
fibo[1]=fibo[2]=1
for(i in 3:n){
fibo[i]=fibo[i-2]+fibo[i-1]
}
fibo

##  [1]      1      1      2      3      5      8     13     21     34     55
## [11]     89    144    233    377    610    987   1597   2584   4181   6765
## [21]  10946  17711  28657  46368  75025 121393 196418 317811 514229 832040

plot(fibo,type="l")

2. proporción aurea.

fi=NA
for(i in 2:n){
fi[i]=fibo[i]/fibo[i-1]
}
fi

##  [1]       NA 1.000000 2.000000 1.500000 1.666667 1.600000 1.625000 1.615385
##  [9] 1.619048 1.617647 1.618182 1.617978 1.618056 1.618026 1.618037 1.618033
## [17] 1.618034 1.618034 1.618034 1.618034 1.618034 1.618034 1.618034 1.618034
## [25] 1.618034 1.618034 1.618034 1.618034 1.618034 1.618034

plot(fi,type="l")