MODEL > tayoil_mod5optnoprice

ENDOG >

zetap_gap _NOTD
dpq _NOTD
mcost _NOTD
dw _NOTD
wmarkup _NOTD
zetap _NOTD
rs _NOTD
dpc _NOTD
le_pot _NOTD
rrateq _NOTD
rrateq_f1 _NOTD
rrateq_f2 _NOTD
rrateq_f3 _NOTD
rrateq_an  _NOTD
rratec _NOTD
relpoil _NOTD
dpcf1 _NOTD
dpqf1 _NOTD
le_gap _NOTD
zetap_pot _NOTD
relpoil_pot _NOTD
cc_pot _NOTD
rratec_pot _NOTD
rrateq_pot _NOTD
oilshk _NOTD
phi1 _NOTD
phi2 _NOTD
phi3 _NOTD
phi4 _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 > 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 > WMARKUP
EQTYPE > IMPOSED
EQ > wmarkup =  lambdas_mrs*le_gap -  scale1*zetap_gap

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

EQUATION > RS
EQTYPE > IMPOSED
EQ > rs = -(le_gap-LEAD(le_gap,1))/(1/(sigma*(1-alpha)*(1-omega_op)*(1-omega_oc)))+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 > LE_POT
EQTYPE > IMPOSED
EQ > le_pot = 1/(lambda_mrs+lambda_mpl)*(scale3*oilshk + scale4*zt)

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 > le_gap
EQTYPE > IMPOSED
EQ > phi4 = lambda1*mcost 

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*(1-alpha)*(1-omega_op)*(1-omega_oc)*(LEAD(zt,1) - zt + LEAD(le_pot,1) - le_pot) + sigma*((1-omega_oc)*omega_op+omega_oc)*(LEAD(oilshk,1)-oilshk)

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 > PHI1
EQTYPE > IMPOSED
EQ > phi1 = LAG(phi1,1) - phi3 +lambda3*dpq

EQUATION > PHI2
EQTYPE > IMPOSED
EQ > phi2 = LAG(phi2,1) + phi3 + lambda4*dw

EQUATION > PHI3
EQTYPE > IMPOSED
EQ > phi3 = kappap*scale1*phi1 - kappaw*scale2*phi2 + beta*LEAD(phi3,1) + scale1*phi4

EQUATION > PHI4
EQTYPE > IMPOSED
EQ > phi4 = 1/(scale1*lambda_mpl)*(-lambda2*le_gap-kappap*scale1*lambda_mpl*phi1-kappaw*lambdas_mrs*phi2)

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

EQUATION > OILSHKT
EQTYPE > IMPOSED
EQ > oilshkt = rho1t*LAG(oilshkt,1) + 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

