% This is the main file for welfare evaluation of policies
%shock  parameters
global rho_a rho_d var_a var_d

tic

dynare Ramsey_LQ3
evaluate_planner_objective_LQ3;
gain_rams_CES=result;

dynare Policy_LQ3
evaluate_planner_objective_LQ3;
gain_policy_CES=result;


%computing consumption equivalent

    CE_gain=exp((gain_rams_CES-gain_policy_CES)*(1-beta))-1;

Percentage_Gain_from_Ramsey_Policy_CES_LQ = CE_gain*100;
LQ3_GAIN=CE_gain*100


toc