lagrule = 1;%1;
pl_periods = 300;
% Macro varibales Eq-Transition
G_Y_3       = 100*oo_.endo_simul((strmatch('dgdp_a_t',M_.endo_names,'exact')),lagrule:pl_periods)';
G_C_3       = 100*oo_.endo_simul((strmatch('c_a_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
G_Pi_3      = 100*oo_.endo_simul((strmatch('pi_a_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
G_B_3       = 100*oo_.endo_simul((strmatch('BG_a_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
G_R_3       = 100*oo_.endo_simul((strmatch('i_EMU_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
G_In_3      = 100*oo_.endo_simul((strmatch('in_a_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
G_U_3       = 100*oo_.endo_simul((strmatch('ur_a_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
G_W_3       = 100*oo_.endo_simul((strmatch('wr_a_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
G_RER_3     = 100*oo_.endo_simul((strmatch('rer_ba_obs',M_.endo_names,'exact')),lagrule:pl_periods)';

Eu_Y_3      = 100*oo_.endo_simul((strmatch('dgdp_b_t',M_.endo_names,'exact')),lagrule:pl_periods)';
Eu_C_3      = 100*oo_.endo_simul((strmatch('c_b_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
Eu_Pi_3     = 100*oo_.endo_simul((strmatch('pi_b_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
Eu_B_3      = 100*oo_.endo_simul((strmatch('BG_b_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
Eu_In_3     = 100*oo_.endo_simul((strmatch('in_b_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
Eu_U_3      = 100*oo_.endo_simul((strmatch('ur_b_obs',M_.endo_names,'exact')),lagrule:pl_periods)';
Eu_W_3      = 100*oo_.endo_simul((strmatch('wr_b_obs',M_.endo_names,'exact')),lagrule:pl_periods)';

%Fiscal variables Eq-Transition
G_tauw_3    = (oo_.endo_simul((strmatch('tauw_a_t',M_.endo_names,'exact')),lagrule:20)'-tauw_a)*100;
G_tausc_3   = (oo_.endo_simul((strmatch('tausc_a_t',M_.endo_names,'exact')),lagrule:20)'-tausc_a)*100;
G_tauk_3    = (oo_.endo_simul((strmatch('tauk_a_t',M_.endo_names,'exact')),lagrule:20)'-tauk_a)*100;
G_tauc_3    = (oo_.endo_simul((strmatch('tauc_a_t',M_.endo_names,'exact')),lagrule:20)'-tauc_a)*100;
G_T_3       = (oo_.endo_simul((strmatch('T_a_t',M_.endo_names,'exact')),lagrule:20)'-T_a_ts)/T_a_ts*100;

Eu_tauw_3   = (oo_.endo_simul((strmatch('tauw_b_t',M_.endo_names,'exact')),lagrule:20)'-tauw_b)*100;
Eu_tausc_3  = (oo_.endo_simul((strmatch('tausc_b_t',M_.endo_names,'exact')),lagrule:20)'-tausc_b)*100;
Eu_tauk_3   = (oo_.endo_simul((strmatch('tauk_b_t',M_.endo_names,'exact')),lagrule:20)'-tauk_b)*100;
Eu_tauc_3   = (oo_.endo_simul((strmatch('tauc_b_t',M_.endo_names,'exact')),lagrule:20)'-tauc_b)*100;
Eu_T_3      = (oo_.endo_simul((strmatch('T_b_t',M_.endo_names,'exact')),lagrule:20)'-T_b_ts)/T_b_ts*100;

G_cG_3      = (oo_.endo_simul((strmatch('cG_a_t',M_.endo_names,'exact')),lagrule:20)'-cG_a_ts)/cG_a_ts*100;
G_inG_3     = (oo_.endo_simul((strmatch('inG_a_t',M_.endo_names,'exact')),lagrule:20)'-inG_a_ts)/inG_a_ts*100;
G_N_3       = (oo_.endo_simul((strmatch('nG_a_t',M_.endo_names,'exact')),lagrule:20)'-nG_a_ts)*100;
G_TR_r_3    = (oo_.endo_simul((strmatch('TR_r_a_t',M_.endo_names,'exact')),lagrule:20)'-TR_r_a_ts)/TR_r_a_ts*100;
G_TR_o_3    = (oo_.endo_simul((strmatch('TR_o_a_t',M_.endo_names,'exact')),lagrule:20)'-TR_o_a_ts)/TR_o_a_ts*100;
G_TR_3      = (oo_.endo_simul((strmatch('TR_a_t',M_.endo_names,'exact')),lagrule:20)'-TR_a_ts)/TR_a_ts*100;

Eu_cG_3     = (oo_.endo_simul((strmatch('cG_b_t',M_.endo_names,'exact')),lagrule:20)'-cG_b_ts)/cG_b_ts*100;
Eu_inG_3    = (oo_.endo_simul((strmatch('inG_b_t',M_.endo_names,'exact')),lagrule:20)'-inG_b_ts)/inG_b_ts*100;
Eu_N_3      = (oo_.endo_simul((strmatch('nG_b_t',M_.endo_names,'exact')),lagrule:20)'-nG_b_ts)*100;
Eu_TR_r_3   = (oo_.endo_simul((strmatch('TR_r_b_t',M_.endo_names,'exact')),lagrule:20)'-TR_r_b_ts)/TR_r_b_ts*100;
Eu_TR_o_3   = (oo_.endo_simul((strmatch('TR_o_b_t',M_.endo_names,'exact')),lagrule:20)'-TR_o_b_ts)/TR_o_b_ts*100;
Eu_TR_3     = (oo_.endo_simul((strmatch('TR_b_t',M_.endo_names,'exact')),lagrule:20)'-TR_b_ts)/TR_b_ts*100;

save TransTH G_Y_3 G_C_3 G_Pi_3 G_B_3 G_R_3 G_In_3 G_U_3 G_W_3 G_RER_3 Eu_Y_3 Eu_C_3 Eu_Pi_3 Eu_B_3 Eu_In_3 Eu_U_3 Eu_W_3 G_tauw_3 G_tausc_3 G_tauk_3 G_tauc_3 G_T_3 Eu_tauw_3 Eu_tausc_3 Eu_tauk_3 Eu_tauc_3 Eu_T_3 G_cG_3 G_inG_3 G_N_3 G_TR_r_3 G_TR_o_3 G_TR_3 Eu_cG_3 Eu_inG_3 Eu_N_3 Eu_TR_r_3 Eu_TR_o_3 Eu_TR_3 
