var c k a;
varexo e;
parameters alpha beta delta gamma rho;

beta = 0.95;
delta = 1;
alpha = 0.3;
rho = 0;
gamma = 2;

model;
exp(c) + exp(k) = (1-delta) * exp(k(-1)) + exp(a) * exp(k(-1))^alpha;
exp(c)^(-gamma) = beta * exp(c(+1))^(-gamma) * (exp(a(+1)) * alpha * exp(k)^(alpha-1) + 1 - delta);
a = rho * a(-1) + e;
end;

initval;
k=0;
c=0;
a=0;
e=0;
end;

Sigma_e_ = 1;

stoch_simul(nomoments,nocorr,ar=0,irf=0);

global dr_
load objectives/sgu_ex1;

fataltest(oo_.dr.ghx,dr_obj_.ghx,1);
fataltest(oo_.dr.ghu,dr_obj_.ghu,2);
fataltest(oo_.dr.ghxx,dr_obj_.ghxx,3);
fataltest(oo_.dr.ghxu,dr_obj_.ghxu,4);
fataltest(oo_.dr.ghuu,dr_obj_.ghuu,5);

disp('TESTS OK');