var     c g ;

parameters bet del rho Abar h gbar cbar;
bet  = 0.99 ;
del  = 0.02 ;
rho  = 0.80 ;
Abar = 0.07 ;
h    = 0.80 ;
gbar = bet*(Abar + 1 - del) ;
cbar = (1/bet-1)*gbar ;

oo_.exo_steady_state = [] ;

model;
    g = 1 - del + Abar - c ;
    c(+1)*g-h*c = (c-h*c(-1)/(g(-1)))*bet*(Abar + 1 - del);
end;

initval;
    c = 0.011 ;
    g = 1.04 ;
end;

endval;
    g = gbar ;
    c = cbar ;
end;

steady;

simul(periods=40);

rplot g;
rplot c;