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{
    print("Posee Raiz Compleja ")
   
  }}

Ejmeplo 1

ej_1<-ecuacion_cuadratica(6,8,9)

## [1] "Posee Raiz Compleja "

print(ej_1)

## [1] "Posee Raiz Compleja "

Ejemplo 2

ejemplo_2<-ecuacion_cuadratica(2,4,6)

## [1] "Posee Raiz Compleja "