DERET FIBONACCI

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.