671 lines
32 KiB
Modula-2
671 lines
32 KiB
Modula-2
var AF AH BIGGAMF BIGGAMH BIGGAMIMPF BIGGAMIMPH BIGGAMMF BIGGAMMH BIGGAMNF BIGGAMNH BIGGAMQF BIGGAMQH BIGGAM_MONF BIGGAM_MONH BIGGAM_MOTF BIGGAM_MOTH BIGGAM_O_NF BIGGAM_O_NH BIGGAM_O_TF BIGGAM_O_TH CAPAF CAPAH CF CF_NAT CH CH_NAT CURBALF_RAT CURBALH_RAT DEEF DEEH DEPEX EXPORTSF EXPORTSF_NAT EXPORTSH EXPORTSH_NAT EYEF EYEH GAF GAH GAMMAF GAMMAH GDPF GDPF_NAT GDPGAPF GDPGAPH GDPH GDPH_NAT GF_NAT GH_NAT GNF GNH HF HH IMPORTSF IMPORTSF_NAT IMPORTSH IMPORTSH_NAT KF KH KNF KNF_RAT KNH KNH_RAT KTF KTF_RAT KTH KTH_RAT K_OF K_OF_RAT K_OH K_OH_RAT LANDF LANDH LF LH LNF LNH LTF LTH L_OF L_OH MARGUTF MARGUTH MF MF_NAT MH MH_NAT M_ONF M_ONH M_OTF M_OTH NF NH NNF NNH O_NF O_NH O_TF O_TH PIE4F PIE4H PIE4TARF PIE4TARH PIEBARMF PIEBARMH PIEBARQF PIEBARQH PIEF PIEH PIENF PIENH PIEWF PIEWH PSIF PSIH PSIPRIMEF PSIPRIMEH QF QH Q_ONF Q_ONH Q_OTF Q_OTH REALBF REALBH REALEX REALEXF REALEXH REALFINH REALMCNF REALMCNH REALMCTF REALMCTH REALMONEYF REALMONEYH REALPBARMF REALPBARMH REALPBARQF REALPBARQH REALPLANDF REALPLANDH REALPMF REALPMH REALPNF REALPNH REALPQF REALPQH REALPXF REALPXH REALP_MOF REALP_MOH REALP_ONF REALP_ONH REALP_OTF REALP_OTH REALP_QOF REALP_QOH REALRF REALRH REALTBALF REALTBALH REALWF REALWH RNOMF RNOMH SHOPF SHOPH SHOPPRIMEF SHOPPRIMEH TF TH T_OF T_OH VELOF VELOH VPRIMEF VPRIMEH XF_NAT XH_NAT XI ZBF ZBH ZEYEF ZEYEH ZNF ZNH ZTF ZTH ZUF ZUH ZZ_CF ZZ_CH ZZ_CURBALF_RAT ZZ_CURBALH_RAT ZZ_C_SHARF ZZ_C_SHARH ZZ_DPIE4F ZZ_DPIE4H ZZ_DRNOMF ZZ_DRNOMH ZZ_EXPORTSF ZZ_EXPORTSH ZZ_EYEF ZZ_EYEH ZZ_EYE_SHARF ZZ_EYE_SHARH ZZ_GDPF ZZ_GDPH ZZ_GDP_PPP_RATH ZZ_GF ZZ_GH ZZ_IMPORTSF ZZ_IMPORTSH ZZ_M_ON_SHARF ZZ_M_ON_SHARH ZZ_M_OT_SHARF ZZ_M_OT_SHARH ZZ_M_O_SHARF ZZ_M_O_SHARH ZZ_M_SHARF ZZ_M_SHARH ZZ_N_SHARF ZZ_N_SHARH ZZ_PIE4F ZZ_PIE4H ZZ_REALEX ZZ_RNOMF ZZ_RNOMH ZZ_UTILITYF ZZ_UTILITYH ZZ_XBALF_TOT_RAT ZZ_XBALH_TOT_RAT Z_OF Z_OH PIEF1 PIEF2 PIEH1 PIEH2 REALBH1;
|
|
|
|
varexo E_ZBH E_ZUH E_ZUF E_ZEYEH E_ZEYEF E_GAMMAH E_GAMMAF E_LANDH E_LANDF E_GAH E_GAF E_CAPAH E_CAPAF;
|
|
|
|
parameters COSTLF COSTLH EPSF EPSH EPSQMF EPSQMH GLAMBDAF GLAMBDAH SIGMAF SIGMAH SSF SSH XR1F XR1H XR2F XR2H XR3F XR3H XR4F XR4H ALPHANF ALPHANH ALPHATF ALPHATH ALPHA_OF ALPHA_OH A_ONEF A_ONEH A_ZEROF A_ZEROH B0F B0H B1F B1H B2F B2H BET CAPAF_SS CAPAH_SS CHI0 CHI1 CHI2 CHI3 COSTF COSTH COST_MONF COST_MONH COST_MOTF COST_MOTH COST_O_NF COST_O_NH COST_O_TF COST_O_TH DELTAF DELTAH EPS_ONF EPS_ONH EPS_OTF EPS_OTH ETAF ETAH E_PIE4TARF E_PIE4TARH E_ZBF GAMA_NF GAMA_NH GAMA_TF GAMA_TH GAMMAF_SS GAMMAH_SS GAMMA_LANDF GAMMA_LANDH GA_RATF GA_RATH GDPF_EXOG GDPH_EXOG GN_RATF GN_RATH LANDF_SS LANDH_SS LILCAPPA1F LILCAPPA1H LILCAPPA2F LILCAPPA2H LILCAPPA3F LILCAPPA3H LILCAPPA4F LILCAPPA4H LILCAPPA5F LILCAPPA5H LILCAPPA6F LILCAPPA6H LILCAPPA7F LILCAPPA7H LILCAPPA8F LILCAPPA8H NYF NYH NY_NF NY_NH NY_TF NY_TH OMEGA0F OMEGA0H OMEGAF OMEGAH PHIF PHIH PIE4TARF_SS PIE4TARH_SS REALEX_EXOG REALPBARMF_EXOG REALPBARMH_EXOG REALPNF_EXOG REALPNH_EXOG REALP_MOF_EXOG REALP_MOH_EXOG RNOM_EXOGF RNOM_EXOGH THETAF THETAH XDUMF XDUMH XIXI_NF XIXI_NH XIXI_OF XIXI_OH XIXI_TF XIXI_TH ZBF_SS ZBH_SS ZEDF ZEDH ZEYEF_SS ZEYEH_SS ZNF_SS ZNH_SS ZTF_SS ZTH_SS ZUF_SS ZUH_SS Z_OF_SS Z_OH_SS;
|
|
|
|
COSTLF=5;
|
|
COSTLH=5;
|
|
EPSF=1.1;
|
|
EPSH=1.1;
|
|
EPSQMF=4;
|
|
EPSQMH=1.1;
|
|
GLAMBDAF=0;
|
|
GLAMBDAH=0;
|
|
SIGMAF=0.333333333333333;
|
|
SIGMAH=0.333333333333333;
|
|
SSF=0.95;
|
|
SSH=0.05;
|
|
XR1F=1;
|
|
XR1H=0.40;
|
|
XR2F=0;
|
|
XR2H=0.1;
|
|
XR3F=0.5;
|
|
XR3H=0.84;
|
|
XR4F=0;
|
|
XR4H=0;
|
|
ALPHANF=0.33;
|
|
ALPHANH=0.4;
|
|
ALPHATF=0.33;
|
|
ALPHATH=0.4;
|
|
ALPHA_OF=0.2;
|
|
ALPHA_OH=0.2;
|
|
A_ONEF=0.075;
|
|
A_ONEH=0.075;
|
|
A_ZEROF=0.011;
|
|
A_ZEROH=0.011;
|
|
B0F=1;
|
|
B0H=1;
|
|
B1F=0.95;
|
|
B1H=0.95;
|
|
B2F=1;
|
|
B2H=1;
|
|
BET=0.99263753614514;
|
|
CAPAF_SS=11;
|
|
CAPAH_SS=11;
|
|
CHI0=0.05;
|
|
CHI1=.1;
|
|
CHI2=0;
|
|
CHI3=0;
|
|
COSTF=5;
|
|
COSTH=5;
|
|
COST_MONF=5;
|
|
COST_MONH=5;
|
|
COST_MOTF=5;
|
|
COST_MOTH=5;
|
|
COST_O_NF=5;
|
|
COST_O_NH=5;
|
|
COST_O_TF=5;
|
|
COST_O_TH=5;
|
|
DELTAF=0.025;
|
|
DELTAH=0.025;
|
|
EPS_ONF=3;
|
|
EPS_ONH=3;
|
|
EPS_OTF=3;
|
|
EPS_OTH=3;
|
|
ETAF=0.35;
|
|
ETAH=0.2;
|
|
E_PIE4TARF=0;
|
|
E_PIE4TARH=0;
|
|
E_ZBF=0;
|
|
GAMA_NF=0.3;
|
|
GAMA_NH=0.1;
|
|
GAMA_TF=0.3;
|
|
GAMA_TH=0.5;
|
|
GAMMAF_SS=0.5;
|
|
GAMMAH_SS=0.25;
|
|
GAMMA_LANDF=0.1;
|
|
GAMMA_LANDH=0.1;
|
|
GA_RATF=0.05;
|
|
GA_RATH=0.05;
|
|
GDPF_EXOG=2.41500497257461;
|
|
GDPH_EXOG=2.90512477822209;
|
|
GN_RATF=0.1;
|
|
GN_RATH=0.1;
|
|
LANDF_SS=0.1;
|
|
LANDH_SS=0.1;
|
|
LILCAPPA1F=0;
|
|
LILCAPPA1H=0;
|
|
LILCAPPA2F=800;
|
|
LILCAPPA2H=400;
|
|
LILCAPPA3F=0;
|
|
LILCAPPA3H=0;
|
|
LILCAPPA4F=800;
|
|
LILCAPPA4H=400;
|
|
LILCAPPA5F=0;
|
|
LILCAPPA5H=0;
|
|
LILCAPPA6F=800;
|
|
LILCAPPA6H=400;
|
|
LILCAPPA7F=0;
|
|
LILCAPPA7H=0;
|
|
LILCAPPA8F=0;
|
|
LILCAPPA8H=0;
|
|
NYF=0.98;
|
|
NYH=0.0499999999999999;
|
|
NY_NF=0.98;
|
|
NY_NH=0.0499999999999999;
|
|
NY_TF=0.98;
|
|
NY_TH=0.02;
|
|
OMEGA0F=60;
|
|
OMEGA0H=60;
|
|
OMEGAF=5;
|
|
OMEGAH=5;
|
|
PHIF=3;
|
|
PHIH=3;
|
|
PIE4TARF_SS=1.125;
|
|
PIE4TARH_SS=1.125;
|
|
REALEX_EXOG=1.3734519289908;
|
|
REALPBARMF_EXOG=0.87146958398196;
|
|
REALPBARMH_EXOG=1.19072687148694;
|
|
REALPNF_EXOG=0.840675522925242;
|
|
REALPNH_EXOG=0.902486321747893;
|
|
REALP_MOF_EXOG=0.966533486000563;
|
|
REALP_MOH_EXOG=1.63690883121281;
|
|
RNOM_EXOGF=1.00741707177773;
|
|
RNOM_EXOGH=1.00741707177773;
|
|
THETAF=6;
|
|
THETAH=6;
|
|
XDUMF=1;
|
|
XDUMH=1;
|
|
XIXI_NF=0.75;
|
|
XIXI_NH=0.75;
|
|
XIXI_OF=0.75;
|
|
XIXI_OH=0.75;
|
|
XIXI_TF=0.75;
|
|
XIXI_TH=0.75;
|
|
ZBF_SS=0;
|
|
ZBH_SS=0;
|
|
ZEDF=2.5;
|
|
ZEDH=2.5;
|
|
ZEYEF_SS=0;
|
|
ZEYEH_SS=0;
|
|
ZNF_SS=1;
|
|
ZNH_SS=1;
|
|
ZTF_SS=1;
|
|
ZTH_SS=0.6;
|
|
ZUF_SS=1;
|
|
ZUH_SS=1;
|
|
Z_OF_SS=1;
|
|
Z_OH_SS=1;
|
|
|
|
model;
|
|
ZZ_UTILITYH = (ZUH*(CH-HH)^(1-SIGMAH)-1)/(1-SIGMAH)-CAPAH*LH^(1+ZEDH)/(1+ZEDH) ;
|
|
ZZ_GH = 100*log(GH_NAT) ;
|
|
ZZ_CURBALH_RAT = CURBALH_RAT*100 ;
|
|
ZZ_M_SHARH = REALPBARMH*MH/AH ;
|
|
ZZ_M_O_SHARH = (REALP_MOH*M_ONH+REALP_MOH*M_OTH)/AH ;
|
|
ZZ_M_ON_SHARH = REALP_MOH*M_ONH/AH ;
|
|
ZZ_M_OT_SHARH = REALP_MOH*M_OTH/AH ;
|
|
ZZ_N_SHARH = NH*REALPNH/AH ;
|
|
ZZ_EYE_SHARH = EYEH/GDPH ;
|
|
ZZ_C_SHARH = CH/GDPH ;
|
|
ZZ_GDPH = 100*log(GDPH_NAT) ;
|
|
ZZ_CH = 100*log(CH_NAT) ;
|
|
ZZ_EYEH = 100*log(EYEH) ;
|
|
ZZ_EXPORTSH = 100*log(EXPORTSH_NAT) ;
|
|
ZZ_IMPORTSH = 100*log(IMPORTSH_NAT) ;
|
|
ZZ_XBALH_TOT_RAT = 100*(EXPORTSH_NAT-IMPORTSH_NAT)/GDPH_NAT ;
|
|
ZZ_PIE4H = 100*(PIE4H-1) ;
|
|
ZZ_DPIE4H = ZZ_PIE4H-ZZ_PIE4H(-1) ;
|
|
ZZ_RNOMH = 100*(RNOMH^4-1) ;
|
|
ZZ_DRNOMH = ZZ_RNOMH-ZZ_RNOMH(-1) ;
|
|
100*(PIE4TARH-1) = 1*100*(PIE4TARH_SS-1)+(1-1)*100*(PIE4TARH(-1)-1)+E_PIE4TARH ;
|
|
log(ZUH) = 0.3*log(ZUH_SS)+0.7*log(ZUH(-1))+E_ZUH ;
|
|
ZBH = 0.3*ZBH_SS+0.7*ZBH(-1)+E_ZBH ;
|
|
log(LANDH) = 0.05*log(LANDH_SS)+0.95*log(LANDH(-1))+E_LANDH ;
|
|
log(ZTH) = 0.05*log(ZTH_SS)+0.95*log(ZTH(-1))+E_LANDH ;
|
|
log(ZNH) = 0.05*log(ZNH_SS)+0.95*log(ZNH(-1))+E_LANDH ;
|
|
log(Z_OH) = 0.05*log(Z_OH_SS)+0.95*log(Z_OH(-1))+E_LANDH ;
|
|
ZEYEH = 0.05*ZEYEH_SS+0.95*ZEYEH(-1)+E_ZEYEH ;
|
|
CAPAH = 0.05*CAPAH_SS+0.95*CAPAH(-1)+E_CAPAH ;
|
|
log(GAMMAH) = 0.05*log(GAMMAH_SS)+0.95*log(GAMMAH(-1))+E_GAMMAH ;
|
|
BIGGAM_O_NH = 1-COST_O_NH/2*(O_NH/NH/(O_NH(-1)/NH(-1))-1)^2 ;
|
|
BIGGAM_O_TH = 1-COST_O_TH/2*(O_TH/TH/(O_TH(-1)/TH(-1))-1)^2 ;
|
|
O_NH = GAMA_NH*NH/ZNH*(REALP_ONH/(REALMCNH*ZNH))^(-XIXI_NH)*(BIGGAM_O_NH-COST_O_NH*(O_NH/NH/(O_NH(-1)/NH(-1))-1)*O_NH/NH/(O_NH(-1)/NH(-1)))^XIXI_NH/BIGGAM_O_NH ;
|
|
O_TH = GAMA_TH*TH/ZTH*(REALP_OTH/(REALMCTH*ZTH))^(-XIXI_TH)*(BIGGAM_O_TH-COST_O_TH*(O_TH/TH/(O_TH(-1)/TH(-1))-1)*O_TH/TH/(O_TH(-1)/TH(-1)))^XIXI_NH/BIGGAM_O_TH ;
|
|
NH = ZNH*((1-ALPHANH-GAMA_NH)^(1/XIXI_NH)*LNH^(1-1/XIXI_NH)+ALPHANH^(1/XIXI_NH)*KNH^(1-1/XIXI_NH)+GAMA_NH^(1/XIXI_NH)*(BIGGAM_O_NH*O_NH)^(1-1/XIXI_NH))^(XIXI_NH/(XIXI_NH-1)) ;
|
|
TH = ZTH*((1-ALPHATH-GAMA_TH)^(1/XIXI_TH)*LTH^(1-1/XIXI_TH)+ALPHATH^(1/XIXI_TH)*KTH^(1-1/XIXI_TH)+GAMA_TH^(1/XIXI_TH)*(BIGGAM_O_TH*O_TH)^(1-1/XIXI_TH))^(XIXI_TH/(XIXI_TH-1)) ;
|
|
REALMCNH = 1/ZNH*((1-ALPHANH-GAMA_NH)*REALWH^(1-XIXI_NH)+ALPHANH*REALRH^(1-XIXI_NH)+GAMA_NH*REALP_ONH^(1-XIXI_NH)*(BIGGAM_O_NH-COST_O_NH*(O_NH/NH/(O_NH(-1)/NH(-1))-1)*O_NH/NH/(O_NH(-1)/NH(-1)))^(XIXI_NH-1))^(1/(1-XIXI_NH)) ;
|
|
REALMCTH = 1/ZTH*((1-ALPHATH-GAMA_TH)*REALWH^(1-XIXI_TH)+ALPHATH*REALRH^(1-XIXI_TH)+GAMA_TH*REALP_OTH^(1-XIXI_TH)*(BIGGAM_O_TH-COST_O_TH*(O_TH/TH/(O_TH(-1)/TH(-1))-1)*O_TH/TH/(O_TH(-1)/TH(-1)))^(XIXI_TH-1))^(1/(1-XIXI_TH)) ;
|
|
MARGUTH = (CH-B2H*HH)^(-SIGMAH)*ZUH ;
|
|
HH = (1-B0H)*HH(-1)+B0H*B1H*CH(-1) ;
|
|
VPRIMEH = CAPAH*LH^ZEDH ;
|
|
AH^(1-1/EPSH) = GAMMAH^(1/EPSH)*(NYH^(1/EPSQMH)*QH^(1-1/EPSQMH)+(1-NYH)^(1/EPSQMH)*(MH*BIGGAMIMPH)^(1-1/EPSQMH))^(EPSQMH/(EPSQMH-1)*(1-1/EPSH))+(1-GAMMAH)^(1/EPSH)*NNH^(1-1/EPSH) ;
|
|
QH = GAMMAH*NYH*REALPQH^(-EPSQMH)*AH*REALPXH^(EPSQMH-EPSH) ;
|
|
MH = GAMMAH*(1-NYH)*REALPMH^(-EPSQMH)*AH*REALPXH^(EPSQMH-EPSH)*1/BIGGAMIMPH*(BIGGAMIMPH-COSTH*(MH/AH/(MH(-1)/AH(-1))-1)*MH/AH/(MH(-1)/AH(-1)))^EPSQMH ;
|
|
REALPXH = (NYH*REALPQH^(1-EPSQMH)+(1-NYH)*REALPMH^(1-EPSQMH)*(BIGGAMIMPH-COSTH*(MH/AH/(MH(-1)/AH(-1))-1)*MH/AH/(MH(-1)/AH(-1)))^(EPSQMH-1))^(1/(1-EPSQMH)) ;
|
|
BIGGAMIMPH = 1-COSTH/2*(MH/AH/(MH(-1)/AH(-1))-1)^2 ;
|
|
NNH = (1-GAMMAH)*REALPNH^(-EPSH)*AH ;
|
|
NH = NNH+ETAH*MH+ETAH*QH+GNH ;
|
|
PIENH = REALPNH/REALPNH(-1)*PIEH ;
|
|
BIGGAMNH = LILCAPPA3H/2*(PIENH/PIE4TARH^0.25-1)^2+LILCAPPA4H/2*(PIENH/PIENH(-1)-1)^2 ;
|
|
-(1-BIGGAMNH)*(REALPNH*(1-THETAH)+THETAH*REALMCNH) = -(REALPNH-REALMCNH)*(LILCAPPA3H*PIENH/PIE4TARH^0.25*(PIENH/PIE4TARH^0.25-1)+LILCAPPA4H*PIENH/PIENH(-1)*(PIENH/PIENH(-1)-1))+DEEH*PIEH(+1)*(REALPNH(+1)-REALMCNH(+1))*NH(+1)/NH*(LILCAPPA3H*PIENH(+1)/PIE4TARH^0.25*(PIENH(+1)/PIE4TARH^0.25-1)+LILCAPPA4H*PIENH(+1)/PIENH*(PIENH(+1)/PIENH-1)) ;
|
|
PIEBARQH = PIEH*REALPBARQH/REALPBARQH(-1) ;
|
|
BIGGAMQH = LILCAPPA5H/2*(PIEBARQH/PIE4TARH^0.25-1)^2+LILCAPPA6H/2*(PIEBARQH/PIEBARQH(-1)-1)^2 ;
|
|
-(1-BIGGAMQH)*REALPBARQH/REALPQH*(REALPBARQH*(1-THETAH)+ETAH*REALPNH+THETAH*REALMCTH) = -(REALPBARQH-REALMCTH)*(LILCAPPA5H*PIEBARQH/PIE4TARH^0.25*(PIEBARQH/PIE4TARH^0.25-1)+LILCAPPA6H*PIEBARQH/PIEBARQH(-1)*(PIEBARQH/PIEBARQH(-1)-1))+DEEH*PIEH(+1)*(REALPBARQH(+1)-REALMCTH(+1))*QH(+1)/QH*(LILCAPPA5H*PIEBARQH(+1)/PIE4TARH^0.25*(PIEBARQH(+1)/PIE4TARH^0.25-1)+LILCAPPA6H*PIEBARQH(+1)/PIEBARQH*(PIEBARQH(+1)/PIEBARQH-1)) ;
|
|
REALPQH = REALPBARQH+ETAH*REALPNH ;
|
|
KH = KH(-1)*(1-DELTAH)+PSIH(-1)*KH(-1) ;
|
|
PSIH = EYEH/KH-OMEGAH/2*(EYEH/KH-DELTAH*(1+ZEYEH))^2-OMEGA0H/2*(EYEH/KH-EYEH(-1)/KH(-1))^2 ;
|
|
PSIPRIMEH = 1-OMEGAH*(EYEH/KH-DELTAH*(1+ZEYEH))-OMEGA0H*(EYEH/KH-EYEH(-1)/KH(-1)) ;
|
|
1/PSIPRIMEH = DEEH*PIEH(+1)*(REALRH(+1)+1/PSIPRIMEH(+1)*(1-DELTAH+PSIH(+1)*(1-PSIPRIMEH(+1)*EYEH(+1)/(PSIH(+1)*KH(+1))))) ;
|
|
BIGGAMH = LILCAPPA1H/2*(PIEWH/PIE4TARH^0.25-1)^2+LILCAPPA2H/2*(PIEWH/PIEWH(-1)-1)^2 ;
|
|
PIEH*REALWH/REALWH(-1) = PIEWH ;
|
|
REALWH = PHIH*VPRIMEH/MARGUTH*((PHIH-1)*(1-BIGGAMH)+PIEWH*LILCAPPA1H/PIE4TARH^0.25*(PIEWH/PIE4TARH^0.25-1)+PIEWH/PIEWH(-1)*LILCAPPA2H*(PIEWH/PIEWH(-1)-1)-DEEH*PIEWH(+1)*LH(+1)/LH*LILCAPPA1H*PIEWH(+1)/PIE4TARH^0.25*(PIEWH(+1)/PIE4TARH^0.25-1)-DEEH*PIEWH(+1)*LH(+1)/LH*LILCAPPA2H*PIEWH(+1)/(REALWH/REALWH(-1))*(PIEWH(+1)/PIEWH-1))^(-1) ;
|
|
DEEH = BET*MARGUTH(+1)/PIEH(+1)/MARGUTH*(1+SHOPH+SHOPPRIMEH*VELOH)/(1+SHOPH(+1)+SHOPPRIMEH(+1)*VELOH(+1)) ;
|
|
SHOPH = A_ZEROH*VELOH+A_ONEH/VELOH-2*(A_ZEROH*A_ONEH)^0.5 ;
|
|
SHOPPRIMEH = A_ZEROH-A_ONEH*VELOH^(-2) ;
|
|
VELOH = CH/REALMONEYH ;
|
|
DEEH = 1-SHOPPRIMEH*VELOH^2 ;
|
|
1 = RNOMH*DEEH ;
|
|
100*(RNOMH^4-1) = (1-XDUMH)*100*(RNOM_EXOGH^4-1)+XDUMH*(XR3H*100*(RNOMH(-1)^4-1)+(1-XR3H)*(100*((1/BET*PIE4H^0.25)^4-1))+XR1H*(100*(PIE4H-1)-100*(PIE4TARH-1))+XR4H*100*(DEPEX^4-1)+XR2H*GDPGAPH) ;
|
|
GDPGAPH = 100*(GDPH_NAT-GDPH_EXOG)/GDPH_EXOG ;
|
|
PIE4H = PIEH*PIEH(-1)*PIEH1(-1)*PIEH2(-1) ;
|
|
AH = CH*(1+SHOPH)+EYEH+GAH ;
|
|
GAH = .05*(GA_RATH*(GLAMBDAH*GDPH_NAT+(1-GLAMBDAH)*GDPH_EXOG))+.95*GAH(-1)+E_GAH;
|
|
GNH = GN_RATH*(GLAMBDAH*GDPH_NAT+(1-GLAMBDAH)*GDPH_EXOG)/REALPNH_EXOG ;
|
|
PIEBARMH = PIEH*REALPBARMH/REALPBARMH(-1) ;
|
|
BIGGAMMH = LILCAPPA7H/2*(PIEBARMH/PIE4TARH^0.25-1)^2+LILCAPPA8H/2*(PIEBARMH/PIEBARMH(-1)-1)^2 ;
|
|
REALPMH = REALPBARMH+ETAH*REALPNH ;
|
|
KNH_RAT = ALPHANH/(1-ALPHANH-GAMA_NH)*(REALWH/REALRH)^XIXI_NH ;
|
|
KTH_RAT = ALPHATH/(1-ALPHATH-GAMA_TH)*(REALWH/REALRH)^XIXI_TH ;
|
|
KNH_RAT = KNH/LNH ;
|
|
KTH_RAT = KTH/LTH ;
|
|
KH = KTH+KNH+K_OH ;
|
|
LH = (LNH+LTH+L_OH)*(1-COSTLH/2*(LNH/(LTH+L_OH)/(LNH(-1)/(LTH(-1)+L_OH(-1)))-1)^2) ;
|
|
T_OH = Z_OH*((1-ALPHA_OH-GAMMA_LANDH)^(1/XIXI_OH)*L_OH^(1-1/XIXI_OH)+ALPHA_OH^(1/XIXI_OH)*K_OH^(1-1/XIXI_OH)+GAMMA_LANDH^(1/XIXI_OH)*LANDH^(1-1/XIXI_OH))^(XIXI_OH/(XIXI_OH-1)) ;
|
|
Q_ONH = NY_NH*(REALP_QOH/REALP_ONH)^(-EPS_ONH)*O_NH ;
|
|
Q_OTH = NY_TH*(REALP_QOH/REALP_OTH)^(-EPS_OTH)*O_TH ;
|
|
M_ONH = (1-NY_NH)*(REALP_MOH/REALP_ONH)^(-EPS_ONH)*O_NH*(BIGGAM_MONH-COST_MONH*(M_ONH/O_NH/(M_ONH(-1)/O_NH(-1))-1)*M_ONH/O_NH/(M_ONH(-1)/O_NH(-1)))^EPS_ONH/BIGGAM_MONH ;
|
|
M_OTH = (1-NY_TH)*(REALP_MOH/REALP_OTH)^(-EPS_OTH)*O_TH*(BIGGAM_MOTH-COST_MOTH*(M_OTH/O_TH/(M_OTH(-1)/O_TH(-1))-1)*M_OTH/O_TH/(M_OTH(-1)/O_TH(-1)))^EPS_OTH/BIGGAM_MOTH ;
|
|
BIGGAM_MONH = 1-COST_MONH/2*(M_ONH/O_NH/(M_ONH(-1)/O_NH(-1))-1)^2 ;
|
|
BIGGAM_MOTH = 1-COST_MOTH/2*(M_OTH/O_TH/(M_OTH(-1)/O_TH(-1))-1)^2 ;
|
|
K_OH_RAT = ALPHA_OH/(1-ALPHA_OH-GAMMA_LANDH)*(REALWH/REALRH)^XIXI_OH ;
|
|
K_OH_RAT = K_OH/L_OH ;
|
|
REALP_QOH = 1/Z_OH*((1-ALPHA_OH-GAMMA_LANDH)*REALWH^(1-XIXI_OH)+ALPHA_OH*REALRH^(1-XIXI_OH)+GAMMA_LANDH*REALPLANDH^(1-XIXI_OH))^(1/(1-XIXI_OH)) ;
|
|
LANDH = GAMMA_LANDH*(REALPLANDH/(REALP_QOH*Z_OH))^(-XIXI_OH)*T_OH/Z_OH ;
|
|
REALP_ONH = (NY_NH*REALP_QOH^(1-EPS_ONH)+(1-NY_NH)*REALP_MOH^(1-EPS_ONH)*(BIGGAM_MONH-COST_MONH*(M_ONH/O_NH/(M_ONH(-1)/O_NH(-1))-1)*M_ONH/O_NH/(M_ONH(-1)/O_NH(-1)))^(EPS_ONH-1))^(1/(1-EPS_ONH)) ;
|
|
REALP_OTH = (NY_TH*REALP_QOH^(1-EPS_OTH)+(1-NY_TH)*REALP_MOH^(1-EPS_OTH)*(BIGGAM_MOTH-COST_MOTH*(M_OTH/O_TH/(M_OTH(-1)/O_TH(-1))-1)*M_OTH/O_TH/(M_OTH(-1)/O_TH(-1)))^(EPS_OTH-1))^(1/(1-EPS_OTH)) ;
|
|
SSH*TH = SSH*QH+SSF*MF ;
|
|
SSH*T_OH = SSH*Q_ONH+SSH*Q_OTH+SSF*M_ONF+SSF*M_OTF ;
|
|
REALP_MOH = REALP_QOF*REALEXH ;
|
|
ZZ_GDP_PPP_RATH = GDPH/REALEX/GDPF ;
|
|
XI = CHI0*(exp(CHI1*REALEX*REALBH)+CHI2*(REALEX*(REALBH-REALBH(-1)/PIEF)/GDPH)^2+CHI3*(REALEX*(REALBH-REALBH(-1)/PIEF)/GDPH-REALEX(-1)*(REALBH(-1)-REALBH1(-1)/PIEF(-1))/GDPH(-1))^2-1)/(exp(CHI1*REALEX*REALBH)+CHI2*(REALEX*(REALBH-REALBH(-1)/PIEF)/GDPH)^2+CHI3*(REALEX*(REALBH-REALBH(-1)/PIEF)/GDPH-REALEX(-1)*(REALBH(-1)-REALBH1(-1)/PIEF(-1))/GDPH(-1))^2+1)+ZBH ;
|
|
1 = RNOMF*(1-XI)*DEEH*DEPEX(+1) ;
|
|
DEPEX = PIEH/PIEF*REALEX/REALEX(-1) ;
|
|
REALFINH = RNOMF(-1)*(1-XI(-1))*REALEX*REALBH(-1)/PIEF ;
|
|
SSH*DEEH*PIEH(+1)*REALFINH(+1) = SSH*REALFINH+SSH*RNOMF(-1)*XI(-1)*REALEX*REALBH(-1)/PIEF+REALTBALH ;
|
|
REALEXH = REALEX ;
|
|
REALEXF = 1/REALEXH ;
|
|
ZZ_REALEX = 100*log(REALEX) ;
|
|
-(1-BIGGAMMH)*REALPBARMH/REALPMH*(REALPBARMH/REALEX*(1-THETAF)+ETAH*REALPNH/REALEX+THETAF*REALMCTF) = -(REALPBARMH/REALEX-REALMCTF)*(LILCAPPA7H*PIEBARMH/PIE4TARH^0.25*(PIEBARMH/PIE4TARH^0.25-1)+LILCAPPA8H*PIEBARMH/PIEBARMH(-1)*(PIEBARMH/PIEBARMH(-1)-1))+DEEF*PIEF(+1)*(REALPBARMH(+1)/REALEX(+1)-REALMCTF(+1))*MH(+1)/MH*(LILCAPPA7H*PIEBARMH(+1)/PIE4TARH^0.25*(PIEBARMH(+1)/PIE4TARH^0.25-1)+LILCAPPA8H*PIEBARMH(+1)/PIEBARMH*(PIEBARMH(+1)/PIEBARMH-1)) ;
|
|
GDPH = AH+REALPNH*GNH+EXPORTSH-IMPORTSH+(RNOMF(-1)-1)*REALEX*REALBH(-1)/PIEF ;
|
|
GDPH_NAT = AH+REALPNH_EXOG*GNH+EXPORTSH_NAT-IMPORTSH_NAT ;
|
|
CH_NAT = CH*(1+SHOPH) ;
|
|
GH_NAT = GAH+REALPNH_EXOG*GNH ;
|
|
XH_NAT = SSF/SSH*REALEX_EXOG*REALPBARMF_EXOG*MF ;
|
|
MH_NAT = REALPBARMH_EXOG*MH ;
|
|
CURBALH_RAT = REALEX*(REALBH-REALBH(-1)/PIEF)/GDPH ;
|
|
REALTBALH = SSF*(REALPBARMF*MF+REALP_MOF*M_ONF+REALP_MOF*M_OTF)*REALEX-SSH*(REALPBARMH*MH+REALP_MOH*M_ONH+REALP_MOH*M_OTH) ;
|
|
EXPORTSH = SSF/SSH*(REALPBARMF*MF+REALP_MOF*M_ONF+REALP_MOF*M_OTF)*REALEX ;
|
|
IMPORTSH = REALPBARMH*MH+REALP_MOH*M_ONH+REALP_MOH*M_OTH ;
|
|
EXPORTSH_NAT = SSF/SSH*(REALPBARMF_EXOG*MF+REALP_MOF_EXOG*M_ONF+REALP_MOF_EXOG*M_OTF)*REALEX_EXOG ;
|
|
IMPORTSH_NAT = REALPBARMH_EXOG*MH+REALP_MOH_EXOG*M_ONH+REALP_MOH_EXOG*M_OTH ;
|
|
ZZ_UTILITYF = (ZUF*(CF-HF)^(1-SIGMAF)-1)/(1-SIGMAF)-CAPAF*LF^(1+ZEDF)/(1+ZEDF) ;
|
|
ZZ_GF = 100*log(GF_NAT) ;
|
|
ZZ_CURBALF_RAT = CURBALF_RAT*100 ;
|
|
ZZ_M_SHARF = REALPBARMF*MF/AF ;
|
|
ZZ_M_O_SHARF = (REALP_MOF*M_ONF+REALP_MOF*M_OTF)/AF ;
|
|
ZZ_M_ON_SHARF = REALP_MOF*M_ONF/AF ;
|
|
ZZ_M_OT_SHARF = REALP_MOF*M_OTF/AF ;
|
|
ZZ_N_SHARF = NF*REALPNF/AF ;
|
|
ZZ_EYE_SHARF = EYEF/GDPF ;
|
|
ZZ_C_SHARF = CF/GDPF ;
|
|
ZZ_GDPF = 100*log(GDPF_NAT) ;
|
|
ZZ_CF = 100*log(CF_NAT) ;
|
|
ZZ_EYEF = 100*log(EYEF) ;
|
|
ZZ_EXPORTSF = 100*log(EXPORTSF_NAT) ;
|
|
ZZ_IMPORTSF = 100*log(IMPORTSF_NAT) ;
|
|
ZZ_XBALF_TOT_RAT = 100*(EXPORTSF_NAT-IMPORTSF_NAT)/GDPF_NAT ;
|
|
ZZ_PIE4F = 100*(PIE4F-1) ;
|
|
ZZ_DPIE4F = ZZ_PIE4F-ZZ_PIE4F(-1) ;
|
|
ZZ_RNOMF = 100*(RNOMF^4-1) ;
|
|
ZZ_DRNOMF = ZZ_RNOMF-ZZ_RNOMF(-1) ;
|
|
100*(PIE4TARF-1) = 1*100*(PIE4TARF_SS-1)+(1-1)*100*(PIE4TARF(-1)-1)+E_PIE4TARF ;
|
|
log(ZUF) = 0.3*log(ZUF_SS)+0.7*log(ZUF(-1))+E_ZUF ;
|
|
ZBF = 0.3*ZBF_SS+0.7*ZBF(-1)+E_ZBF ;
|
|
log(LANDF) = 0.05*log(LANDF_SS)+0.95*log(LANDF(-1))+E_LANDF ;
|
|
log(ZTF) = 0.05*log(ZTF_SS)+0.95*log(ZTF(-1))+E_LANDF ;
|
|
log(ZNF) = 0.05*log(ZNF_SS)+0.95*log(ZNF(-1))+E_LANDF ;
|
|
log(Z_OF) = 0.05*log(Z_OF_SS)+0.95*log(Z_OF(-1))+E_LANDF ;
|
|
ZEYEF = 0.05*ZEYEF_SS+0.95*ZEYEF(-1)+E_ZEYEF ;
|
|
CAPAF = 0.05*CAPAF_SS+0.95*CAPAF(-1)+E_CAPAF ;
|
|
log(GAMMAF) = 0.05*log(GAMMAF_SS)+0.95*log(GAMMAF(-1))+E_GAMMAF ;
|
|
BIGGAM_O_NF = 1-COST_O_NF/2*(O_NF/NF/(O_NF(-1)/NF(-1))-1)^2 ;
|
|
BIGGAM_O_TF = 1-COST_O_TF/2*(O_TF/TF/(O_TF(-1)/TF(-1))-1)^2 ;
|
|
O_NF = GAMA_NF*NF/ZNF*(REALP_ONF/(REALMCNF*ZNF))^(-XIXI_NF)*(BIGGAM_O_NF-COST_O_NF*(O_NF/NF/(O_NF(-1)/NF(-1))-1)*O_NF/NF/(O_NF(-1)/NF(-1)))^XIXI_NF/BIGGAM_O_NF ;
|
|
O_TF = GAMA_TF*TF/ZTF*(REALP_OTF/(REALMCTF*ZTF))^(-XIXI_TF)*(BIGGAM_O_TF-COST_O_TF*(O_TF/TF/(O_TF(-1)/TF(-1))-1)*O_TF/TF/(O_TF(-1)/TF(-1)))^XIXI_NF/BIGGAM_O_TF ;
|
|
NF = ZNF*((1-ALPHANF-GAMA_NF)^(1/XIXI_NF)*LNF^(1-1/XIXI_NF)+ALPHANF^(1/XIXI_NF)*KNF^(1-1/XIXI_NF)+GAMA_NF^(1/XIXI_NF)*(BIGGAM_O_NF*O_NF)^(1-1/XIXI_NF))^(XIXI_NF/(XIXI_NF-1)) ;
|
|
TF = ZTF*((1-ALPHATF-GAMA_TF)^(1/XIXI_TF)*LTF^(1-1/XIXI_TF)+ALPHATF^(1/XIXI_TF)*KTF^(1-1/XIXI_TF)+GAMA_TF^(1/XIXI_TF)*(BIGGAM_O_TF*O_TF)^(1-1/XIXI_TF))^(XIXI_TF/(XIXI_TF-1)) ;
|
|
REALMCNF = 1/ZNF*((1-ALPHANF-GAMA_NF)*REALWF^(1-XIXI_NF)+ALPHANF*REALRF^(1-XIXI_NF)+GAMA_NF*REALP_ONF^(1-XIXI_NF)*(BIGGAM_O_NF-COST_O_NF*(O_NF/NF/(O_NF(-1)/NF(-1))-1)*O_NF/NF/(O_NF(-1)/NF(-1)))^(XIXI_NF-1))^(1/(1-XIXI_NF)) ;
|
|
REALMCTF = 1/ZTF*((1-ALPHATF-GAMA_TF)*REALWF^(1-XIXI_TF)+ALPHATF*REALRF^(1-XIXI_TF)+GAMA_TF*REALP_OTF^(1-XIXI_TF)*(BIGGAM_O_TF-COST_O_TF*(O_TF/TF/(O_TF(-1)/TF(-1))-1)*O_TF/TF/(O_TF(-1)/TF(-1)))^(XIXI_TF-1))^(1/(1-XIXI_TF)) ;
|
|
MARGUTF = (CF-B2F*HF)^(-SIGMAF)*ZUF ;
|
|
HF = (1-B0F)*HF(-1)+B0F*B1F*CF(-1) ;
|
|
VPRIMEF = CAPAF*LF^ZEDF ;
|
|
AF^(1-1/EPSF) = GAMMAF^(1/EPSF)*(NYF^(1/EPSQMF)*QF^(1-1/EPSQMF)+(1-NYF)^(1/EPSQMF)*(MF*BIGGAMIMPF)^(1-1/EPSQMF))^(EPSQMF/(EPSQMF-1)*(1-1/EPSF))+(1-GAMMAF)^(1/EPSF)*NNF^(1-1/EPSF) ;
|
|
QF = GAMMAF*NYF*REALPQF^(-EPSQMF)*AF*REALPXF^(EPSQMF-EPSF) ;
|
|
MF = GAMMAF*(1-NYF)*REALPMF^(-EPSQMF)*AF*REALPXF^(EPSQMF-EPSF)*1/BIGGAMIMPF*(BIGGAMIMPF-COSTF*(MF/AF/(MF(-1)/AF(-1))-1)*MF/AF/(MF(-1)/AF(-1)))^EPSQMF ;
|
|
REALPXF = (NYF*REALPQF^(1-EPSQMF)+(1-NYF)*REALPMF^(1-EPSQMF)*(BIGGAMIMPF-COSTF*(MF/AF/(MF(-1)/AF(-1))-1)*MF/AF/(MF(-1)/AF(-1)))^(EPSQMF-1))^(1/(1-EPSQMF)) ;
|
|
BIGGAMIMPF = 1-COSTF/2*(MF/AF/(MF(-1)/AF(-1))-1)^2 ;
|
|
NNF = (1-GAMMAF)*REALPNF^(-EPSF)*AF ;
|
|
NF = NNF+ETAF*MF+ETAF*QF+GNF ;
|
|
PIENF = REALPNF/REALPNF(-1)*PIEF ;
|
|
BIGGAMNF = LILCAPPA3F/2*(PIENF/PIE4TARF^0.25-1)^2+LILCAPPA4F/2*(PIENF/PIENF(-1)-1)^2 ;
|
|
-(1-BIGGAMNF)*(REALPNF*(1-THETAF)+THETAF*REALMCNF) = -(REALPNF-REALMCNF)*(LILCAPPA3F*PIENF/PIE4TARF^0.25*(PIENF/PIE4TARF^0.25-1)+LILCAPPA4F*PIENF/PIENF(-1)*(PIENF/PIENF(-1)-1))+DEEF*PIEF(+1)*(REALPNF(+1)-REALMCNF(+1))*NF(+1)/NF*(LILCAPPA3F*PIENF(+1)/PIE4TARF^0.25*(PIENF(+1)/PIE4TARF^0.25-1)+LILCAPPA4F*PIENF(+1)/PIENF*(PIENF(+1)/PIENF-1)) ;
|
|
PIEBARQF = PIEF*REALPBARQF/REALPBARQF(-1) ;
|
|
BIGGAMQF = LILCAPPA5F/2*(PIEBARQF/PIE4TARF^0.25-1)^2+LILCAPPA6F/2*(PIEBARQF/PIEBARQF(-1)-1)^2 ;
|
|
-(1-BIGGAMQF)*REALPBARQF/REALPQF*(REALPBARQF*(1-THETAF)+ETAF*REALPNF+THETAF*REALMCTF) = -(REALPBARQF-REALMCTF)*(LILCAPPA5F*PIEBARQF/PIE4TARF^0.25*(PIEBARQF/PIE4TARF^0.25-1)+LILCAPPA6F*PIEBARQF/PIEBARQF(-1)*(PIEBARQF/PIEBARQF(-1)-1))+DEEF*PIEF(+1)*(REALPBARQF(+1)-REALMCTF(+1))*QF(+1)/QF*(LILCAPPA5F*PIEBARQF(+1)/PIE4TARF^0.25*(PIEBARQF(+1)/PIE4TARF^0.25-1)+LILCAPPA6F*PIEBARQF(+1)/PIEBARQF*(PIEBARQF(+1)/PIEBARQF-1)) ;
|
|
REALPQF = REALPBARQF+ETAF*REALPNF ;
|
|
KF = KF(-1)*(1-DELTAF)+PSIF(-1)*KF(-1) ;
|
|
PSIF = EYEF/KF-OMEGAF/2*(EYEF/KF-DELTAF*(1+ZEYEF))^2-OMEGA0F/2*(EYEF/KF-EYEF(-1)/KF(-1))^2 ;
|
|
PSIPRIMEF = 1-OMEGAF*(EYEF/KF-DELTAF*(1+ZEYEF))-OMEGA0F*(EYEF/KF-EYEF(-1)/KF(-1)) ;
|
|
1/PSIPRIMEF = DEEF*PIEF(+1)*(REALRF(+1)+1/PSIPRIMEF(+1)*(1-DELTAF+PSIF(+1)*(1-PSIPRIMEF(+1)*EYEF(+1)/(PSIF(+1)*KF(+1))))) ;
|
|
BIGGAMF = LILCAPPA1F/2*(PIEWF/PIE4TARF^0.25-1)^2+LILCAPPA2F/2*(PIEWF/PIEWF(-1)-1)^2 ;
|
|
PIEF*REALWF/REALWF(-1) = PIEWF ;
|
|
REALWF = PHIF*VPRIMEF/MARGUTF*((PHIF-1)*(1-BIGGAMF)+PIEWF*LILCAPPA1F/PIE4TARF^0.25*(PIEWF/PIE4TARF^0.25-1)+PIEWF/PIEWF(-1)*LILCAPPA2F*(PIEWF/PIEWF(-1)-1)-DEEF*PIEWF(+1)*LF(+1)/LF*LILCAPPA1F*PIEWF(+1)/PIE4TARF^0.25*(PIEWF(+1)/PIE4TARF^0.25-1)-DEEF*PIEWF(+1)*LF(+1)/LF*LILCAPPA2F*PIEWF(+1)/(REALWF/REALWF(-1))*(PIEWF(+1)/PIEWF-1))^(-1) ;
|
|
DEEF = BET*MARGUTF(+1)/PIEF(+1)/MARGUTF*(1+SHOPF+SHOPPRIMEF*VELOF)/(1+SHOPF(+1)+SHOPPRIMEF(+1)*VELOF(+1)) ;
|
|
SHOPF = A_ZEROF*VELOF+A_ONEF/VELOF-2*(A_ZEROF*A_ONEF)^0.5 ;
|
|
SHOPPRIMEF = A_ZEROF-A_ONEF*VELOF^(-2) ;
|
|
VELOF = CF/REALMONEYF ;
|
|
DEEF = 1-SHOPPRIMEF*VELOF^2 ;
|
|
1 = RNOMF*DEEF ;
|
|
100*(RNOMF^4-1) = (1-XDUMF)*100*(RNOM_EXOGF^4-1)+XDUMF*(XR3F*100*(RNOMF(-1)^4-1)+(1-XR3F)*(100*((1/BET*PIE4F^0.25)^4-1)+XR1F*(100*(PIE4F-1)-100*(PIE4TARF-1))+XR4F*100*(DEPEX^4-1)+XR2F*GDPGAPF)) ;
|
|
GDPGAPF = 100*(GDPF_NAT-GDPF_EXOG)/GDPF_EXOG ;
|
|
PIE4F = PIEF*PIEF(-1)*PIEF1(-1)*PIEF2(-1) ;
|
|
AF = CF*(1+SHOPF)+EYEF+GAF ;
|
|
GAF = .05*(GA_RATF*(GLAMBDAF*GDPF_NAT+(1-GLAMBDAF)*GDPF_EXOG))+.95*GAF(-1)+E_GAF;
|
|
GNF = GN_RATF*(GLAMBDAF*GDPF_NAT+(1-GLAMBDAF)*GDPF_EXOG)/REALPNF_EXOG ;
|
|
PIEBARMF = PIEF*REALPBARMF/REALPBARMF(-1) ;
|
|
BIGGAMMF = LILCAPPA7F/2*(PIEBARMF/PIE4TARF^0.25-1)^2+LILCAPPA8F/2*(PIEBARMF/PIEBARMF(-1)-1)^2 ;
|
|
REALPMF = REALPBARMF+ETAF*REALPNF ;
|
|
KNF_RAT = ALPHANF/(1-ALPHANF-GAMA_NF)*(REALWF/REALRF)^XIXI_NF ;
|
|
KTF_RAT = ALPHATF/(1-ALPHATF-GAMA_TF)*(REALWF/REALRF)^XIXI_TF ;
|
|
KNF_RAT = KNF/LNF ;
|
|
KTF_RAT = KTF/LTF ;
|
|
KF = KTF+KNF+K_OF ;
|
|
LF = (LNF+LTF+L_OF)*(1-COSTLF/2*(LNF/(LTF+L_OF)/(LNF(-1)/(LTF(-1)+L_OF(-1)))-1)^2) ;
|
|
T_OF = Z_OF*((1-ALPHA_OF-GAMMA_LANDF)^(1/XIXI_OF)*L_OF^(1-1/XIXI_OF)+ALPHA_OF^(1/XIXI_OF)*K_OF^(1-1/XIXI_OF)+GAMMA_LANDF^(1/XIXI_OF)*LANDF^(1-1/XIXI_OF))^(XIXI_OF/(XIXI_OF-1)) ;
|
|
Q_ONF = NY_NF*(REALP_QOF/REALP_ONF)^(-EPS_ONF)*O_NF ;
|
|
Q_OTF = NY_TF*(REALP_QOF/REALP_OTF)^(-EPS_OTF)*O_TF ;
|
|
M_ONF = (1-NY_NF)*(REALP_MOF/REALP_ONF)^(-EPS_ONF)*O_NF*(BIGGAM_MONF-COST_MONF*(M_ONF/O_NF/(M_ONF(-1)/O_NF(-1))-1)*M_ONF/O_NF/(M_ONF(-1)/O_NF(-1)))^EPS_ONF/BIGGAM_MONF ;
|
|
M_OTF = (1-NY_TF)*(REALP_MOF/REALP_OTF)^(-EPS_OTF)*O_TF*(BIGGAM_MOTF-COST_MOTF*(M_OTF/O_TF/(M_OTF(-1)/O_TF(-1))-1)*M_OTF/O_TF/(M_OTF(-1)/O_TF(-1)))^EPS_OTF/BIGGAM_MOTF ;
|
|
BIGGAM_MONF = 1-COST_MONF/2*(M_ONF/O_NF/(M_ONF(-1)/O_NF(-1))-1)^2 ;
|
|
BIGGAM_MOTF = 1-COST_MOTF/2*(M_OTF/O_TF/(M_OTF(-1)/O_TF(-1))-1)^2 ;
|
|
K_OF_RAT = ALPHA_OF/(1-ALPHA_OF-GAMMA_LANDF)*(REALWF/REALRF)^XIXI_OF ;
|
|
K_OF_RAT = K_OF/L_OF ;
|
|
REALP_QOF = 1/Z_OF*((1-ALPHA_OF-GAMMA_LANDF)*REALWF^(1-XIXI_OF)+ALPHA_OF*REALRF^(1-XIXI_OF)+GAMMA_LANDF*REALPLANDF^(1-XIXI_OF))^(1/(1-XIXI_OF)) ;
|
|
LANDF = GAMMA_LANDF*(REALPLANDF/(REALP_QOF*Z_OF))^(-XIXI_OF)*T_OF/Z_OF ;
|
|
REALP_ONF = (NY_NF*REALP_QOF^(1-EPS_ONF)+(1-NY_NF)*REALP_MOF^(1-EPS_ONF)*(BIGGAM_MONF-COST_MONF*(M_ONF/O_NF/(M_ONF(-1)/O_NF(-1))-1)*M_ONF/O_NF/(M_ONF(-1)/O_NF(-1)))^(EPS_ONF-1))^(1/(1-EPS_ONF)) ;
|
|
REALP_OTF = (NY_TF*REALP_QOF^(1-EPS_OTF)+(1-NY_TF)*REALP_MOF^(1-EPS_OTF)*(BIGGAM_MOTF-COST_MOTF*(M_OTF/O_TF/(M_OTF(-1)/O_TF(-1))-1)*M_OTF/O_TF/(M_OTF(-1)/O_TF(-1)))^(EPS_OTF-1))^(1/(1-EPS_OTF)) ;
|
|
SSF*TF = SSF*QF+SSH*MH ;
|
|
SSF*T_OF = SSF*Q_ONF+SSF*Q_OTF+SSH*M_ONH+SSH*M_OTH ;
|
|
REALP_MOF = REALP_QOH*REALEXF ;
|
|
SSH*REALBH+SSF*REALBF = 0 ;
|
|
REALTBALF = SSF*(REALPBARMF*MF+REALP_MOF*M_ONF+REALP_MOF*M_OTF)-SSH*(REALPBARMH*MH+REALP_MOH*M_ONH+REALP_MOH*M_OTH)*1/REALEX ;
|
|
EXPORTSF = SSH/SSF*(REALPBARMH*MH+REALP_MOH*M_ONH+REALP_MOH*M_OTH)*1/REALEX ;
|
|
IMPORTSF = REALPBARMF*MF+REALP_MOF*M_ONF+REALP_MOF*M_OTF ;
|
|
EXPORTSF_NAT = SSH/SSF*(REALPBARMH_EXOG*MH+REALP_MOH_EXOG*M_ONH+REALP_MOH_EXOG*M_OTH)*1/REALEX_EXOG ;
|
|
IMPORTSF_NAT = REALPBARMF_EXOG*MF+REALP_MOF_EXOG*M_ONF+REALP_MOF_EXOG*M_OTF ;
|
|
-(1-BIGGAMMF)*REALPBARMF/REALPMF*(REALPBARMF*REALEX*(1-THETAH)+ETAF*REALPNF*REALEX+THETAH*REALMCTH) = -(REALPBARMF*REALEX-REALMCTH)*(LILCAPPA7F*PIEBARMF/PIE4TARF^0.25*(PIEBARMF/PIE4TARF^0.25-1)+LILCAPPA8F*PIEBARMF/PIEBARMF(-1)*(PIEBARMF/PIEBARMF(-1)-1))+DEEH*PIEH(+1)*(REALPBARMF(+1)*REALEX(+1)-REALMCTH(+1))*MF(+1)/MF*(LILCAPPA7F*PIEBARMF(+1)/PIE4TARF^0.25*(PIEBARMF(+1)/PIE4TARF^0.25-1)+LILCAPPA8F*PIEBARMF(+1)/PIEBARMF*(PIEBARMF(+1)/PIEBARMF-1)) ;
|
|
GDPF = AF+REALPNF*GNF+EXPORTSF-IMPORTSF+(RNOMF(-1)-1)*REALBF(-1)/PIEF ;
|
|
GDPF_NAT = AF+REALPNF_EXOG*GNF+EXPORTSF_NAT-IMPORTSF_NAT ;
|
|
CF_NAT = CF*(1+SHOPF) ;
|
|
GF_NAT = GAF+REALPNF_EXOG*GNF ;
|
|
XF_NAT = SSH/SSF*1/REALEX_EXOG*REALPBARMH_EXOG*MH ;
|
|
MF_NAT = REALPBARMF_EXOG*MF ;
|
|
CURBALF_RAT = -(REALTBALH/REALEX/SSF/GDPF)+(RNOMF(-1)-1)*REALBF(-1)/PIEF/GDPF ;
|
|
PIEF1 = PIEF(-1);
|
|
PIEF2 = PIEF1(-1);
|
|
PIEH1 = PIEH(-1);
|
|
PIEH2 = PIEH1(-1);
|
|
REALBH1 = REALBH(-1);
|
|
end;
|
|
|
|
initval;
|
|
AF=2.17350447531715;
|
|
AH=2.61461230039988;
|
|
BIGGAMF=0;
|
|
BIGGAMH=0;
|
|
BIGGAMIMPF=1;
|
|
BIGGAMIMPH=1;
|
|
BIGGAMMF=0;
|
|
BIGGAMMH=0;
|
|
BIGGAMNF=0;
|
|
BIGGAMNH=0;
|
|
BIGGAMQF=0;
|
|
BIGGAMQH=0;
|
|
BIGGAM_MONF=1;
|
|
BIGGAM_MONH=1;
|
|
BIGGAM_MOTF=1;
|
|
BIGGAM_MOTH=1;
|
|
BIGGAM_O_NF=1;
|
|
BIGGAM_O_NH=1;
|
|
BIGGAM_O_TF=1;
|
|
BIGGAM_O_TH=1;
|
|
CAPAF=11;
|
|
CAPAH=11;
|
|
CF=1.77599320017707;
|
|
CF_NAT=1.77797456682707;
|
|
CH=2.10139281352027;
|
|
CH_NAT=2.10373720855446;
|
|
CURBALF_RAT=2.20209042676066e-018;
|
|
CURBALH_RAT=0;
|
|
DEEF=0.963834712172592;
|
|
DEEH=0.963834712172592;
|
|
DEPEX=1;
|
|
EXPORTSF=0.0374229290542059;
|
|
EXPORTSF_NAT=0.0374229290542059;
|
|
EXPORTSH=0.976573287861717;
|
|
EXPORTSH_NAT=0.976573287861717;
|
|
EYEF=0.27477965986135;
|
|
EYEH=0.365618852934316;
|
|
GAF=0.12075024862873;
|
|
GAH=0.145256238911104;
|
|
GAMMAF=0.5;
|
|
GAMMAH=0.25;
|
|
GDPF=2.41500497257461;
|
|
GDPF_NAT=2.41500497257461;
|
|
GDPGAPF=0;
|
|
GDPGAPH=0;
|
|
GDPH=2.90512477822209;
|
|
GDPH_NAT=2.90512477822209;
|
|
GF_NAT=0.362250745886191;
|
|
GH_NAT=0.435768716733313;
|
|
GNF=0.287269571519256;
|
|
GNH=0.321902361090147;
|
|
HF=1.68719354016822;
|
|
HH=1.99632317284426;
|
|
IMPORTSF=0.0374229290542059;
|
|
IMPORTSF_NAT=0.0374229290542059;
|
|
IMPORTSH=0.976573287861718;
|
|
IMPORTSH_NAT=0.976573287861718;
|
|
KF=10.991186394454;
|
|
KH=14.6247541173726;
|
|
KNF=6.33686501417153;
|
|
KNF_RAT=22.6981730731029;
|
|
KNH=11.034700665508;
|
|
KNH_RAT=22.8755992006951;
|
|
KTF=2.97137434524903;
|
|
KTF_RAT=22.6981730731029;
|
|
KTH=2.23720856941572;
|
|
KTH_RAT=114.377996003476;
|
|
K_OF=1.68294703503345;
|
|
K_OF_RAT=7.27127622255245;
|
|
K_OH=1.35284488244891;
|
|
K_OH_RAT=8.16985685739111;
|
|
LANDF=0.1;
|
|
LANDH=0.1;
|
|
LF=0.64153899810027;
|
|
LH=0.667528221502678;
|
|
LNF=0.279179517830034;
|
|
LNH=0.482378650224502;
|
|
LTF=0.130908083909629;
|
|
LTH=0.019559781143112;
|
|
L_OF=0.231451396360608;
|
|
L_OH=0.165589790135064;
|
|
MARGUTF=2.24145263303312;
|
|
MARGUTH=2.11921125101343;
|
|
MF=0.0196445696804563;
|
|
MF_NAT=0.0171196449669319;
|
|
MH=0.438784845846124;
|
|
MH_NAT=0.522472906750236;
|
|
M_ONF=0.0143006671963624;
|
|
M_ONH=0.134410532365428;
|
|
M_OTF=0.00670562423725087;
|
|
M_OTH=0.143002828997546;
|
|
NF=1.91582345366461;
|
|
NH=2.609674642079;
|
|
NNF=1.31534385473198;
|
|
NNH=2.19524942542191;
|
|
O_NF=0.387338325509274;
|
|
O_NH=0.147043832240678;
|
|
O_TF=0.18162406186278;
|
|
O_TH=0.148205762233076;
|
|
PIE4F=1.125;
|
|
PIE4H=1.125;
|
|
PIE4TARF=1.125;
|
|
PIE4TARH=1.125;
|
|
PIEBARMF=1.02988357195356;
|
|
PIEBARMH=1.02988357195356;
|
|
PIEBARQF=1.02988357195356;
|
|
PIEBARQH=1.02988357195356;
|
|
PIEF=1.02988357195356;
|
|
PIEF1=1.02988357195356;
|
|
PIEF2=1.02988357195356;
|
|
PIEH=1.02988357195356;
|
|
PIEH1=1.02988357195356;
|
|
PIEH2=1.02988357195356;
|
|
PIENF=1.02988357195356;
|
|
PIENH=1.02988357195356;
|
|
PIEWF=1.02988357195356;
|
|
PIEWH=1.02988357195356;
|
|
PSIF=0.025;
|
|
PSIH=0.025;
|
|
PSIPRIMEF=1;
|
|
PSIPRIMEH=1;
|
|
QF=0.875241222929181;
|
|
QH=0.0238294319885835;
|
|
Q_ONF=0.373740369418894;
|
|
Q_ONH=0.0132636199615755;
|
|
Q_OTF=0.175247940896905;
|
|
Q_OTH=0.00547180886242481;
|
|
REALBF=0;
|
|
REALBH=0;
|
|
REALBH1=0;
|
|
REALEX=1.3734519289908;
|
|
REALEXF=0.728092464608345;
|
|
REALEXH=1.3734519289908;
|
|
REALFINH=0;
|
|
REALMCNF=0.700562935771035;
|
|
REALMCNH=0.752071934789911;
|
|
REALMCTF=0.700562935771035;
|
|
REALMCTH=0.930081384894704;
|
|
REALMONEYF=0.558667031035572;
|
|
REALMONEYH=0.661026677383566;
|
|
REALPBARMF=0.87146958398196;
|
|
REALPBARMH=1.19072687148694;
|
|
REALPBARQF=0.899522809530009;
|
|
REALPBARQH=1.15219711474356;
|
|
REALPLANDF=0.554831427212494;
|
|
REALPLANDH=0.414697221827051;
|
|
REALPMF=1.16570601700579;
|
|
REALPMH=1.37122413583652;
|
|
REALPNF=0.840675522925242;
|
|
REALPNH=0.902486321747893;
|
|
REALPQF=1.19375924255384;
|
|
REALPQH=1.33269437909314;
|
|
REALPXF=1.19317131724075;
|
|
REALPXH=1.36926881180313;
|
|
REALP_MOF=0.966533486000563;
|
|
REALP_MOH=1.63690883121281;
|
|
REALP_ONF=1.18566549908199;
|
|
REALP_ONH=1.61601524261254;
|
|
REALP_OTF=1.18566549908199;
|
|
REALP_OTH=1.62845456685201;
|
|
REALP_QOF=1.1918209852569;
|
|
REALP_QOH=1.32748728078168;
|
|
REALRF=0.0324170717777328;
|
|
REALRH=0.0324170717777329;
|
|
REALTBALF=-6.93889390390723e-018;
|
|
REALTBALH=-6.93889390390723e-018;
|
|
REALWF=2.42667732699502;
|
|
REALWH=2.83454771236558;
|
|
RNOMF=1.03752229232945;
|
|
RNOMH=1.03752229232945;
|
|
SHOPF=0.00111563864647424;
|
|
SHOPH=0.00111563864647424;
|
|
SHOPPRIMEF=0.00357861859467432;
|
|
SHOPPRIMEH=0.00357861859467432;
|
|
TF=0.89833516218424;
|
|
TH=0.397076255917254;
|
|
T_OF=0.563589013545429;
|
|
T_OH=0.417854966062653;
|
|
VELOF=3.17898336847443;
|
|
VELOH=3.17898336847443;
|
|
VPRIMEF=3.62618818940983;
|
|
VPRIMEH=4.00467026905301;
|
|
XF_NAT=0.0200215045456245;
|
|
XH_NAT=0.446747178665936;
|
|
XI=0;
|
|
ZBF=0;
|
|
ZBH=0;
|
|
ZEYEF=0;
|
|
ZEYEH=0;
|
|
ZNF=1;
|
|
ZNH=1;
|
|
ZTF=1;
|
|
ZTH=0.6;
|
|
ZUF=1;
|
|
ZUH=1;
|
|
ZZ_CF=57.5474832617676;
|
|
ZZ_CH=74.3715386197541;
|
|
ZZ_CURBALF_RAT=2.20209042676066e-016;
|
|
ZZ_CURBALH_RAT=0;
|
|
ZZ_C_SHARF=0.735399396831762;
|
|
ZZ_C_SHARH=0.723339950584259;
|
|
ZZ_DPIE4F=0;
|
|
ZZ_DPIE4H=0;
|
|
ZZ_DRNOMF=0;
|
|
ZZ_DRNOMH=0;
|
|
ZZ_EXPORTSF=-328.547168610049;
|
|
ZZ_EXPORTSH=-2.37054799079326;
|
|
ZZ_EYEF=-129.17857393452;
|
|
ZZ_EYEH=-100.616387362469;
|
|
ZZ_EYE_SHARF=0.113780163180538;
|
|
ZZ_EYE_SHARH=0.12585306341233;
|
|
ZZ_GDPF=88.1701346139521;
|
|
ZZ_GDPH=106.647634229781;
|
|
ZZ_GDP_PPP_RATH=0.875857186130553;
|
|
ZZ_GF=-101.541863874636;
|
|
ZZ_GH=-83.0643642588075;
|
|
ZZ_IMPORTSF=-328.547168610049;
|
|
ZZ_IMPORTSH=-2.37054799079323;
|
|
ZZ_M_ON_SHARF=0.0063593490946998;
|
|
ZZ_M_ON_SHARH=0.084149297164759;
|
|
ZZ_M_OT_SHARF=0.00298191719568198;
|
|
ZZ_M_OT_SHARH=0.0895286056899133;
|
|
ZZ_M_O_SHARF=0.00934126629038178;
|
|
ZZ_M_O_SHARH=0.173677902854672;
|
|
ZZ_M_SHARF=0.00787651700806085;
|
|
ZZ_M_SHARH=0.19982806118916;
|
|
ZZ_N_SHARF=0.741008772713445;
|
|
ZZ_N_SHARH=0.90078198910348;
|
|
ZZ_PIE4F=12.5;
|
|
ZZ_PIE4H=12.5;
|
|
ZZ_REALEX=31.7327227026121;
|
|
ZZ_RNOMF=15.8749999999999;
|
|
ZZ_RNOMH=15.8749999999999;
|
|
ZZ_UTILITYF=-1.86610854895021;
|
|
ZZ_UTILITYH=-1.9297829736965;
|
|
ZZ_XBALF_TOT_RAT=0;
|
|
ZZ_XBALH_TOT_RAT=-7.6432037132987e-015;
|
|
Z_OF=1;
|
|
Z_OH=1;
|
|
|
|
E_ZBH=0;
|
|
|
|
E_ZUH=0;
|
|
E_ZUF=0;
|
|
|
|
E_ZEYEH=0;
|
|
E_ZEYEF=0;
|
|
|
|
E_GAMMAH=0;
|
|
E_GAMMAF=0;
|
|
|
|
E_LANDH=0;
|
|
E_LANDF=0;
|
|
|
|
E_GAH = 0;
|
|
E_GAF = 0;
|
|
|
|
E_CAPAH=0;
|
|
E_CAPAF=0;
|
|
end;
|
|
|
|
vcov = [
|
|
0.000324 0 0 0 0 0 0 0 0 0 0 0 0;
|
|
0 0.0004 0 0 0 0 0 0 0 0 0 0 0;
|
|
0 0 0.00000001 0 0 0 0 0 0 0 0 0 0;
|
|
0 0 0 0.000004 0 0 0 0 0 0 0 0 0;
|
|
0 0 0 0 0.000289 0 0 0 0 0 0 0 0;
|
|
0 0 0 0 0 0.000025 0 0 0 0 0 0 0;
|
|
0 0 0 0 0 0 0.0049 0 0 0 0 0 0;
|
|
0 0 0 0 0 0 0 0.000001 0 0 0 0 0;
|
|
0 0 0 0 0 0 0 0 0.000016 0 0 0 0;
|
|
0 0 0 0 0 0 0 0 0 0.00001225 0 0 0;
|
|
0 0 0 0 0 0 0 0 0 0 0.0000005625 0 0;
|
|
0 0 0 0 0 0 0 0 0 0 0 0.01 0;
|
|
0 0 0 0 0 0 0 0 0 0 0 0 0.0001
|
|
];
|
|
|
|
order=2; |