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

Add TeX eps-loader to graph_decomp.m called in shock_decomposition.m

time-shift
Johannes Pfeifer 2015-05-12 08:05:06 +02:00
parent efb23bbca0
commit 3a18b72f1b
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
matlab/graph_decomp.m
View File

@ -28,6 +28,15 @@ x = initial_period-1/freq:(1/freq):initial_period+(gend-1)/freq;
nvar = length(i_var);
%% write LaTeX-Header
if DynareOptions.TeX,
fidTeX = fopen([DynareModel.fname '_shock_decomp.TeX'],'w');
fprintf(fidTeX,'%% TeX eps-loader file generated by Dynare''s graph_decomp.m.\n');
fprintf(fidTeX,['%% ' datestr(now,0) '\n']);
fprintf(fidTeX,' \n');
end
%%plot decomposition
for j=1:nvar
z1 = squeeze(z(i_var(j),:,:));
xmin = x(1);
@ -81,4 +90,20 @@ for j=1:nvar
dyn_saveas(fhandle,[DynareModel.fname,'_shock_decomposition_',deblank(endo_names(i_var(j),:))],DynareOptions);
hold off
end
if DynareOptions.TeX,
fprintf(fidTeX,'\\begin{figure}[H]\n');
fprintf(fidTeX,'\\centering \n');
fprintf(fidTeX,['\\includegraphics[scale=0.5]{%s_shock_decomposition_%s}\n'],DynareModel.fname,deblank(endo_names(i_var(j),:)));
fprintf(fidTeX,'\\label{Fig:shock_decomp:%s}\n',deblank(endo_names(i_var(j),:)));
fprintf(fidTeX,'\\caption{Historical shock decomposition: %s}\n',deblank(endo_names(i_var(j),:)));
fprintf(fidTeX,'\\end{figure}\n');
fprintf(fidTeX,' \n');
end
end
%% write LaTeX-Footer
if DynareOptions.TeX,
fprintf(fidTeX,' \n');
fprintf(fidTeX,'%% End of TeX file.\n');
fclose(fidTeX);
end