%===============================================================================
% Variables
%===============================================================================

% Exogenous
varexo n g;

% Endogenous
var Y K L C I r w;

% Predetermined
predetermined_variables K;

%===============================================================================
% Parameters
%===============================================================================

parameters h delta alpha beta gamma;

h     = 52*100;  % page 430
delta = 0.0556;  % page 433
alpha = 0.3590;  % page 434
beta  = 0.9752;  % page 440
gamma = 0.2846;  % page 440

%===============================================================================
% Detrended Model
%===============================================================================

model;
    Y = (K^alpha)*(L^(1-alpha));             % Production function
    w = (1-alpha)*Y/L;                       % Wage rate
    r = alpha*Y/K;                           % Interest rate
    C + I = Y;                               % Market clearing
    g*n*K(+1) = (1-delta)*K + I;             % Law of motion of capital
    w*(h - L) = ((1-gamma)/gamma)*C;         % Consumption-labor choice
    g*n*C(+1)/C = beta*(1 - delta + r(+1));  % Euler equation
end;

%===============================================================================
% Initial Values
%===============================================================================

initval;
    Y = ...;
    K = ...;
    L = ...;
    C = ...;
    I = ...;
    r = ...;
    w = ...;
    g = ...;
    n = ...;
end;

%===============================================================================
% End Values
%===============================================================================

endval;
    Y = ...;
    K = ...;
    L = ...;
    C = ...;
    I = ...;
    r = ...;
    w = ...;
    g = ...;
    n = ...;
end;

steady;
check;