Formula Ecuacion Cuadratica

Calculo de ecuación cuadrática

ecua_cuadratica<-function(a,b,c){
  numerador<-(b**2-4*a*c)
  if(numerador>=0){
    X1<-((-b+sqrt(numerador))/(2*a))
    X2<-((-b-sqrt(numerador))/(2*a))
    resultados<-list(X1,X2)
    names(resultados)<-c("X1","X2")
   
    print(resultados)
  }
  else{
    (numerador<0)
    print("La función tiene raices complejas")
  }
}

Comprobando función cuadrática, (3,-2,-4)

ej_1<-ecua_cuadratica(3,-2,-4)

## $X1
## [1] 1.535184
## 
## $X2
## [1] -0.8685171

Comprobando función cuadrática, (-3,0,-12)

ej_2<-ecua_cuadratica(-3,0,-12)

## [1] "La función tiene raices complejas"

library(dplyr)

## Warning: package 'dplyr' was built under R version 3.6.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readr)

## Warning: package 'readr' was built under R version 3.6.3

load("C:/Users/Eduardo/Downloads/BETO/Metodos 2020/importaciones_exportaciones/data_comercio_exterior.RData")