Tarea1: Ecuacion Cuadratica

Ecuacion cuadratica

funcion de la ecuacion cuadratica

ecuacion_cuadratica<- function(a,b,c) 
{
  ifelse((b^2)-(4*a*c)<0, "la función tiene raíces complejas",{
               raiz_1<- ((-b+sqrt((b^2)-(4*a*c)))/(2*a)) 
               raiz_2<- ((-b-sqrt((b^2)-(4*a*c)))/(2*a))
                resultado<-list(raiz_1, raiz_2)
                names(resultado)<-c("X1", "X2")
                return(resultado)
                    })
                    }

ejemplo 1

# calculando para los datos siguientes: 
a<-12
b<-4
c<-1

# raiz compleja

ejemplo_raiz_1<- ecuacion_cuadratica (a,b,c)
print(ejemplo_raiz_1)

## [1] "la función tiene raíces complejas"

ejemplo 2

# calculando para los datos siguientes:
a<-2
b<-9
c<-4

# raiz real 

ejemplo_raiz_2<- ecuacion_cuadratica (a,b,c)
print(ejemplo_raiz_2)

## $X1
## [1] -0.5
## 
## $X2
## [1] -4