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

!transition_shocks
epsilon

!parameters
alpha  = 0.33;
beta   = 0.98;
delta  = 0.08;
psi    = 1.5;
rho    = 0.90;
sigma  = 0.5;

% sstate parameters
hstar = 36/105;    
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); 

!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;