Ecuacion cuadratica

Calculo de la ecuación 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("raicez complejas")
}
}

#Insertar datos de la ecuacion en el orden (a,b,c)
cuadratica(4,-9,-7)

## [[1]]
## [1] 2.861555
## 
## [[2]]
## [1] -0.6115555

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

## [1] "raicez complejas"