Simulação de Demanda por Insumos e Oferta - longo prazo

Universidade Federal da Paraíba

Curso de Graduação em Economia

Análise Microeconômica I

options(OutDec=",")
w <- seq(0.5,3,length=100)
r <- seq(0.8,4,length=100)
p <- seq(1.2,5,length=100)
a <- 0.2
b <- 0.4

# Definir função de oferta
Y <- function(a,b,p,r,w) { (((a*p)/r)^(a/(1-a-b)))*(((b*p)/w)^(b/(1-a-b)))}
# Definir funções de demanda: 
K <- function(a,p,r,Y) {(a*p*Y)/r}
L <- function(b,p,w,Y) {(b*p*Y)/w}

# Desenhar gráficos
y <- Y(a,b,p,mean(r),mean(w))
par(mfrow=c(2,2))
plot(p,y,type="l",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,ylab=expression(Y),xlab=expression(p),main="Função Oferta")
grid(col=grey(0.80))
plot(w,K(a,mean(p),r,mean(y)),type="l",bty="l",cex.lab=0.8,cex.axis=0.8,col="red",lwd=2,las=1,ylab=expression(K),xlab=expression(r),main="Demanda por Capital")
grid(col=grey(0.80))
plot(w,L(b,mean(p),w,mean(y)),type="l",bty="l",cex.lab=0.8,cex.axis=0.8,col="brown",lwd=2,las=1,ylab=expression(L),xlab=expression(w),main="Demanda por Trabalho")
grid(col=grey(0.80))