% Modelo con Precio Rígidos
% DANEY VALDIVIA

%-------------------------------
% 1. Definición de Variables
%-------------------------------
var c, n, a, z_p, w_p, y, k, i, r, pi, s, inom;

varexo e, v;

parameters beta, alfa, delta, rho, rctte, Nctte, epsilon, lambda, phi, C_Y, I_Y; 
%-------------------------------
% 2. Calibración del modelo
%-------------------------------
beta = 0.99 ;
alfa = 0.33;
delta = 0.02;
rho = 0.7; // asumimos rho del anterior ejercicio y para pregunta 3 cambiamos a 0.7
rctte = (1/beta)-1;
Nctte = 1/3;
C_Y = 0.915884039;
I_Y = 0.675562815;
epsilon = 0.75;//Probabilidad de la empresa de ajuste su precio
lambda = (1-beta*epsilon)*(1-epsilon)/epsilon;
phi = 1.01;
sigma = (0.007/(1-alfa));

%-------------------------------
% 3. Modelo
%-------------------------------
model;
c = c(+1)-r;//Consumidores
n = ((1-Nctte)/Nctte)*w_p-((1-Nctte)/Nctte)*c;
r = ((rctte+delta)/(1+rctte))*z_p(+1);//Inversión
k = (1-delta)*k(-1)+delta*i(-1);
y = C_Y*c+I_Y*i;//Equilibrio en la economía
a = rho*a(-1)+e;//Shocks productivos
z_p-w_p = n-k(-1);//Firmas
y = a+alfa*k(-1)+(1-alfa)*n;
pi = beta*pi(+1)+lambda*s;//Fijación de precios
s = (1-alfa)*w_p+alfa*z_p-a;
inom = phi*pi+v;//Política Monetaria
r = inom-pi(+1);
end;

shocks;
var e = sigma^2;
var v = sigma^2;
end;

stoch_simul(periods=500,irf=100);