Ecuacion__cuadratica

##FUNCION QUE PERMITE CONSTRUIR UNA ECUACION CUADRATICA

ecuacion_cuadratica<-function(a,b,c){
  descriminante<-(b^2-4*a*c)
if(descriminante>=0){
x1<-(-b+sqrt(b^2-4*a*c))/(2*a)
x2<-(-b-sqrt(b^2-4*a*c))/(2*a)
result<-list(x1,x2)
return(result)

} 
  else{
   descriminante<-b^2-4*a*c<0
   print("hay raicez complejas")
}
}

#Ejemplo 1
ecuacion_cuadratica(-2,4,8)

## [[1]]
## [1] -1.236068
## 
## [[2]]
## [1] 3.236068

#jemplo 2
ecuacion_cuadratica(2,3,8)

## [1] "hay raicez complejas"