UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE ESTADÍSTICA

PROGRAMACIÓN

UCE
UCE

Realizar una publicación de resolución de ecuaciones de segundo grado y sistemas de ecuaciones de dos incógnitas en el lenguaje R

ECUACIÓN DE SEGUNDO GRADO

Para una ecuación de la forma \(ax^2 + bx + c = 0\), podemos definir una función que aplique la fórmula general:

\[x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a}\] ## EJERCICIO

# coeficientes
a <- 1
b <- -5
c <- 6

# discriminante
D <- b^2 - 4*a*c

# soluciones
x1 <- (-b + sqrt(D)) / (2*a)
x2 <- (-b - sqrt(D)) / (2*a)

x1
## [1] 3
x2
## [1] 2
a <- 1
b <- -7
c <- 10

D <- b^2 - 4*a*c

x1 <- (-b + sqrt(D)) / (2*a)
x2 <- (-b - sqrt(D)) / (2*a)

x1
## [1] 5
x2
## [1] 2
a <- 1
b <- -5
c <- 6

D <- b^2 - 4*a*c

x1 <- (-b + sqrt(D))/(2*a)
x2 <- (-b - sqrt(D))/(2*a)

x1
## [1] 3
x2
## [1] 2

Sistemas de ecuaciones de dos incógnitas

A <- matrix(c(2,1,1,-1), nrow=2, byrow=TRUE)
B <- c(5,1)
solve(A,B)
## [1] 2 1
A <- matrix(c(3, 1,
              1, 2), nrow = 2, byrow = TRUE)

B <- c(7, 8)

sol <- solve(A, B)

sol
## [1] 1.2 3.4
A <- matrix(c(2, 3,
              1, -1), nrow = 2, byrow = TRUE)

B <- c(12, 1)

sol <- solve(A, B)

sol
## [1] 3 2