Hello,
I am replicating a fairly simple RBC model with a human capital sector. Particularly, I am trying to replicate this paper: aeaweb.org/aea/2013conferen … ?pdfid=191
I have the code below and I try to solve it using logs (in exp). The steady states exist but it gives me error message:
One of the eigenvalues is close to 0/0 (the absolute value of numerator and denominator is
smaller than 1e-006!
I know I have entered the model correctly but dynare give me error message. I checked the other topics related to this but the answer is usually vague. Any help is appreciated. Below is the code I am using.
// Endogenous variables
var Y C N M L IK IH K H V Z S lambda mu YV YK YH YN IHV IHK IHM IHH;
// Exogenous variables
varexo z s;
// Parameters
parameters beta sigma A phi1 phi2 deltak deltah Ag Ah rhoz rhos sigmaz sigmas;
beta = 0.986;
sigma = 1;
A = 1.55;
phi1 = 0.36;
phi2 = 0.11;
deltak = 0.02;
deltah = 0.005;
Ag = 1;
Ah = 0.0461;
rhoz = 0.95;
rhos = 0.95;
sigmaz = 0.0007;
sigmas = 0.0007;
// Model structure
model;
exp(L) = 1-exp(M)-exp(N);
exp(L)^A*(exp©exp(L)^A)^(-sigma) = exp(lambda);
Aexp©exp(L)^(A-1)(exp©exp(L)^A)^(-sigma)= exp(lambda)exp(YN);
Aexp©exp(L)^(A-1)(exp©exp(L)^A)^(-sigma)= exp(mu)exp(IHM);
exp(lambda)exp(YV) = exp(mu)exp(IHV);
exp(lambda) = beta(exp(lambda(+1))(exp((YK(+1))+1-deltak))+exp(mu(+1))exp(IHK(+1)));
exp(mu) = beta(exp(lambda(+1))exp(YH(+1))+exp(mu(+1))(exp(IHH(+1))+1-deltah));
exp© = exp(Y) - exp(IK);
exp(K) = exp(IK) + (1-deltak)exp(K(-1));
exp(H) = exp(IH) + (1-deltah)exp(H(-1));
exp(Y) = Agexp(Z)(((V))^(phi1))((exp(K(-1)))^(phi1))((exp(N))^(1-phi1))((exp(H))^(1-phi1));
exp(YV) = phi1Agexp(Z)(((V))^(phi1-1))((exp(K(-1)))^(phi1))((exp(N))^(1-phi1))((exp(H))^(1-phi1));
exp(YK) = phi1Agexp(Z)(((V))^(phi1))((exp(K(-1)))^(phi1-1))((exp(N))^(1-phi1))((exp(H))^(1-phi1));
exp(YN) = (1-phi1)Agexp(Z)(((V))^(phi1))((exp(K(-1)))^(phi1))((exp(N))^(-phi1))((exp(H))^(1-phi1));
exp(YH) = (1-phi1)Agexp(Z)(((V))^(phi1))((exp(K(-1)))^(phi1))((exp(N))^(1-phi1))((exp(H))^(-phi1));
exp(IH) = Ahexp(S)((1-(V))^(phi2))((exp(K(-1)))^(phi2))((exp(M))^(1-phi2))((exp(H))^(1-phi2));
exp(IHV) = phi2Ahexp(S)((1-(V))^(phi2-1))((exp(K(-1)))^(phi2))((exp(M))^(1-phi2))((exp(H))^(1-phi2));
exp(IHK) = phi2Ahexp(S)((1-(V))^(phi2))((exp(K(-1)))^(phi2-1))((exp(M))^(1-phi2))((exp(H))^(1-phi2));
exp(IHM) = (1-phi2)Ahexp(S)((1-(V))^(phi2))((exp(K(-1)))^(phi2))((exp(M))^(-phi2))((exp(H))^(1-phi2));
exp(IHH) = (1-phi2)Ahexp(S)((1-(V))^(phi2))((exp(K(-1)))^(phi2))((exp(M))^(1-phi2))((exp(H))^(-phi2));
Z = rhozZ(-1)+z;
S = rhos*S(-1)+s;
end;
// Initial values
initval;
Y = 0;
C = 0;
N = 0;
M = 0;
L = 0;
K = 0;
H = 0;
IK = 0;
IH = 0;
YK = 0;
YN = 0;
YH = 0;
YV = 0;
IHK = 0;
IHM = 0;
IHH = 0;
IHV = 0;
lambda = 0;
mu = 0;
V = 0.95;
Z = 0;
S = 0;
end;
steady(solve_algo=4,maxit=1000);
model_diagnostics;
shocks;
var z = sigma;
var s = sigma;
end;
check;
stoch_simul(periods=1000);