!transition_variables
c, y, k, R, h, z, i, w

!transition_shocks
epsilon

!parameters
alpha = 0.36;
beta  = 0.9891;
delta = 0.025;
psi   = 1.7325;
rho   = 0.95;
sigma = 0.35;

% sstate parameters
hstar = 1/3;    % odpracovane hodiny
kstar = ((1/beta - (1-delta))/alpha)^(1/(alpha-1)) * hstar;   
ystar = ((1/beta - (1-delta))/alpha) *kstar;   
cstar = (1- alpha*delta/(1/beta - (1-delta))) *ystar;    
rstar = alpha*kstar^(alpha-1)*hstar^(1-alpha); 
istar = ystar - cstar;

!transition_equations
'Eulerova rovnice'
c{+1} = c + beta*rstar*R{+1};
'Intratemporalni rovnice'
c = y - h/(1-hstar);
'Mezni produkt kapitalu'
R = y - k{-1};
'Rozpoctove omezeni ekonomiky'
k = ystar/kstar*y - cstar/kstar*c + (1-delta)*k{-1};
'Produkcni funkce'
y = z + alpha*k{-1} + (1-alpha)*h;
'Process pro sok'
z = rho*z{-1} + epsilon;
'Investice'
ystar*y = cstar*c + istar *i;
'Mezni produkt prace'
w = y - h;