ECUACION CUADRATICA

Calculando la equacion cuadratica

cuadratica<-function(a,b,c){
    numerador<-(b^2-4*a*c)
    if(numerador>=0){
  X1<-(-b+sqrt(numerador))/(2*a)
  X2<-(-b-sqrt(numerador))/(2*a)
  result<-list(X1,X2)
    return(result)
  }
else{
 (numerador<0)
print("raices complejas")
}
}
#Insertando datos de la ecuacion en el orden (a,b,c)
cuadratica(4,-8,-6)

## [[1]]
## [1] 2.581139
## 
## [[2]]
## [1] -0.5811388

#Insertando datos de la ecuacion en el orden (a,b,c)
cuadratica(2,4,5)

## [1] "raices complejas"