clear 
close all

%% set parameters
sigma = 2; % risk aversion
eta = 1.5 ; % substitution btw home and foreign goods 
phi = 2.2; % inverse labor supply elasticity
alpha = 0.26; % labor decreasing returns to scale
epsilon_p = 3.8; % price-elasticity
epsilon_w = 4.3; % wage-elasticity
gamma = 0.99; % DNWR
theta_p = 0.8; % Calvo parameter (goods)
beta  = 0.99; % discount rate
omega = 0.0000335; % risk premium parameter
nu = 0.3; % openness parameter
rho_a = 0.74; % TFP persistence                   
rho_z = 0.6; % Preference persistence                                            
rho_z1star = 0.9; % foreign output shock persistence 
rho_z2star = 0.9; % foreign interest rate shock persistence

sigma_a = 0.01;
sigma_z = 0.0289;
sigma_z1star = 0.0057;
sigma_z2star = 0.001;

N = 1 / 3; % hours

bbar = -0.5; % steady state foreign asset level

save params_dnwr sigma eta phi alpha epsilon_p epsilon_w gamma theta_p beta omega nu ...
    rho_a rho_z rho_z1star rho_z2star sigma_a sigma_z sigma_z1star sigma_z2star N bbar 

dynare FNWR.mod