Ecuación Cuadrática.

Calculo de la Ecuación Cuadrática.

ecuacion_cuadratica<-function(a,b,c){
  discriminante <-((b^2)-4*a*c)
  x1 <- (-b+sqrt(discriminante))/(2*a)
  x2 <- (-b-sqrt(discriminante))/(2*a)
  listaEC<-list(x1,x2)
  ifelse(discriminante>=0,return(listaEC),"Es una raíz compleja")
  
}

ejemplo 1

ecuacion_cuadratica(1,2,4)

## [1] "Es una raíz compleja"

ejemplo 2

ecuacion_cuadratica(-1,7,-3)

## [[1]]
## [1] 0.4586187
## 
## [[2]]
## [1] 6.541381