Tarea Metodos Función Cuadrática

Resolución de ecuación de segundo grado de la forma ax^2+(-)bx+(-)c=0

funcion_cuadratica<-function(a,b,c){
  Discriminante<-b^2-4*a*c
  ifelse(Discriminante<0,"El resultado es una raiz compleja, debido a que su discriminate es negativo",{
    x1<- (-b-sqrt(Discriminante))/(2*a)
    x2<- (-b+sqrt(Discriminante))/(2*a)
  resol_raices<-list(x1,x2)
  names(resol_raices)<-c("X1","X2")
  return(resol_raices)
  })
}

Ejemplo 1: 5, 9, 2

funcion_cuadratica(5,9,2)

## $X1
## [1] -1.540312
## 
## $X2
## [1] -0.2596876

Ejemplo 2: 7, 5, 10

funcion_cuadratica(7, 5, 10)

## [1] "El resultado es una raiz compleja, debido a que su discriminate es negativo"

Ejemplo 3: 2, 6, 4

funcion_cuadratica(2, 6, 4)

## $X1
## [1] -2
## 
## $X2
## [1] -1