Metodos para el analisis Economico - Ejercicio_1

---

Estudiante: Wilmer Francisco Aviles Arevalo
N°Carnet: AA02042
Materia: Metodos para el Analisis Económico
Grupo Teórico: 02

---

Planteamiento de la ecuacion Cuadratica

Ecuacion_Cuadratica<-function(a,b,c){
  
  if((b^2-4*a*c)>=0)
  {x1<-(-b+sqrt(b^2-(4*a*c)))/(2*a)
  x2<-(-b-sqrt(b^2-(4*a*c)))/(2*a)
  solucion_de_Ecuacion<-list(x1,x2)
  print(solucion_de_Ecuacion)}
  
else {print(paste0("No se puede realizar la solucion debido a que contiene una raiz compleja"))}
}

verificando_Ejemplo_1

a<-(-3)
b<-6
c<-(-2)
Ejemplo_1<-Ecuacion_Cuadratica(a,b,c)

## [[1]]
## [1] 0.4226497
## 
## [[2]]
## [1] 1.57735

Verificando_Ejemplo_2

a<-3
b<-2
c<-4
Ejemplo_2<-Ecuacion_Cuadratica(a,b,c)

## [1] "No se puede realizar la solucion debido a que contiene una raiz compleja"