Ecuacion Cuadratica

Metodos Para el Analisis Económico

Planteamineto de la Ecuación

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<-list(x1,x2)
  print(solucion)}
  
else {print(paste0("No se puede realizar la solucion debido a que contiene una raiz compleja"))}
}

Corriendo_Ejemplo_1

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

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

Corriendo_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"