#Práctico, uso for
Fibonacci <- numeric(12); #Vector numérico de 12 elementos
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1] 1 1 2 3 5 8 13 21 34 55 89 144
#con los primeros y segundo números 2
Fibonacci[1] <- Fibonacci[2] <- 2
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1] 2 2 4 6 10 16 26 42 68 110 178 288
#Primer número 2 segundo número 3
Fibonacci[1] <- 2
Fibonacci[2] <- 3
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1] 2 3 5 8 13 21 34 55 89 144 233 377
#Restando en vez de sumando
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] - Fibonacci[i - 1]
Fibonacci
[1] 1 1 0 1 -1 2 -3 5 -8 13 -21 34
#Cambiando otro poco
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:20) Fibonacci[i] <- Fibonacci[i - 2] - Fibonacci[i - 1]
Fibonacci
[1] 1 1 0 1 -1 2 -3 5 -8 13 -21 34 -55 89 -144 [16] 233 -377 610 -987 1597
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:20) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1] 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 [16] 987 1597 2584 4181 6765
#Con decimales
Fibonacci[1] <- Fibonacci[2] <- 0.1; #El primer y segundo elemento son 0.1
for (i in 3:20) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1] 0.1 0.1 0.2 0.3 0.5 0.8 1.3 2.1 3.4 5.5 8.9 14.4 23.3 [14] 37.7 61.0 98.7 159.7 258.4 418.1 676.5
#Cambiando para que cada elemento es el mismo mas el último [-1] y el penúltimo
#[-2]
Fibonacci[1] <- Fibonacci[2] <- Fibonacci[3]<- 1
for (i in 4:20) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1] + Fibonacci[i]
Fibonacci
[1] 1.0 1.0 1.0 2.3 3.8 6.9 12.0 21.0 36.4 [10] 62.9 108.2 185.5 317.0 540.2 918.2 1557.1 2635.0 4450.5 [19] 7503.6 12630.6
#Cambiando para que cada elemento el último [-1] y el penúltimo [-2] y el #anterior [-3]
Fibonacci[1] <- Fibonacci[2] <- Fibonacci[3]<- 1
for (i in 4:20) Fibonacci[i] <- Fibonacci[i - 3]+Fibonacci[i - 2]+Fibonacci[i-1]
Fibonacci
[1] 1 1 1 3 5 9 17 31 57 105 193 355 653 [14] 1201 [15] 2209 4063 7473 13745 25281 46499
Comentarios
Publicar un comentario