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)  
  }
   }