Simulação da Curva de Custo Fixo Médio

Universidade Federal da Paraíba

Curso de Graduação em Economia

Análise Microeconômica I

options(OutDec=",")

# capital fixo - hectares de terra
K <- rep(10,100)
# Criar sequências de 100 números ordenados de 1 a 50 (produção)
Y <- seq(1,50,length=100)

# Preço do capital
r <- 0.6

# Definir função de custo
CFMe <- function(r,K,Y) {(r*K)/Y}

# desenhar gráfico:
plot(Y,CFMe(r,K,Y),type="o",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,
     main=expression(CFMe == r*K/Y),ylab=expression(CFMe),xlab=expression(Y))
grid(col=grey(0.80))

# 10 primeiros valores dos dados
head(data.frame(K=K,Y=Y,CFMe=CFMe(r,K,Y)),10)

##     K        Y     CFMe
## 1  10 1,000000 6,000000
## 2  10 1,494949 4,013514
## 3  10 1,989899 3,015228
## 4  10 2,484848 2,414634
## 5  10 2,979798 2,013559
## 6  10 3,474747 1,726744
## 7  10 3,969697 1,511450
## 8  10 4,464646 1,343891
## 9  10 4,959596 1,209776
## 10 10 5,454545 1,100000