-
Notifications
You must be signed in to change notification settings - Fork 1
/
setup_g.m
48 lines (38 loc) · 1.43 KB
/
setup_g.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
%%=================================================================
%% Setup the economic environment: real wage rigid, diminishing marginal returns to labor, inelastic supply of labor; perfect competition; risk-neutral households
%% Weekly frequency
%% Assume gradual wage adjustment
%%=================================================================
global delta eta c a alpha omega s B r varsigma u_target th_target w gamma zeta ar
global q f u finv qinv uinv ur
global ns
%% --- Estimated parameters ---
delta=(0.95).^(1./(12*4)); % Discount factor
s=0.038./4; % Job-destruction rate
omega=0.933./4; % Matching efficacy
eta=0.5; % Unemployment elasticity of matching function
a=1; % Long-run technology
u_target=0.058;% CPS -- 1964-2009 (also average of HP trend)
r=1-delta.*(1-s);
varsigma=s./(1-s);
gamma=.8;% Real-wage rigidity-- 0.7
%% --- Functions ---
% Use Cobb-Douglas matching function
q=@(x)omega.*x.^(-eta);
qinv=@(q)(q./omega).^(-1./eta);
finv=@(f)(f./omega).^(1./(1-eta));
f=@(x)omega.*x.^(1-eta);
uinv=@(ux)finv(varsigma*(1-ux)./ux);
u=@(th)varsigma./(varsigma+f(th));
th_target=uinv(u_target);
n_target=(1-u_target)./(1-s);
%% --- Calibration ---
ls=0.66; % Standard labor share
ccoeff=0.32;
alpha=ls.*(1+r.*ccoeff./q(th_target));
B=alpha.*(1-s).^(1-alpha);% Useful parameter
w=ls./n_target^(1-alpha);
c=ccoeff.*w;
ur=@(ax) max(1-((alpha./w).^(1./(1-alpha)).*ax.^((1-gamma)./(1-alpha))),0);
ar=(w./alpha).^(1./(1-gamma));
zeta=0.016;