53 lines
904 B
Modula-2
53 lines
904 B
Modula-2
var DOTQ Q1 Q2 X1 X2 C D1 D2;
|
|
|
|
varexo E_D1 E_D2;
|
|
|
|
parameters beta, r1, r2, gamma, d, rho1, rho2;
|
|
|
|
beta = 0.95;
|
|
r1 = 0.2;
|
|
r2 = 0.05;
|
|
|
|
gamma = 0.78;
|
|
d = 0.10;
|
|
|
|
rho1 = 0.8;
|
|
rho2 = 0.2;
|
|
|
|
model;
|
|
C + X1 + X2 = D1*Q1 + D2*Q2;
|
|
Q1+Q2 = 1;
|
|
C^(-gamma)/(1-2*r1*X1) = beta*DOTQ(+1)^(-gamma)*C(+1)^(-gamma)/(1-2*r1*X1(+1))*(D1(+1)*(1-2*r1*X1(+1))+1);
|
|
C^(-gamma)/(1-2*r2*X2) = beta*DOTQ(+1)^(-gamma)*C(+1)^(-gamma)/(1-2*r2*X2(+1))*(D2(+1)*(1-2*r2*X2(+1))+1);
|
|
DOTQ*Q1 = Q1(-1) + X1(-1) - r1*X1(-1)^2;
|
|
DOTQ*Q2 = Q2(-1) + X2(-1) - r2*X2(-1)^2;
|
|
|
|
D1/d = D1(-1)^rho1/(d^rho1)*exp(E_D1);
|
|
D2/d = D2(-1)^rho2/(d^rho2)*exp(E_D2);
|
|
|
|
/*
|
|
D1-d = rho1*(D1(-1)-d) + E_D1;
|
|
D2-d = rho2*(D2(-1)-d) + E_D2;
|
|
*/
|
|
end;
|
|
|
|
initval;
|
|
C =0.0441234;
|
|
D1 =0.1000000000000;
|
|
D2 =0.1000000000000;
|
|
|
|
DOTQ =1.05567;
|
|
Q1 =0.333333;
|
|
Q2 =0.666667;
|
|
|
|
X1 =0.0186255;
|
|
X2 =0.0372511;
|
|
end;
|
|
|
|
vcov = [
|
|
0.04 0;
|
|
0 0.01
|
|
];
|
|
|
|
order=5;
|