Tarea 3

Problema 1

print(polyroot(c(0.5,-1.5,1)))

## [1] 0.5+0i 1.0-0i

print(polyroot(c(0.25,-0.25,-1,1)))

## [1]  0.5-0i -0.5+0i  1.0+0i

library(matlib)
A <- matrix(c(1,1,1,0.5,-0.5,1,0.25,0.25,1),
            3,3, byrow = TRUE)
b <- c(1,1,1.25)
showEqn(A,b)

##    1*x1    + 1*x2 + 1*x3  =     1 
##  0.5*x1  - 0.5*x2 + 1*x3  =     1 
## 0.25*x1 + 0.25*x2 + 1*x3  =  1.25

Solve(A, b, fractions = TRUE)

## x1      =  -1/2 
##   x2    =   1/6 
##     x3  =   4/3

Problema 2

_______

Problema 3

_______