adding missing test files
parent
be97d37ce3
commit
0a3545f2af
|
@ -0,0 +1,13 @@
|
||||||
|
function [ys_, check_] = expectation_ss_old_steadystate(ys_orig_, exo_)
|
||||||
|
% Steady state generated by Dynare preprocessor
|
||||||
|
ys_=zeros(6,1);
|
||||||
|
global M_
|
||||||
|
ys_(4)=0;
|
||||||
|
ys_(6)=0;
|
||||||
|
ys_(5)=0.3333333333333333;
|
||||||
|
ys_(3)=((1/M_.params(1)-(1-M_.params(4)))/(M_.params(3)*ys_(5)^(1-M_.params(3))))^(1/(M_.params(3)-1));
|
||||||
|
ys_(1)=ys_(5)^(1-M_.params(3))*ys_(3)^M_.params(3);
|
||||||
|
ys_(2)=ys_(1)-M_.params(4)*ys_(3);
|
||||||
|
M_.params(5)=(1-M_.params(3))*ys_(1)/(ys_(2)*ys_(5)^(1+M_.params(6)));
|
||||||
|
check_=0;
|
||||||
|
end
|
|
@ -0,0 +1,41 @@
|
||||||
|
function [ys,check] = wlash1_old_ss_steadystate(ys0,exo)
|
||||||
|
global M_
|
||||||
|
|
||||||
|
check = 0;
|
||||||
|
|
||||||
|
params = M_.params;
|
||||||
|
alpha = params(1);
|
||||||
|
beta = params(2);
|
||||||
|
delta = params(3);
|
||||||
|
gamm = params(4);
|
||||||
|
phi1 = params(5);
|
||||||
|
eta = params(6);
|
||||||
|
a = params(7);
|
||||||
|
b = params(8);
|
||||||
|
rho = params(9);
|
||||||
|
phi2 = params(10);
|
||||||
|
Psi = params(11);
|
||||||
|
thetass = params(12);
|
||||||
|
|
||||||
|
pi = thetass-1;
|
||||||
|
en = 1/3;
|
||||||
|
eR = 1/beta;
|
||||||
|
y_k = (1/alpha)*(1/beta-1+delta);
|
||||||
|
ek = en*y_k^(-1/(1-alpha));
|
||||||
|
ec = ek*(y_k-delta);
|
||||||
|
em = ec*(a/(1-a))^(-1/b)*((thetass-beta)/thetass)^(-1/b);
|
||||||
|
ey = ek*y_k;
|
||||||
|
Xss = a*ec^(1-b)*(1+(a/(1-a))^(-1/b)*((thetass-beta)/thetass)^((b-1)/b));
|
||||||
|
Psi = (1-alpha)*(ey/en)*Xss^((b-phi1)/(1-b))*a*ec^(-b)*(1-en)^eta;
|
||||||
|
n = log(en);
|
||||||
|
k = log(ek);
|
||||||
|
m = log(em);
|
||||||
|
c = log(ec);
|
||||||
|
y = log(ey);
|
||||||
|
R = log(eR);
|
||||||
|
z = 0;
|
||||||
|
u = 0;
|
||||||
|
|
||||||
|
ys = [y c k m n R pi z u]';
|
||||||
|
M_.params(11) = Psi;
|
||||||
|
|
Loading…
Reference in New Issue