39 lines
507 B
Modula-2
39 lines
507 B
Modula-2
var y;
|
|
|
|
varexo eps;
|
|
|
|
parameters rho;
|
|
|
|
rho = 0.9;
|
|
|
|
model;
|
|
y = y(-1)^rho*exp(eps);
|
|
end;
|
|
|
|
initval;
|
|
y = 1;
|
|
eps = 0;
|
|
end;
|
|
|
|
steady;
|
|
|
|
check;
|
|
|
|
shocks;
|
|
var eps;
|
|
periods 1;
|
|
values 1;
|
|
end;
|
|
|
|
perfect_foresight_setup(periods=10);
|
|
perfect_foresight_solver;
|
|
|
|
if ~oo_.deterministic_simulation.status
|
|
error('Perfect foresight simulation failed')
|
|
end
|
|
send_endogenous_variables_to_workspace;
|
|
|
|
if max(abs(y'-[1; exp(cumprod([1; rho*ones(9, 1)]))]))>options_.dynatol.x
|
|
error('Wrong solution!')
|
|
end
|