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

MS-SBVAR: bug correction

time-shift
Michel Juillard 2011-05-30 20:27:05 +02:00
parent 1487147ba0
commit de2c2e2bc6
2 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
matlab/ms-sbvar/plot_ms_forecast.m
View File

@ -83,8 +83,13 @@ function plot_ms_forecast(M_,forecast,title_,save_graph_formats,TeX)
end
function plot_point_forecast(forecast,nvars,nr,nc,endo_names,title_,save_graph_formats,TeX,names,tex_names,dirname)
graph_name = 'MS-Forecast (1)';
fig = figure('Name','Forecast (I)');
if nvars > nr*nc
graph_name = 'MS-Forecast (1)';
fig = figure('Name','Forecast (I)');
else
graph_name = 'MS-Forecast';
fig = figure('Name','Forecast');
end
m = 1;
n_fig = 1;
for j=1:nvars
@ -110,8 +115,13 @@ function plot_point_forecast(forecast,nvars,nr,nc,endo_names,title_,save_graph_f
end
function plot_banded_forecast(forecast,nvars,nr,nc,endo_names,num_percentiles,title_,save_graph_formats,TeX,names,tex_names,dirname)
fig = figure('Name',[title_ ' (1)']);
graph_name = 'MS-Forecast (1)';
if nvars > nr*nc
graph_name = 'MS-Forecast (1)';
fig = figure('Name','Forecast (I)');
else
graph_name = 'MS-Forecast';
fig = figure('Name','Forecast');
end
m = 1;
n_fig = 1;
for j=1:nvars

12
matlab/ms-sbvar/plot_ms_irf.m
View File

@ -100,7 +100,7 @@ function plot_ms_irf(M_,options_,irf,names,title_,varlist)
for i=1:nvars
shock(:,i) = irf(:,((i-1) + ((s-1)*nvars)+1));
end
plot_point_irf_for_shock(shock,nvars,endo_names,endo_names(s,:),title_,fname,options_,names,tex_names);
plot_point_irf_for_shock(shock,nvars,endo_names,deblank(endo_names(s,:)),title_,fname,options_,names,tex_names);
end
else
for s=1:nvars
@ -110,7 +110,7 @@ function plot_ms_irf(M_,options_,irf,names,title_,varlist)
shock(:,i,n) = irf(n,:,((i-1) + ((s-1)*nvars)+1));
end
end
plot_banded_irf_for_shock(shock,nvars,endo_names,endo_names(s,:),title_,fname,options_,names,tex_names);
plot_banded_irf_for_shock(shock,nvars,endo_names,deblank(endo_names(s,:)),title_,fname,options_,names,tex_names);
end
end
@ -124,8 +124,8 @@ function [fig] = plot_point_irf_for_shock(irf,nvars,endo_names,shock_name,title_
disp([endo_names(k,:) ' shock from ' shock_name]);
title([endo_names(k,:) ' shock from ' shock_name]);
end
dyn_save_graph(dirname,['MS-Variance-Decomposition-' shock_name],options_.graph_save_formats, ...
options_.TeX,names,tex_names,['Variance decomposition ' shock_name]);
dyn_save_graph(dirname,['MS-IRF-' shock_name],options_.graph_save_formats, ...
options_.TeX,names,tex_names,['IRF ' shock_name]);
end
function [fig] = plot_banded_irf_for_shock(irf,nvars, endo_names, shock_name,title_,dirname,options_,names,tex_names)
@ -141,8 +141,8 @@ function [fig] = plot_banded_irf_for_shock(irf,nvars, endo_names, shock_name,tit
disp([endo_names(k,:) ' shock from ' shock_name]);
title([endo_names(k,:) ' shock from ' shock_name]);
end
dyn_save_graph(dirname,['MS-Variance-Decomposition-' shock_name],options_.graph_save_formats, ...
options_.TeX,names,tex_names,['Variance decomposition ' shock_name]);
dyn_save_graph(dirname,['MS-IRF-' shock_name],options_.graph_save_formats, ...
options_.TeX,names,tex_names,['IRF ' shock_name]);
end