35 lines
520 B
PHP
35 lines
520 B
PHP
var k z c U;
|
|
|
|
varexo e;
|
|
|
|
parameters beta gamma alpha delta rho s;
|
|
|
|
beta = 0.987;
|
|
gamma = 1;
|
|
delta = 0.012;
|
|
alpha = 0.4;
|
|
rho = 0.95;
|
|
s = 0.07; % increased by a factor of 10 from 0.007 to increase risk correction
|
|
|
|
model;
|
|
k=exp(z)*k(-1)^(alpha)-c+(1-delta)*k(-1);
|
|
z=rho*z(-1)+s*e;
|
|
U=ln(c);
|
|
end;
|
|
|
|
steady_state_model;
|
|
z = 0;
|
|
U=ln(c);
|
|
end;
|
|
|
|
planner_objective ln(c);
|
|
ramsey_model(instruments=(k,c), planner_discount=beta);
|
|
|
|
initval;
|
|
k = ((1/beta-(1-delta))/alpha)^(1/(alpha-1));
|
|
c = k^alpha-delta*k;
|
|
end;
|
|
|
|
steady;
|
|
resid;
|