%
%MODELO ECONOMÍA ABIERTA CON REMESAS - ECONOMIA CON CAPITAL Y TRABAJO   

% Supuestos:
% En esta economia, el ingreso depende del CAPITAL Y TRABAJO.
% El precio de los bienes transables es uno (numerario)
% El tipo de cambio real es 1/pn

% Variables
% c:   Consumo total
% ct:  Consumo de bienes transables
% cn:  Consumo de bienes no transables
% b:   Posicion de activos externos
% p:   precio de bienes no transables
% rem: Remesas
% yt:  Ingreso por de bienes transables
% yn:  Ingreso por de bienes no transables
% kt:  Capital en bienes transables
% kn:  Capital en bienes no transables
% i:   Inversión
% k:   Capital total

var ct cn c kt kn p b rem k;
varexo e;

parameters tau beta theta alphat alphan delta rho an at r;

tau=0.42;
beta=1/(1+0.0082);
theta=2;
alphat=0.72;
alphan=0.28;
delta=0.024;
r=0.0082;
an=1;
at=1;
rho=0.65;



model;
c(+1)=c*(beta*(alphat*at*kt^(alphat-1)+1-delta))^(1/theta);
ct=cn*(tau/(1-tau))*p;
c=ct+p*cn;
alphat*at*kt^(alphat-1)=r+delta;
p*alphan*an*kn^(alphan-1)=r+delta;
ct+k-(1-delta)*k(-1)+b=at*kt(-1)^(alphat)+b(-1)*(1+r)+rem;
k=kt+kn;
cn=an*kn(-1)^(alphan);
rem=rho*rem(-1)+e;

end;

initval;
k=5;
kn=1;
kt=1;
c=10;
ct=1;
cn=5;
b=0;
rem=0;
e=0;
end;

steady;

check;

shocks;
var e;
stderr 0.065;
end;

stoch_simul(dr_algo=0,periods=1000);