Simulação da Curva de Custo Médio

Universidade Federal da Paraíba

Curso de Graduação em Economia

Análise Microeconômica I

options(OutDec=",")


# Criar sequências de 100 números ordenados de 1 a 50 (produção)
Y <- seq(1,50,length=100)

# Definir função de custo
CMe <- function(Y) {500/Y + 300 - 20*Y + 0.5*Y^2 }

# desenhar gráfico:
plot(Y,CMe(Y),type="o",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,
     main=expression(CMe == 500/Y + 300 - 20*Y + 0.5*Y^2),ylab=expression(CMe),xlab=expression(Y))
grid(col=grey(0.80))

# 10 primeiros valores dos dados
head(data.frame(Y=Y,CMe=CMe(Y)),10)

##           Y      CMe
## 1  1,000000 780,5000
## 2  1,494949 605,6779
## 3  1,989899 513,4509
## 4  2,484848 454,6098
## 5  2,979798 412,6402
## 6  3,474747 380,4373
## 7  3,969697 354,4395
## 8  4,464646 332,6646
## 9  4,959596 313,9215
## 10 5,454545 297,4518