clear
clc
close all
dynare fondamental.mod
    irf_1=oo_.irfs;
    save fondamental.mat irf_1
    dynare fondamentaljojo.mod
    irf_2=oo_.irfs;
    save fondamentaljojo.mat irf_2
    load('fondamental.mat','irf_1');
    load('fondamentaljojo.mat','irf_2');
    ending_cell={'_epsA'};
    for ii=1:length(ending_cell)
HOR=1:options_.irf;
var={'Y','C','C_R','C_NR','T_NR','W','G','I','pi','MC','K','A','LH','Q','R_D','R_Q','R_B','N','U','B','MBS_CoB','M','HC','R_SPREAD','R_IB','R','IB','X','Lamda','m','PRIM'};
for jj=1:length(var)
subplot(5,5,jj)
eval(['irf_1.' var{1,jj},ending_cell{1,ii}]);
eval(['irf_2.' var{1,jj},ending_cell{1,ii}]);
plot(HOR,eval(['irf_1.' var{1,jj},ending_cell{1,ii}]),'LineWidth',5);
hold on
plot(HOR,eval(['irf_2.' var{1,jj},ending_cell{1,ii}]),'LineWidth',5);
grid;
title(['Reponse de  ',var{1,jj},'  Au choc  ',ending_cell{1,ii}] )
legend('Sans frictions financières','Avec frictions financières')
xlabel('Trimestres');
ylabel('IRFs');
end
         end
