Simulação da Curva de Custo Médio - LP

Universidade Federal da Paraíba

Curso de Graduação em Economia

Análise Microeconômica I

options(OutDec=",")

# Criar faixas de produção
Y1 <- seq(1,145,length=100)
Y2 <- seq(146,155,length=100)
Y3 <- seq(156,300,length=100)

# ordenar faixas
Y <- c(Y1,Y2,Y3)


# Definir função de custo médio de longo prazo 
CMe <- function(Y) {15000- 150*Y + 0.5*Y^2}

# desenhar gráfico:
par(oma=c(0,1.8,0,0.8))
plot(Y,CMe(Y),type="o",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1, pch=19,cex=0.7,xlim=c(0,300),ylim=c(0,max(CMe(Y))),
     ylab="Custo Médio",xlab=expression(Y))
grid(col=grey(0.80))
points(Y1,CMe(Y1),col="red",pch=19,type="o",cex=0.7)
points(Y2,CMe(Y2),col="green",pch=19,type="o",cex=0.7)
points(Y3,CMe(Y3),col="blue",pch=19,type="o",cex=0.7)
par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0),mar=c(0, 0, 0, 0), new=TRUE)
plot(0,axes=F,xlab="",ylab="",col="transparent")
legend("topright",c("Retornos Crescentes","Retornos Constantes","Retornos Decrescentes"),bty="n",lty =c(1,1,1),
       col=c("red","green","blue"),pch=c(19,19,19),cex=0.9)