Simulação de Função de Produção

Universidade Federal da Paraíba

Curso de Graduação em Economia

Análise Microeconômica I

options(OutDec=",")

# capital fixo - hectares de terra
x1 <- 10
# Criar sequências de 10 números ordenados - trabalhadores
x2 <- seq(1,10,length=10)

# Definir função de produção
y <- function(K,L) {K - L + 6*L^2 -0.5*L^3}

# desenhar gráfico:
plot(x2,y(x1,x2),type="o",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,
     main=expression(f(K,L) == K - L + 6*L^2 -0.5*L^3 ),ylab=expression(f(K,L)),xlab=expression(L))
grid(col=grey(0.80))

# resultados da simulação:
data.frame(K=x1,L=round(x2,1),Y=round(y(x1,x2),1))

##     K  L     Y
## 1  10  1  14,5
## 2  10  2  28,0
## 3  10  3  47,5
## 4  10  4  70,0
## 5  10  5  92,5
## 6  10  6 112,0
## 7  10  7 125,5
## 8  10  8 130,0
## 9  10  9 122,5
## 10 10 10 100,0