2005-02-19 20:13:45 +01:00
|
|
|
% computes the steady state of fs2000 analyticaly
|
|
|
|
% largely inspired by the program of F. Schorfheide
|
2006-01-08 09:40:06 +01:00
|
|
|
function [ys,check] = fs2000a_steadystate(ys,exe)
|
|
|
|
global M_
|
|
|
|
|
|
|
|
alp = M_.params(1);
|
|
|
|
bet = M_.params(2);
|
|
|
|
gam = M_.params(3);
|
|
|
|
mst = M_.params(4);
|
|
|
|
rho = M_.params(5);
|
|
|
|
psi = M_.params(6);
|
|
|
|
del = M_.params(7);
|
2005-02-19 20:13:45 +01:00
|
|
|
|
|
|
|
check = 0;
|
|
|
|
|
|
|
|
dA = exp(gam);
|
|
|
|
gst = 1/dA;
|
|
|
|
m = mst;
|
|
|
|
|
|
|
|
khst = ( (1-gst*bet*(1-del)) / (alp*gst^alp*bet) )^(1/(alp-1));
|
|
|
|
xist = ( ((khst*gst)^alp - (1-gst*(1-del))*khst)/mst )^(-1);
|
|
|
|
nust = psi*mst^2/( (1-alp)*(1-psi)*bet*gst^alp*khst^alp );
|
|
|
|
n = xist/(nust+xist);
|
2006-01-08 09:40:06 +01:00
|
|
|
P = xist + nust;
|
2005-02-19 20:13:45 +01:00
|
|
|
k = khst*n;
|
|
|
|
|
|
|
|
l = psi*mst*n/( (1-psi)*(1-n) );
|
2006-01-08 09:40:06 +01:00
|
|
|
c = mst/P;
|
2005-02-19 20:13:45 +01:00
|
|
|
d = l - mst + 1;
|
|
|
|
y = k^alp*n^(1-alp)*gst^alp;
|
2006-01-08 09:40:06 +01:00
|
|
|
R = mst/bet;
|
|
|
|
W = l/n;
|
2005-02-19 20:13:45 +01:00
|
|
|
ist = y-c;
|
|
|
|
q = 1 - d;
|
|
|
|
|
|
|
|
e = 1;
|
|
|
|
|
|
|
|
gp_obs = m/dA;
|
|
|
|
gy_obs = dA;
|
|
|
|
|
|
|
|
P_obs = 1;
|
|
|
|
Y_obs = 1;
|
|
|
|
|
|
|
|
ys =[
|
2006-01-08 09:40:06 +01:00
|
|
|
m
|
|
|
|
P
|
|
|
|
c
|
|
|
|
e
|
|
|
|
W
|
|
|
|
R
|
|
|
|
k
|
|
|
|
d
|
|
|
|
n
|
|
|
|
l
|
|
|
|
gy_obs
|
|
|
|
gp_obs
|
|
|
|
Y_obs
|
|
|
|
P_obs
|
|
|
|
y
|
|
|
|
dA ];
|