Ecuaciones Cuadráticas

Ingresar coeficientes a, b y c.

ecuacion_cuadratica = function(a,b,c){
  radicando = b^2-(4*a*c)
  if(radicando<0){
    message("ERROR:la raiz da como resultado números complejos")
  }    
   else {
  raiz_cuadrada = sqrt(radicando)
  raiz_1 = (-b-raiz_cuadrada)/2*a
  raiz_2 = (-b+raiz_cuadrada)/2*a
  resultado_2 = list(raiz_1,raiz_2)
  names(resultado_2)= c("X1","X2")
  print(resultado_2)  
  }
   }
ejemplo_1 = ecuacion_cuadratica(2,3,1)

## $X1
## [1] -4
## 
## $X2
## [1] -2

ejemplo_2 = ecuacion_cuadratica(2,5,5)

## ERROR:la raiz da como resultado números complejos