//RBC-Modell von Hansen
// AR(1) model
//Preambel


//specify variables
var 
y, k, c, z, n, r ;


//specify exogenous variables
varexo eps;

//specify parameters
parameters ctheta, cbeta, cdelta, crho, cgamma, a, nstar;

//initialize parametern 

ctheta = 0.4;
cdelta = 0.012;
crho = 0.95;
cbeta = 0.9875;
cgamma = 1;
a = 2.235084141;
nstar = 1/3;


/* begin model block
equations specified here must equal the number of endogenous variabels
*/

model;
c*a*n=(1-ctheta)*y;
k = cbeta*(((c)/c(+1)))*(ctheta*y(+1)+(1-cdelta)*k);
y = cgamma*exp(z)*k(-1)^ctheta*(n^(1-ctheta));
k = (y-c)+(1-cdelta)*k(-1);
z = crho * z(-1) + eps;
r = ctheta*(y(+1)/k)+(1-cdelta);
end;

// //initial value block
// initval;
// r = 0.012658228;
// y = 2.136047136;
// k = 34.65045662;
// c = 1.720241657;
// n = 1/3;
// z = 0;
// eps = 0;
// end;

steady; //not necessary if exact ss values are entered

check;
shocks;
var eps; stderr 0.009;
end;

stoch_simul(ar=10);