FOREIGN SECTOR
RYOSPR: RYOSPR=-((RLFB/400)*(ZP/RE)+(RL/400)*RZPA),
RYOSPU: RYOSPU=-((RLFB/400)*(ZG/RE)+(RL/400)*RZGA),
EXPORTS AND IMPORTS
TEXPS: TEXPS=EXRSR,
TEXP: TEXP=CEXP+NCEXP,
NCEXP: NCEXP=EXRSR*NCTEXPSR_EQ,
CEXPS: CEXPS=EXRSR-NCEXP,
CEXP: CEXP=CEXPS-IIE,
IM: IM=IMSR,
GOVERNMENT SECTOR
RB: RB=PUBDER-(RZGA+ZG/RE),
PUBDER: PUBDER=(RPUBDE_EQ)*RGDP,
POL1: RPUBS=-(RGSPENDRPYD*GGIF_EQ)+(POL1*RWA*(NSR+NGG_EQ)
+POL4_EQ*RPYD*CONO +POL5_EQ*PIMF_EQ/RE*IMSR
+POL6_EQ*RWA*(NSR)+POL7_EQ*RPYD*CONH+POL3_EQ*RGDP),
RGSPEND: RGSPEND=RWA*NGG_EQ+RPYD*(GGCO_EQ+GGIF_EQ)
+RTRPUPR+RTRPUOS+RYPUPR-RYOSPU,
RYPUPR: RYPUPR =(RL/400)*RB+RATB_EQ*RGDP,
RPUBS: RPUBS=RPYD*GGIF_EQ-PUBDER*GR_1,
PUBDER1: PUBDER1=PUBDER*GR,
RTROSPR: RTROSPR=POL14_EQ*RGDP,
RTRPUOS: RTRPUOS=POL12_EQ*RGDP,
RTRPUPR: RTRPUPR=(1-POL1)*RWA*TRBASE,
TRBASE:TRBASE=POL8_EQ*POP4_EQ+POL9_EQ*UNB+
POL11_EQ*(POP1_EQ+POP2_EQ+POP3_EQ+POP4_EQ),
UNB: UNB=(1+DIFD)*NTS-(NSR+NGG_EQ),
EXCHANGE RATES
RGDP: RGDP=RPTEX*TEXPS+RPYD*YD-RPM*IMSR+NGG_EQ*RWA
+CONH*RPCONH+POL4_EQ*RPYD*CONO,
RPM: RDOS= -1*(RPTEX*TEXP-(RPM/(1+POL5_EQ))*IMSR
+RTROSPR-RTRPUOS+RYOSPR+RYOSPU),
RE: RE=(1+POL5_EQ)*(PIMF_EQ)/RPM,
RER: RER=RE,
RPTEX: RPTEX=(PTEXF_EQ)/RE,
TBAL: TBAL=TEXP*RPTEX-IM*RPM/(1+POL5_EQ),
IBAL: IBAL=RYOSPR+RYOSPU,
TFBAL: TFBAL=RTROSPR-RTRPUOS,
ZP: (RB-RZPA-ZP/RE)=PAGDPR*RGDP,
RFDEBT: RFDEBT=((ZP/(FPDRATIO_EQ*RE)+RZGA+ZG/RE)),
RDOS: RDOS-RMTRANSFER=((ZP/(FPDRATIO_EQ*RE)+RZGA+ZG/RE))*GR_1,
DGDPR: DGDPR=RFDEBT/RGDP,
FDGDPR: FDGDPR=DGDPR,
CURB: CURB=-1*(RDOS-RZ_OSPR_EQ-RZ_OSPU_EQ)/RGDP*100,
RPUDOS1: RPUDOS1*EXP(GR_1)=RZGA*(EXP(GR_1)-1)+ZG/RE*(EXP(GR_1)-1),
RZPA: RZPA=ZP/(FPDRATIO_EQ*RE)-ZP/RE,
RZGA: RZGA=DGDRATIO_EQ*PUBDER,
ZG: ZG=FGDRATIO_EQ*RE*PUBDER,
INTEREST RATES
RCS: RCS=RL,
RL: RL= RLFB+RPRCS,
RI: RI= (1+RL/400)/EXP(1.489/400)-1,
SNA VARIABLES
NA14: NA14=TEXPS+YD-IM+CONH+(NA15-CONH),
NA15: NA15 =CONH,
NA1: NA1=NA15+(C2600+C2601*TREND+Z_NA1)*CONO,
NA2: NA2=(C2700+C2701*TREND+Z_NA2)*(GGCO_EQ+C5000*NGG_EQ),
NA3: NA3=(C2800+C2801*TREND+Z_NA3)*IH,
NA4: NA4=(C2900+C2901*TREND+Z_NA4)*IBF,
NA7: NA7=(C3200+C3201*TREND+Z_NA7)*GGIF_EQ,
NA9: NA9=IIE,
NA8: NA8=IINR+Z_NA8,
NA10: NA10=(NA14-Z_NA8),
NA12: NA12=TEXP,
NA13: NA13=IM,
