TRABAJO EQUILIBRIO

##1Q+2p=120
##1Q-1p=30

a = matrix(c(1,1,2,-1),nrow = 2,ncol = 2)
b = matrix(c(120,30),nrow = 2,ncol = 1)
solve(a,b)

##      [,1]
## [1,]   60
## [2,]   30

r =solve(a,b)

##1Q+3.5p=1200
##1Q-1.5p=50

d = matrix(c(1,1,3.5,-1.5),nrow = 2,ncol = 2)
f = matrix(c(1200,50),nrow = 2,ncol = 1)

solve(d,f)

##      [,1]
## [1,]  395
## [2,]  230