Ecuacion Cuadratica

Ecu_cuadratica<-function(A,B,C)
                    {
  ifelse((B^2)-(4*A*C)<0, "Raices Complejas",{
               Raiz_1<- ((-B+sqrt((B^2)-(4*A*C)))/(2*A)) 
               Raiz_2<- ((-B-sqrt((B^2)-(4*A*C)))/(2*A))
                resultados<-list(Raiz_1, Raiz_2)
                names(resultados)<-c("Raiz 1", "Raiz 2")
                return(resultados)
                    })
                    }

prueba de funcion

prueba<-Ecu_cuadratica(4,9,5)
print(prueba)

## $`Raiz 1`
## [1] -1
## 
## $`Raiz 2`
## [1] -1.25

Prueba para raices complejas

prueba2<-Ecu_cuadratica(1,2,3)
print(prueba2)

## [1] "Raices Complejas"

clave extra

Raiz_cuadrada<-function(A,B,C)
  {
              if((B^2)-(4*A*C)<0) {"Raices complejas"}
  
              else
                   {
                    Raiz_1<- ((-B+sqrt((B^2)-(4*A*C)))/(2*A)) 
                    Raiz_2<- ((-B-sqrt((B^2)-(4*A*C)))/(2*A))
                    
                    resultados<-list(Raiz_1, Raiz_2)
                    names(resultados)<-c("Raiz 1", "Raiz 2")
                    return(resultados)
                   }
  }

prueba de funcion

prueba<-Raiz_cuadrada(4,9,5)
print(prueba)

## $`Raiz 1`
## [1] -1
## 
## $`Raiz 2`
## [1] -1.25