CALCULO DE RAIZ CUADRADA POR FORMULA

Función para calcular las raices de una ecuación de la forma ax^2+bx+c=0,a != 0

calculo_raices <- function(a,b,c){ 
   if(b^2-4*a*c<0){
    message("La funcion tiene soluciones complejas")}
   else {
  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)
  return(resultado)
  }
  }  

Ejemplo con soluciones reales:

encontrar las raices de x^2-5x+6=0

a<-1
b<--5
c<-6
calculo_raices(a,b,c)

## [[1]]
## [1] 3
## 
## [[2]]
## [1] 2

Ejemplo de solociones complejas:

encontrar las raices de x^2-3x-3=0

calculo_raices(1,-3,3)

## La funcion tiene soluciones complejas