41 lines
1017 B
Modula-2
41 lines
1017 B
Modula-2
// --+ options: nostrict +--
|
|
/*
|
|
** In the following example, we only declare one endogenous variable per equation. Because the other objects are not declared
|
|
** they are treated as exogenous variables. An equation tag is used to associate an endogenous variable to each equation.
|
|
*/
|
|
|
|
model;
|
|
|
|
[endogenous='h']
|
|
c*theta*h^(1+psi)=(1-alpha)*y;
|
|
|
|
[endogenous='k']
|
|
k = beta*(((exp(b)*c)/(exp(b(+1))*c(+1)))
|
|
*(exp(b(+1))*alpha*y(+1)+(1-delta)*k));
|
|
|
|
[endogenous='y']
|
|
y = exp(a)*(k(-1)^alpha)*(h^(1-alpha));
|
|
|
|
[endogenous='c']
|
|
k = exp(b)*(y-c)+(1-delta)*k(-1);
|
|
|
|
[endogenous='a']
|
|
a = rho*a(-1)+tau*b(-1) + e;
|
|
|
|
[endogenous='b']
|
|
b = tau*a(-1)+rho*b(-1) + u;
|
|
|
|
end;
|
|
|
|
if ~isequal(length(intersect(M_.endo_names, {'c'; 'y'; 'k'; 'b'; 'a'; 'h'})), 6)
|
|
error('Endogenous variables are wrong.')
|
|
end
|
|
|
|
if length(M_.param_names) > 0
|
|
error('Parameters are wrong.')
|
|
end
|
|
|
|
if ~isequal(length(intersect(M_.exo_names, {'e'; 'u'; 'theta'; 'psi'; 'alpha'; 'beta'; 'delta'; 'rho'; 'tau'})), 9)
|
|
error('Exogenous variables are wrong.')
|
|
end
|