Ecuacion cuadratica

Determinacion de variables a, b, c, x1, x2. para obtencion de las variables a, b, c.

ecuacion_cuadratica<-function(a,b,c){
  if(forma<-((b^2-4*a*c)>=0))
 {
    
  x1<-((-b+sqrt(forma))/(2*a))
  x2<-((-b+sqrt(forma))/(2*a))
  solucion<-list(x1,x2)
  names(solucion)<-c("x1","x2")
   print(solucion)
    return(solucion)
  }
  else{
    forma<-((b^2-4*a*c)<0)
     x1<-((-b+sqrt(forma))/(2*a))
  x2<-((-b+sqrt(forma))/(2*a))
  solucion<-list(x1,x2)
  names(solucion)<-c("x1","x2")
   print(solucion)
    return(solucion)
            
    print("Posee Raiz Real")
   
  }}

Ejmeplo 1

ej_1<-ecuacion_cuadratica(6,8,9)

## $x1
## [1] -0.5833333
## 
## $x2
## [1] -0.5833333

print(ej_1)

## $x1
## [1] -0.5833333
## 
## $x2
## [1] -0.5833333

Ejemplo 2

ejemplo_2<-ecuacion_cuadratica(-1,4,6)

## $x1
## [1] 1.5
## 
## $x2
## [1] 1.5