TAREA ECUACION CUAD.

ecuaciones cuadraticas

ec_cuadratica<-function(x,y,z){
  ecuacion<-(y^2-4*x*z)
  if(ecuacion>=0){
    x_1<-(-y+sqrt(ecuacion))/(2*x)
    x_2<-(-y-sqrt(ecuacion))/(2*x)
    resultado<-list(x_1,x_2)
    print(resultado)
  }
  else{(ecuacion<0)
  print("Solución con raíces complejas")}
}

##Ejemplo 1

ejemplo_1<-ec_cuadratica(1,-10, 9)

## [[1]]
## [1] 9
## 
## [[2]]
## [1] 1

##Ejemplo 2

ejemplo2<-ec_cuadratica(-1,7,10)

## [[1]]
## [1] -1.216991
## 
## [[2]]
## [1] 8.216991