Simulação da Curva de Custo Marginal

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ções de custo
CMg <- function(Y) {300 - 40*Y + 1.5*Y^2}

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

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

##           Y      CMg
## 1  1,000000 261,5000
## 2  1,494949 243,5543
## 3  1,989899 226,3436
## 4  2,484848 209,8678
## 5  2,979798 194,1269
## 6  3,474747 179,1209
## 7  3,969697 164,8499
## 8  4,464646 151,3137
## 9  4,959596 138,5125
## 10 5,454545 126,4463