Tarea

FORMULA GENERAL CUADRATICA

La formula cuadratica puede usarse para resolver cualquier ecuacion de la forma ax^2+bx+c=0

formula_general<-function(a,b,c){
  operacion_1<-b^2-4*a*c
  ifelse(operacion_1<0,"tiene raiz compleja",{
    operacion_2<--1*b
    operacion_3<-sqrt(operacion_1)
    operacion_4<-2*a
    x1<-(operacion_2+operacion_3)/operacion_4
    x2<-(operacion_2-operacion_3)/operacion_4
    resultado<-list(x1,x2)
    names(resultado)<-c("x1","x2")
    return(resultado)
  })
}

Ejemplo

Resolviendo la ecuacion cuadratica: x^2 - 4x + 2 = 0 siendo: a=1 b=-4 c=2

formula_general(1,-4,2)

## $x1
## [1] 3.414214
## 
## $x2
## [1] 0.5857864

ejemplo 2

Resolviendo la ecuacion cuadratica: 3x^2 + 2x + 1 = 0 siendo: a=3 b=2 c=1

formula_general(3,2,1)

## [1] "tiene raiz compleja"