MODEL > tayoil_mod5

ENDOG >

zetap_gap _NOTD
dpq _NOTD
pq _NOTD
mcost _NOTD
dw _NOTD
wq _NOTD
wmarkup _NOTD
zetap _NOTD
le_gap _NOTD
dpc _NOTD
pc _NOTD
rrateq _NOTD
rrateq_f1 _NOTD
rrateq_f2 _NOTD
rrateq_f3 _NOTD
rrateq_an  _NOTD
rratec _NOTD
relpoil _NOTD
dpcf1 _NOTD
dpqf1 _NOTD
rs _NOTD
le_pot _NOTD
zetap_pot _NOTD
relpoil_pot _NOTD
cc_pot _NOTD
rratec_pot _NOTD
rrateq_pot _NOTD
oilshk _NOTD
oilshkp _DATA
oilshkt _DATA
zt _DATA
one _DTRM
erroilshkp _NOTD
erroilshkt _NOTD
errzt _NOTD

EQUATION > ZETAP_GAP
EQTYPE > IMPOSED
EQ > zetap_gap = zetap - zetap_pot

EQUATION > DPQ
EQTYPE > IMPOSED
EQ > dpq =  beta*LEAD(dpq,1) +  kappap*mcost 

EQUATION > PQ
EQTYPE > IMPOSED
EQ > pq =  LAG(pq,1) + dpq 

EQUATION > MCOST
EQTYPE > IMPOSED
EQ > mcost =  scale1*(lambda_mpl*le_gap + zetap_gap) 

EQUATION > DW
EQTYPE > IMPOSED
EQ > dw = beta*LEAD(dw,1) +  kappaw*wmarkup 

EQUATION > WQ
EQTYPE > IMPOSED
EQ > wq =  LAG(wq,1) + dw 

EQUATION > WMARKUP
EQTYPE > IMPOSED
EQ > wmarkup =  lambdas_mrs*le_gap -  scale1*zetap_gap

EQUATION > ZETAP
EQTYPE > IMPOSED
EQ > zetap = LAG(zetap,1) + dw - dpq

EQUATION > LE_GAP
EQTYPE > IMPOSED
EQ > le_gap = LEAD(le_gap,1) - (1/(sigma*(1-alpha)*(1-omega_op)*(1-omega_oc)))*(rs - LEAD(dpc,1) - rratec_pot) 

EQUATION > DPC
EQTYPE > IMPOSED
EQ > dpc = dpq + omega_oc*(relpoil_pot - LAG(relpoil_pot,1)) + omega_oc*omega_op/(omega_op+omega_oc)*(zetap_gap - LAG(zetap_gap,1)) + omega_oc*scale2*(le_gap - LAG(le_gap,1))	

EQUATION > PC
EQTYPE > IMPOSED
EQ > pc =  LAG(pc,1) + dpc 

EQUATION > RRATEQ
EQTYPE > IMPOSED
EQ > rrateq = rs - LEAD(dpq,1) 

EQUATION > RRATEQ_F1
EQTYPE > IMPOSED
EQ > rrateq_f1 = LEAD(rrateq,1) 

EQUATION > RRATEQ_F2
EQTYPE > IMPOSED
EQ > rrateq_f2 = LEAD(rrateq_f1,1) 

EQUATION > RRATEQ_F3
EQTYPE > IMPOSED
EQ > rrateq_f3 = LEAD(rrateq_f2,1) 

EQUATION > RRATEQ_AN
EQTYPE > IMPOSED
EQ > rrateq_an = 0.25*(rrateq + rrateq_f1 + rrateq_f2 + rrateq_f3) 

EQUATION > RRATEC
EQTYPE > IMPOSED
EQ > rratec = rs - LEAD(dpc,1) 

EQUATION > RELPOIL
EQTYPE > IMPOSED
EQ > relpoil =  omega_op/(omega_op+omega_oc)*zetap_gap + scale5*le_gap + relpoil_pot

EQUATION > DPCF1
EQTYPE > IMPOSED
EQ > dpcf1 = LEAD(dpc,1) 

EQUATION > DPQF1
EQTYPE > IMPOSED
EQ > dpqf1 = LEAD(dpq,1) 

EQUATION > RS
EQTYPE > IMPOSED
EQ > rs =   gam_rs*LAG(rs,1) + (1-gam_rs)*(gam_dpq*dpq +  gam_dpc*dpc + gam_dpql1*LEAD(dpq,1) + gam_dpcl1*LEAD(dpc,1) + gam_le*le_gap)

EQUATION > LE_POT
EQTYPE > IMPOSED
EQ > le_pot = 1/(lambda_mrs+lambda_mpl)*scale3*oilshk + 1/(lambda_mrs+lambda_mpl)*scale4*zt

EQUATION > ZETAP_POT
EQTYPE > IMPOSED
EQ > zetap_pot = (1-alpha)*(1-omega_op/eta_op)*zt + omega_op/eta_op*oilshk-lambda_mpl*le_pot

EQUATION > RELPOIL_POT
EQTYPE > IMPOSED
EQ > relpoil_pot = (1-omega_op)/eta_op*((1-alpha)*(zt+le_pot) - oilshk)

EQUATION > CC_POT
EQTYPE > IMPOSED
EQ > cc_pot = (1-alpha)*(1-omega_oc)*(1-omega_op)*(zt+le_pot) + (omega_oc + omega_op*(1-omega_oc))*oilshk

EQUATION > RRATEC_POT
EQTYPE > IMPOSED
EQ > rratec_pot  = sigma*(LEAD(cc_pot,1)-cc_pot)

EQUATION > RRATEQ_POT
EQTYPE > IMPOSED
EQ > rrateq_pot  = rratec_pot+omega_oc*(LEAD(relpoil_pot,1) - relpoil_pot)
 
EQUATION > OILSHK
EQTYPE > IMPOSED
EQ > oilshk = oilshkp + oilshkt

EQUATION > OILSHKP
EQTYPE > IMPOSED
EQ > oilshkp = rho1p*LAG(oilshkp,1) + std1p*erroilshkp 

EQUATION > OILSHKT
EQTYPE > IMPOSED
EQ > oilshkt = rho1t*LAG(oilshkt,1) + std1t*erroilshkt 

EQUATION > ZT
EQTYPE > IMPOSED
EQ > zt = rho2*LAG(zt,1) + errzt

EQUATION > ONE
EQTYPE > IMPOSED
EQ > one = LAG(one,1)
 
EQUATION > ERROILSHKP
EQTYPE > STOCH
EQ > erroilshkp = 0*one

EQUATION > ERROILSHKT
EQTYPE > STOCH
EQ > erroilshkt = 0*one

EQUATION > ERRZT
EQTYPE > STOCH
EQ > errzt = 0*one


END

