Simulação da Curva de Custo Variável 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
CVMe <- function(Y) {300 - 20*Y + 0.5*Y^2 }

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

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

##           Y     CVMe
## 1  1,000000 280,5000
## 2  1,494949 271,2184
## 3  1,989899 262,1819
## 4  2,484848 253,3903
## 5  2,979798 244,8436
## 6  3,474747 236,5420
## 7  3,969697 228,4853
## 8  4,464646 220,6736
## 9  4,959596 213,1069
## 10 5,454545 205,7851