v4 stoch_simul.m: added storage of IRFs in oo_.irfs

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1337 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
michel 2007-07-05 04:34:24 +00:00
parent bcefdfc37c
commit d75d2a459b
1 changed files with 101 additions and 97 deletions

View File

@ -120,6 +120,8 @@ function info=stoch_simul(var_list)
for j = 1:n
assignin('base',[deblank(M_.endo_names(ivar(j),:)) '_' deblank(M_.exo_names(i,:))],...
y(ivar(j),:)');
eval(['oo_.irfs.' deblank(M_.endo_names(ivar(j),:)) '_' ...
deblank(M_.exo_names(i,:)) ' = y(ivar(j),:);']);
if max(y(ivar(j),:)) - min(y(ivar(j),:)) > 1e-10
irfs = cat(1,irfs,y(ivar(j),:));
mylist = strvcat(mylist,deblank(var_list(j,:)));
@ -128,6 +130,7 @@ function info=stoch_simul(var_list)
end
end
end
if options_.nograph == 0
number_of_plots_to_draw = size(irfs,1);
[nbplt,nr,nc,lr,lc,nstar] = pltorg(number_of_plots_to_draw);
if nbplt == 0
@ -249,6 +252,7 @@ function info=stoch_simul(var_list)
fclose(fidTeX);
end
end
end
if options_.SpectralDensity == 1