Resolución de Ecuaciones

Caso 1

Resultado de la ecuacion:

y_x1<-eqn_2o(8,5,100,30,15)
## [1] "Reales diferentes"
y_x1
## [1] 1.366642e+14

Grafica 1

plot(1:15,serie,type="l",main="Gráfica 1",xlab="Años")

Caso 2

Resultado de la ecuacion:

y_x2<-eqn_2o(4,4,100,30,15)
## [1] "Reales iguales"
y_x2
## [1] 491520

Grafica 2

plot(1:15,serie,type="l",main="Gráfica 2",xlab="Años")

Caso 3 / IMAGINARIA

Utilizando los datos para encontrar la ecuación imaginaria se encontró el resultado de la ecuacion siguiente:

y_x3<-eqn_2o(2,4,100,30,15)
## [1] "Imaginarias"
y_x3
## [1] -3276800

Grafica 3

plot(1:15,serie,type="l",main="Gráfica 3",xlab="Años")