Problema 1

t<-10
A<-1.1
B<--1
y_0<-10000
y_t <- (A^t)*y_0+B*((1-A^t)/(1-A))
y_t
## [1] 25921.49
eq_f_1o<-function(t,A,B,y_0){
  y_x<- (A^t)*y_0 + B*((1-A^t)/(1-A))
}

y_x<-eq_f_1o(10,1.1,-1,10000)
y_x
## [1] 25921.49
serie <- list()
for (i in 1:10) {
  serie <- c(serie,eq_f_1o(i,1.1,-1,10000))
}
plot(1:10, serie, type = "l")

serie
## [[1]]
## [1] 10999
## 
## [[2]]
## [1] 12097.9
## 
## [[3]]
## [1] 13306.69
## 
## [[4]]
## [1] 14636.36
## 
## [[5]]
## [1] 16098.99
## 
## [[6]]
## [1] 17707.89
## 
## [[7]]
## [1] 19477.68
## 
## [[8]]
## [1] 21424.45
## 
## [[9]]
## [1] 23565.9
## 
## [[10]]
## [1] 25921.49

#Conclusión

Si es rentable una inversion a 10 años debido a que en la grafica se observa una alza en el paso de los años lo que sgnifica que a demostrado tener una tendencia factible para hacer una inversion.

Problema 2

y_x<-eq_f_1o(10,3,-10000,10000)
y_x
## [1] 295250000
serie <- list()
for (i in 1:10) {
  serie <- c(serie,eq_f_1o(i,3,-10000,10000))
}
plot(1:10, serie, type = "l")

serie
## [[1]]
## [1] 20000
## 
## [[2]]
## [1] 50000
## 
## [[3]]
## [1] 140000
## 
## [[4]]
## [1] 410000
## 
## [[5]]
## [1] 1220000
## 
## [[6]]
## [1] 3650000
## 
## [[7]]
## [1] 10940000
## 
## [[8]]
## [1] 32810000
## 
## [[9]]
## [1] 98420000
## 
## [[10]]
## [1] 295250000

#Conclusión

Se observa por medio de una proyección con tendencia al alza en el año 10 habra una poblacion de 295250000.