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

Code factorization. 

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1422 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
adjemian 2007-10-10 13:20:09 +00:00
parent d53caec4af
commit 3d4ae90e22
2 changed files with 44 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
matlab/dsge_posterior_theoretical_covariance.m
View File

@ -23,28 +23,7 @@ type = 'posterior';% To be defined as a input argument later...
NumberOfSimulations = 800;% To be defined in a global structure...
% Set varlist (vartan) if necessary
varlist = options_.varlist;
if isempty(varlist)
varlist = options_.varobs;
options_.varlist = varlist;
end
nvar = rows(varlist);
if ~isempty(options_.unit_root_vars)
vartan = [];
for i=1:nvar
if isempty(strmatch(deblank(varlist(i,:)),options_.unit_root_vars,'exact'))
vartan = strvcat(vartan,varlist(i,:));
end
end
else
vartan = varlist;
end
nvar = rows(vartan);
ivar = zeros(nvar,1);
for i = 1:nvar
ivar(i) = strmatch(deblank(vartan(i,:)),M_.endo_names,'exact');
end
[ivar,vartan] = set_stationary_variables_list();
% Set various parameters & Check or create files and directories
if strcmpi(type,'posterior')

43
matlab/set_stationary_variables_list.m Normal file
View File

@ -0,0 +1,43 @@
function [ivar,vartan] = set_stationary_variables_list()
% This function builds of vector of indices targeting to the stationary
% variables in varlist.
%
% INPUTS
% None.
%
% OUTPUTS
% o ivar [integer] nvar*1 vector of indices (nvar is the number
% of stationary variables).
% o vartan [char] array of characters (with nvar rows).
%
% ALGORITHM
% None.
%
% SPECIAL REQUIREMENTS
% None.
%
%
% part of DYNARE, copyright Dynare Team (2007)
% Gnu Public License.
global options_
varlist = options_.varlist;
if isempty(varlist)
varlist = options_.varobs;
options_.varlist = varlist;
end
nvar = rows(varlist);
if ~isempty(options_.unit_root_vars)
vartan = [];
for i=1:nvar
if isempty(strmatch(deblank(varlist(i,:)),options_.unit_root_vars,'exact'))
vartan = strvcat(vartan,varlist(i,:));
end
end
else
vartan = varlist;
end
nvar = size(vartan,1);
ivar = zeros(nvar,1);
for i = 1:nvar
ivar(i) = strmatch(deblank(vartan(i,:)),M_.endo_names,'exact');
end