81 lines
1.5 KiB
Modula-2
81 lines
1.5 KiB
Modula-2
// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent
|
|
|
|
var c k;
|
|
varexo taui tauc tauk g;
|
|
parameters bet gam del alpha A;
|
|
bet=.95;
|
|
gam=2;
|
|
del=.2;
|
|
alpha=.33;
|
|
A=1;
|
|
|
|
model;
|
|
k=A*k(-1)^alpha+(1-del)*k(-1)-c-g;
|
|
c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+
|
|
((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1));
|
|
end;
|
|
|
|
initval;
|
|
k=1.5;
|
|
c=0.6;
|
|
g = 0.2;
|
|
tauc = 0;
|
|
taui = 0;
|
|
tauk = 0;
|
|
end;
|
|
steady;
|
|
|
|
endval;
|
|
k=1.5;
|
|
c=0.6;
|
|
g =0.2;
|
|
tauc =0;
|
|
taui =0;
|
|
tauk =0;
|
|
end;
|
|
steady;
|
|
|
|
shocks;
|
|
var taui;
|
|
periods 10;
|
|
values 0.2;
|
|
end;
|
|
|
|
simul(periods=100);
|
|
|
|
co=ys0_(var_index('c'));
|
|
ko = ys0_(var_index('k'));
|
|
go = ex_(1,1);
|
|
|
|
rbig0=1/bet;
|
|
rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam));
|
|
rq0=alpha*A*ko^(alpha-1);
|
|
rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1);
|
|
wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1);
|
|
wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1);
|
|
sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del);
|
|
sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del);
|
|
|
|
figure
|
|
subplot(2,3,1)
|
|
plot([ko*ones(100,1) y_(var_index('k'),1:100)' ])
|
|
title('k')
|
|
subplot(2,3,2)
|
|
plot([co*ones(100,1) y_(var_index('c'),2:101)' ])
|
|
title('c')
|
|
subplot(2,3,3)
|
|
plot([rbig0*ones(100,1) rbig' ])
|
|
title('R')
|
|
subplot(2,3,4)
|
|
plot([wq0*ones(100,1) wq' ])
|
|
title('w/q')
|
|
subplot(2,3,5)
|
|
plot([sq0*ones(100,1) sq' ])
|
|
title('s/q')
|
|
subplot(2,3,6)
|
|
plot([rq0*ones(100,1) rq' ])
|
|
title('r/q')
|
|
|
|
print -depsc fig1172.ps
|
|
|