Universidade Federal da Paraíba

Curso de Graduação em Economia

Análise Microeconômica I

options(OutDec=",")
x <- y <- seq(0.4,10,length=100)

# Definir função
yf <- function(x1,a) {(a/x1)^0.5 }

# Desenhar gráfico
par(oma=c(0,1.8,0,0.8))
plot(x,yf(x,8),type="l",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,ylab=expression(K),xlab=expression(L))
grid(col=grey(0.80))
points(x,yf(x,40),type="l",col="blue",lwd=2,lty=2)
points(x,yf(x,100),type="l",col="blue",lwd=2,lty=3)
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(expression(Y == 8),expression(Y == 40),expression(Y == 100)),
       bty="n", lty =c(1,2,3),col=c(4,4,4),cex=0.9)