Deret Fibonacci adalah sebuah pola bilangan yang diperoleh dari penjumlahan dua bilangan sebelumnya yang ada di dalam deret. Pertama, yang harus dilakukan adalah membuat fungsinya.
#Membuat Fungsi Fibonacci: fibo
fibo <- function(n) {
#Mendefinisikan vector NULL:fibonacci
fibonacci = c()
#Mendefinisikan nilai FIbonacci ke-1 dan ke-2
fibonacci[1] = 1
fibonacci[2] = 1
#Menampilkan Barisan FIbonacci dengan n<3
if (n<3){
print("Jika n<3, Barisan akan menampilkan n=2")
return(fibonacci)
}
else {
#Membangkitkan Barisan Fibonacci dengan n>3 ke dalam vector NULL:fibonacci
for (i in 3:n) {
fibonacci[i]= fibonacci[i-1]+fibonacci[i-2]
}
#Menampilkan Barisan didalam vektor fibonnacci
return(fibonacci)
}
}
Selanjutnya mencoba fungsi yang telah dibuat.
#Membangkitkan Fibonacci dengan n=2
fibo(2)
## [1] "Jika n<3, Barisan akan menampilkan n=2"
## [1] 1 1
#membangkitkan Fibonacci dengan n=5
fibo(5)
## [1] 1 1 2 3 5
#membangkitkan Fibonacci dengan n=49
fibo(49)
## [1] 1 1 2 3 5 8
## [7] 13 21 34 55 89 144
## [13] 233 377 610 987 1597 2584
## [19] 4181 6765 10946 17711 28657 46368
## [25] 75025 121393 196418 317811 514229 832040
## [31] 1346269 2178309 3524578 5702887 9227465 14930352
## [37] 24157817 39088169 63245986 102334155 165580141 267914296
## [43] 433494437 701408733 1134903170 1836311903 2971215073 4807526976
## [49] 7778742049
jika hanya ingin melihat bilangan pada suku ke-n saja tinggal menambahkan [n] dibelakang fungsi pembangkit data.
#membangkitkan 49 Fibonacci tapi hanya memanggil suku ke-49
fibo(49)[49]
## [1] 7778742049
#membangkitkan 49 Fibonacci tapi hanya memanggil suku ke-20
fibo(49)[20]
## [1] 6765
#membangkitkan 49 Fibonacci tapi hanya memanggil suku ke-20 hingga 40
fibo(49)[20:40]
## [1] 6765 10946 17711 28657 46368 75025 121393
## [8] 196418 317811 514229 832040 1346269 2178309 3524578
## [15] 5702887 9227465 14930352 24157817 39088169 63245986 102334155
Sekian cara membangkitkan deret Fibonacci.