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
|
var c,a1,k1,a2,k2;
varexo e,e1,e2;
parameters beta, gamma, phi, delta, alpha, rho, zeta, sigma, N;
alpha = 0.36;
delta = 0.025;
phi = 2;
gamma = 1;
beta = 0.99;
rho = 0.95;
zeta = 2;
sigma = 0.005;
N = 2;
model;
c^(-gamma)*(1+phi*zeta*(k1-k1(-1))^(zeta-1)/(2*k1(-1))) = beta*c(+1)^(-gamma)*(1+phi*zeta*(k1-k1(-1))^(zeta-1)/(2*k1(-1))+phi*(k1-k1(-1))^zeta/(2*k1(-1)^2)-delta+alpha*a1(+1)*k1^(alpha-1));
log(a1) = rho*log(a1(-1))+sigma*(e+e1);
c^(-gamma)*(1+phi*zeta*(k2-k2(-1))^(zeta-1)/(2*k2(-1))) = beta*c(+1)^(-gamma)*(1+phi*zeta*(k2-k2(-1))^(zeta-1)/(2*k2(-1))+phi*(k2-k2(-1))^zeta/(2*k2(-1)^2)-delta+alpha*a2(+1)*k2^(alpha-1));
log(a2) = rho*log(a2(-1))+sigma*(e+e2);
N*c+k1+phi*(k1-k1(-1))^zeta/(2*k1)-(1-delta)*k1(-1)+k2+phi*(k2-k2(-1))^zeta/(2*k2)-(1-delta)*k2(-1)= a1*k1(-1)^alpha+a2*k2(-1)^alpha;
end;
initval;
c=1;
e=0;
a1=1;
e1=0;
k1=10;
a2=1;
e2=0;
k2=10;
end;
vcov=[1 0 0; 0 1 0; 0 0 1];
order = 4;
|
