HOUSING SECTOR
IH: IH/KH=C0501*(IH(-1)/KH(-1))+(1-C0501)*(GR(-4)+DRRB_EQ-1)
+C0502*(KSRATIO*(RPCONH(-2)-POL7_EQ(-2)) –
(DRRB_EQ+IR_EQ+RP(-2)))
+C0503*YCURVE(-2)+C0504*YCURVE(-3)+Z_IH,
TBQH: TBQH=(KSRATIO*(RPCONH(-2)-POL7_EQ(-2)) –
(DRRB_EQ+IR_EQ+RP)),
KH: KH= KH1(-1),
KH1: KH1=(1-DRRB_EQ)*KH+IH,
INVESTMENT EQUATION
IBF: IBF/KBF=C1301*(IBF(-1)/KBF(-1))+(1-C1301)*(GR(-4)+DR_EQ-1)
+C1302*(AR(-1)-(DR_EQ+IR_EQ+RP1(-1))) +C1303*YCURVE(-2)+C1304*YCURVE(-3) +Z_IBF,
TBQ: TBQ=(AR(-1)-(DR_EQ+IR_EQ+RP1(-1))),
KBF1: KBF1=(1-DR_EQ)*KBF+IBF,
KBF: KBF=KBF1(-1)+Z_IBF*KBF1(-1),
AR: AR=0.25*(RPKLR)+0.25*(RPKLR(-1))+0.25*(RPKLR(-2))+0.25*(RPKLR(-3)),
RPTLR: RPTLR=((RPTEX/(A5))**(THETA/(THETA-1)) +(RPYDMR/A6A)**(THETA/(THETA-1)))**((THETA-1)/THETA),
RPYLR: RPYLR=A4A*(RPTLR**(DELTA/(DELTA-1)) -(RPM/(A3))**(DELTA/(DELTA-1)))**((DELTA-1)/DELTA),
RPKLR: RPKLR=A2A*(RPYLR**(RHO/(RHO-1))-
(RWA/A1)**(RHO/(RHO-1)))**((RHO-1)/RHO),
STOCK
IINR: LOG(IINR)=LOG(YD*SSRATIO_EQ)-5*LOG(KINR(-1)/EKINR(-1)),
KINR1: KINR1=IINR+KINR,
KINR: KINR=KINR1(-1),
KIE: KIE =KIE1(-1),
KIE1: KIE1=KIE+IIE,
IIE: IIE =CEXPS-CEXP,
DEM: DEM=CONO+(IH+IBF+GGCO+GGIF),
YD: YD=(IINR+DEM),
EXPORT SECTOR
TEXPS: LOG(TEXPS) =C1101*LOG(GR(-4)*EXP(-1*π2/4)*EXRSR(-1)) +(1-C1101)*LOG(GR(-4)*EXP(-1*p2/4)*TEXPS(-1)),
CEXPS: CEXPS/TEXPS=(1-NCTEXPSR_EQ),
CEXP: LOG(CEXP)=LOG((1-CESRATIO_EQ)*CEXPS)+0.3* LOG(KIE(-1)/EKIE(-1))
Z_CEXP,
NCEXP: LOG(NCEXP)=0.7*LOG(TEXPS*NCTEXPSR_EQ)
+0.3*LOG(GR*EXP(-1*π2/4)*NCEXP(-1))+Z_NCEXP,
TEXP: TEXP=CEXP+NCEXP,
IMPORT SECTOR
IM: LOG(IM)= C0902*LOG(GR(-4)*EXP(-1*π1/4)*IMSR(-1)) +(1-C0902)*LOG(GR(-4)*EXP(-1*p1/4)*IM(-1))+Z_IM,
EXTERNAL SECTOR
CURB: CURB=-1*((RDOS-RZ_OSPR_EQ-RZ_OSPU_EQ)/RGDP)*100,
TBAL: TBAL=TEXP*RPTEX-IM*RPM/(1+POL5_EQ),
IBAL: IBAL=RYOSPR+RYOSPU,
TFBAL: TFBAL=RTROSPR-RTRPUOS,
RDOS: RDOS=-1*(TBAL)-1*(RTROSPR-RTRPUOS+RYOSPR+RYOSPU),
RTROSPR: RTROSPR= POL14_EQ*RGDP,
RPUDOS1 = (ZG/RER-ZG(-1)/RER(-1))+RZGA-RZGA(-1),
ZP: ZP/RER =(ZP(-1)/RER(-1)+FPDRATIO_EQ*(RDOS(-1)-RPUDOS1)),
RZPA: RZPA = RZPA(-1) + (1-FPDRATIO_EQ)*(RDOS(-1)-RPUDOS1),
RFDEBT: RFDEBT=RFDEBT(-1)+RDOS(-1)-RMTRANSFER(-1),
RYOSPU: RYOSPU=-((RLFB(-1)/400)*(ZG/RER)+(RL(-1)/400)*RZGA),
RYOSPR: RYOSPR=-( RLFB(-1)/400*(ZP/RER)+ RL(-1)/400*(RZPA) ),
DGDPR: DGDPR=RFDEBT/ERGDP,
