Universidade Federal da Paraíba

Curso de Graduação em Economia

Análise Microeconômica I

options(OutDec=",")

# Criar sequências de 50 números ordenados entre 1 e 25 - horas trabalhadas
x <- seq(1,25,length=50)

# Definir função de produção CD beta = 1/2
y <- function(L) {L^0.5}

# desenhar gráfico:
plot(x,y(x),type="o",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,
     main=expression(f(L) == L^0.5 ),ylab=expression(f(L)),xlab=expression(L))
grid(col=grey(0.80))

# resultados da simulação:
data.frame(L=round(x,1),Y=round(y(x),1))
##       L   Y
## 1   1,0 1,0
## 2   1,5 1,2
## 3   2,0 1,4
## 4   2,5 1,6
## 5   3,0 1,7
## 6   3,4 1,9
## 7   3,9 2,0
## 8   4,4 2,1
## 9   4,9 2,2
## 10  5,4 2,3
## 11  5,9 2,4
## 12  6,4 2,5
## 13  6,9 2,6
## 14  7,4 2,7
## 15  7,9 2,8
## 16  8,3 2,9
## 17  8,8 3,0
## 18  9,3 3,1
## 19  9,8 3,1
## 20 10,3 3,2
## 21 10,8 3,3
## 22 11,3 3,4
## 23 11,8 3,4
## 24 12,3 3,5
## 25 12,8 3,6
## 26 13,2 3,6
## 27 13,7 3,7
## 28 14,2 3,8
## 29 14,7 3,8
## 30 15,2 3,9
## 31 15,7 4,0
## 32 16,2 4,0
## 33 16,7 4,1
## 34 17,2 4,1
## 35 17,7 4,2
## 36 18,1 4,3
## 37 18,6 4,3
## 38 19,1 4,4
## 39 19,6 4,4
## 40 20,1 4,5
## 41 20,6 4,5
## 42 21,1 4,6
## 43 21,6 4,6
## 44 22,1 4,7
## 45 22,6 4,7
## 46 23,0 4,8
## 47 23,5 4,9
## 48 24,0 4,9
## 49 24,5 5,0
## 50 25,0 5,0