Commit e1856be5 authored by MichelJuillard's avatar MichelJuillard

fixing problems for computing steady state in ramsey policy

parent 7af760db
......@@ -47,23 +47,23 @@ if options_.steadystate_flag
end
ys = oo.steady_state;
if inst_nbr == 1
inst_val = csolve(nl_func,oo_.steady_state(k_inst),'',options_.solve_tolf,100);
inst_val = csolve(nl_func,oo.steady_state(k_inst),'',options_.solve_tolf,100);
else
[inst_val,info1] = dynare_solve(nl_func,ys(k_inst),0);
end
ys(k_inst) = inst_val;
[x,params,check] = evaluate_steadystate_file(ys,exo_ss,params,M.fname,options_.steadystate_flag);
exo_ss = [oo.exo_steady_state oo.exo_det_steady_state];
[x,params,check] = evaluate_steady_state_file(ys,exo_ss,params,...
M.fname,options_.steadystate_flag);
if size(x,1) < M.endo_nbr
if length(M.aux_vars) > 0
x = feval([M.fname '_set_auxiliary_variables'],xx,...
[oo.exo_steady_state,...
oo.exo_det_steady_state],...
M.params);
else
error([M.fname '_steadystate.m doesn''t match the model']);
end
end
[junk,junk,multbar] = dyn_ramsey_static_1(x(k_inst),M,options_,oo_);
[junk,junk,multbar] = dyn_ramsey_static_1(x(k_inst),M,options_,oo);
steady_state = [x(1:M.orig_endo_nbr); multbar];
else
xx = oo.steady_state(1:M.orig_endo_nbr);
......@@ -106,10 +106,11 @@ if options_.steadystate_flag
M.endo_names,'exact')];
end
oo.steady_state(k_inst) = x;
[x,check] = feval([M.fname '_steadystate'],...
oo.steady_state,...
[oo.exo_steady_state; ...
oo.exo_det_steady_state]);
[x,params,check] = evaluate_steady_state_file(oo.steady_state,...
[oo.exo_steady_state; ...
oo.exo_det_steady_state] ...
,M.params,M.fname,...
options_.steadystate_flag);
end
% setting steady state of auxiliary variables
......
......@@ -116,8 +116,7 @@ SteadyStateModel::writeSteadyStateFile(const string &basename, bool ramsey_polic
output << "function [ys_, params, info] = " << basename << "_steadystate2("
<< "ys_, exo_, params)" << endl
<< "% Steady state generated by Dynare preprocessor" << endl
<< " info = 0;" << endl
<< " ys_ = zeros(" << symbol_table.endo_nbr() << ",1);" << endl;
<< " info = 0;" << endl;
for (size_t i = 0; i < recursive_order.size(); i++)
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment