I am running the paper of "A Theory of the Capacity Utilization/Inflation Relationship" of Mary G. Finn(1995), but i took out the money balances of the model , and keeping the other features the same.
It can also refer to the Mary G. Finn(2000) energy shock model.
It can successfully be run by dynare, unfortunately there is a problem in the figures of impulse response function.
the technology shocks (code: ea) impulse response for the output (yh) it has to be positive, and the energy shocks (code: eo) impulse response for the output (yh) it has to be negative . But in my code run out all in the opposite result.
By the way, My dynare version is 4.3.2.
Hope some of you can help me to fix this problem.
I appreciate for your attention about my question.
Thank you
- Code: Select all
//total 11 endo
var yh c n w k rk u i o a po ;
//total 2 exo
varexo ea eo;
//total param
parameters delta beta varphi alpha omega0 omega1 upsilon0 upsilon1 rhoa rhoo
uS nS_nS ruS poS rkS po_rk ch_yh i_yh poo_yh iS ;
delta=0.025;
beta=0.99 ;
varphi=0.32;
alpha=0.7;
omega0=0.04;
omega1=1.25;
upsilon0=0.01;
upsilon1=1.66;
rhoa=0.9 ;
rhoo=0.9 ;
uS=0.82;
poS=1;
nS_nS=0.3;
ruS=0.3;
rkS=0.3;
po_rk=0.3;
ch_yh=0.3;
i_yh=0.183;
poo_yh=0.043;
iS=0.183;
model;
//1oil --o
o-k=upsilon1*u;
//2capital accumulation --i
k(+1)=delta*i+(1-delta)*k-delta*omega1*u;
//3HH FOC labor supply --w n
nS_nS*n = c-w ;
//4HH FOC capital --rk k
(1/beta)*(c(+1)-c)=ruS*(rk(+1)+u(+1))-delta*omega1*u(+1)-poS*(upsilon0/upsilon1)*(uS^upsilon1)*(po(+1)+upsilon1*u(+1));
//5HH FOC utilizaton rate -- u
rk = (1/rkS)*omega0*(uS^(omega1-1))*((omega1-1)*u)+po_rk*upsilon0*(uS^(upsilon1-1))*(po+(upsilon1-1)*u);
//6production function --yh
yh=alpha*a+alpha*n+(1-alpha)*u+(1-alpha)*k;
//7Firm FOC capital
rk=yh-k-u;
//8Firm FOC labor
w=yh-n;
//9resource constraint --c
yh= ch_yh*c+i_yh*i+poo_yh*(po+o);
//10shocks tech --a
a=rhoa*a(-1)+ea ;
//11shocks oil --o
po=rhoo*po(-1)+eo ;
end;
initval;
yh=0;
c=0;
n=0;
w=0;
k=0;
rk=0;
u=0;
i=0;
o=0;
a=0;
po=0;
end;
shocks;
var ea;
stderr 1;
var eo;
stderr 1;
end;
steady;
check;
stoch_simul(periods=1000); dynasave('modelfinn.mat');