Ecuacion cuadratica

Declaración de variables a, b, c,x1,x2; Obtenemos las variables a, b y c

cuadratica<-function(a,b,c){
  if (-b+ sqrt (b^2 -4*a*c)>=0) {#  1er. bloque
    print("NaNs error, raices complejas")
        x1<-(-b+ sqrt(b^2 -4*a*c))/(2*a)
    x2<-(-b- sqrt(b^2 -4*a*c))/(2*a)
  }
    else if (-b+ sqrt (b^2 -4*a*c)<0){ #  2do. bloque
      
        x1<-(-b+ sqrt(b^2 -4*a*c))/(2*a)
        x2<-(-b- sqrt(b^2 -4*a*c))/(2*a)
      respuestas<-list(x1,x2)
    return(respuestas)
    }
    
}

Ejemplos “solucion con reales”

cuadratica(1,5,4)

## [[1]]
## [1] -1
## 
## [[2]]
## [1] -4

#raices complejas

cuadratica(-7,6,3)

## [1] "NaNs error, raices complejas"