%IRF from e_x
M_.fname = 'part_stoch_shock_x';
figure('Name','IRF on x');
subplot(4,4,1);
plot(x_e_x);
hold on;
line([0,40],[0,0],'color','r')
title ('    x');
subplot(4,4,2);
plot(r_e_x);
hold on;
line([0,40],[0,0],'color','r');
title ('     R_F');
subplot(4,4,3);
plot(f_e_x); 
hold on;
line([0,40],[0,0],'color','r')
title ('    f');
subplot(4,4,4);
plot(b_e_x); 
hold on;
line([0,40],[0,0],'color','r')
title ('    b');
subplot(4,4,5);
plot(d_e_x); 
hold on;
line([0,40],[0,0],'color','r')
title ('    d');
subplot(4,4,6);
plot(er_e_x); 
hold on;
line([0,40],[0,0],'color','r')
title ('       er');
%ylabel('y label for c');
%xlabel('c here');
subplot(4,4,7);
plot(l_e_x);
hold on;
line([0,40],[0,0],'color','r')
title ('       \it loans');
subplot(4,4,8);
plot(k_e_x);
hold on;
line([0,40],[0,0],'color','r')
title ('    k');

% subplot(4,4,9);
% plot(w_e_x); 
% hold on;
% line([0,40],[0,0],'color','r')
% title ('       w');


subplot(4,4,9);
plot(m_e_x); 
hold on;
line([0,40],[0,0],'color','r')
title ('       m');

subplot(4,4,10);
plot(c_e_x);
hold on;
line([0,40],[0,0],'color','r')
title ('     c');
subplot(4,4,11);
plot(P_e_x); 
hold on;
line([0,40],[0,0],'color','r')
title ('       P');
