stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cosmetic changes.

time-shift
Stéphane Adjemian (Charybdis) 2014-10-10 21:46:50 +02:00
parent 3187c70b97
commit f4922a8a27
1 changed files with 24 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
matlab/evaluate_steady_state.m
View File

@ -57,7 +57,7 @@ function [ys,params,info] = evaluate_steady_state(ys_init,M,options,oo,steadysta
[ys,params,info] = evaluate_steady_state_file(ys_init,exo_ss,M, ...
options);
%test whether it solves model conditional on the instruments
[resids] = evaluate_static_model(ys,exo_ss,params,M,options);
resids = evaluate_static_model(ys,exo_ss,params,M,options);
n_multipliers=M.endo_nbr-M.orig_endo_nbr;
nan_indices=find(isnan(resids(n_multipliers+1:end)));
@ -99,14 +99,14 @@ function [ys,params,info] = evaluate_steady_state(ys_init,M,options,oo,steadysta
end
end
if options.debug
[infrow]=find(isinf(ys_init));
infrow=find(isinf(ys_init));
if ~isempty(infrow)
fprintf('\nevaluate_steady_state: The initial values for the steady state of the following variables are Inf:\n');
for iter=1:length(infrow)
fprintf('%s\n',M.endo_names(infrow(iter),:));
end
end
[nanrow]=find(isnan(ys_init));
nanrow=find(isnan(ys_init));
if ~isempty(nanrow)
fprintf('\nevaluate_steady_state: The initial values for the steady state of the following variables are NaN:\n');
for iter=1:length(nanrow)
@ -121,7 +121,7 @@ function [ys,params,info] = evaluate_steady_state(ys_init,M,options,oo,steadysta
return;
end
%check whether steady state really solves the model
[resids] = evaluate_static_model(ys,exo_ss,params,M,options);
resids = evaluate_static_model(ys,exo_ss,params,M,options);
n_multipliers=M.endo_nbr-M.orig_endo_nbr;
nan_indices_multiplier=find(isnan(resids(1:n_multipliers)));
@ -283,6 +283,3 @@ function [ys,params,info] = evaluate_steady_state(ys_init,M,options,oo,steadysta
info(2) = NaN;
return
end