Equation 1
EXCH("UU") = 0
Equation 2
For
g1 in
goods_e,
r in
regions (50 total):
OUY(g1,r) = CON(g1,r)+IIN(g1,r)
+INS(r,g1)
+GCE(g1,r)
+EXQ(g1,r)
+sum(s1 in sec_std, EN(s1,g1,r))
Equation 3
For
g3 in
goods_m,
r in
regions (70 total):
OUY(g3,r) = CON(g3,r)+IIN(g3,r)
+INS(r,g3)
+GCE(g3,r)
+EXQ(g3,r)
+sum(s1 in sec_std, OI(s1,g3,r))
Equation 4
For
g4 in
goods_o,
r in
regions (120 total):
IMQ(g4,r) = (1-delta_dom(g4,r))*OUY(g4,r)
*exp(
PRS(g4,r)-PMR(g4,r))
^sigma_df(g4,r)
Equation 5
For
d in
dest,
g4 in
goods_o,
o1 in
orig (1200 total):
PIM(g4,d,o1) = EXCH(o1)+PRX(g4,o1)
-EXCH(d)
Equation 6
For
d in
dest,
g4 in
goods_o,
o1 in
orig (1200 total):
IMP(g4,d,o1) = delta_ff(g4,d,o1)*IMQ(g4,d)
*(carcoef(g4,d)*TCP(g4,d)
+btucoef(g4,d)*TBFI(d)
+BCT(g4,d,o1)
+(1
+(TIM(g4,d,o1)+TIX(g4,d))
*MUL(d,o1)
+TIF(g4,d)*FTA(d,o1))
*exp(
PIM(g4,d,o1)-PMR(g4,d)))
^(-sigma_ff(g4,d))
+IMPX(g4,d,o1)
Equation 7
For
d in
dest,
g4 in
goods_o (120 total):
PMQ(g4,d) = loge(
sum(o1 in orig, IMP(g4,d,o1)*exp(PIM(g4,d,o1)))
/IMQ(g4,d))
Equation 8
For
r in
regions (10 total):
IMQT(r) = sum(g4 in goods_o, exp(PMQ(g4,r))*IMQ(g4,r))
/exp(PRIM(r))
Equation 9
For
r in
regions (10 total):
EXQT(r) = sum(g4 in goods_o, exp(PRX(g4,r))*EXQ(g4,r))
/exp(PRIX(r))
Equation 10
For
g4 in
goods_o,
o1 in
orig (120 total):
EXQ(g4,o1) = sum(d in dest, IMP(g4,d,o1))
Equation 11
For
g4 in
goods_o,
r in
regions (120 total):
PRX(g4,r) = loge(
(1+TEX(g4,r))*exp(PRS(g4,r))
-carcoef(g4,r)*TCP(g4,r)
+btucoef(g4,r)*TBFX(r))
Equation 12
For
g4 in
goods_o,
r in
regions (120 total):
OUG(g4,r) = delta_dom(g4,r)*OUY(g4,r)
*exp(
PRS(g4,r)-PRD(g4,r))
^sigma_df(g4,r)
Equation 13
For
r in
regions,
s2 in
sectors (200 total):
OUP(s2,r) = sum(g in goods, makeinv(g,s2,r)*OUG(g,r))
Equation 14
For
r in
regions,
s1 in
sec_std (190 total):
LAB(s1,r) = exp(
SHL(r,s1)+SHY(s1,r))
^(sigma_o(s1,r)-1)
*delta_o("l",s1,r)
*OUP(s1,r)
*exp(
PRP(s1,r)-WAG(s1,r))
^sigma_o(s1,r)
Equation 15
For
r in
regions,
s1 in
sec_std (190 total):
ENT(s1,r) = exp(
SHEF(s1,r)+SHY(s1,r))
^(sigma_o(s1,r)-1)
*delta_o("e",s1,r)
*OUP(s1,r)
*exp(
PRP(s1,r)-PRE(s1,r))
^sigma_o(s1,r)
Equation 16
For
r in
regions,
s1 in
sec_std (190 total):
OIN(s1,r) = exp(SHY(s1,r))^(sigma_o(s1,r)-1)
*delta_o("m",s1,r)
*OUP(s1,r)
*exp(
PRP(s1,r)-POI(s1,r))
^sigma_o(s1,r)
Equation 17
For
r in
regions (10 total):
IITL(r) = exp(
SHLY(r)+SHYY(r))
^(sigma_oR(r)-1)
*delta_oR("l",r)
*INVT(r)
*exp(
PRII(r)-WAGE(r))
^sigma_oR(r)
Equation 18
For
r in
regions (10 total):
IITE(r) = exp(SHYY(r))^(sigma_oR(r)-1)
*delta_oR("e",r)
*INVT(r)
*exp(
PRII(r)-PRIE(r))
^sigma_oR(r)
Equation 19
For
r in
regions (10 total):
IITO(r) = exp(SHYY(r))^(sigma_oR(r)-1)
*delta_oR("m",r)
*INVT(r)
*exp(
PRII(r)-PROI(r))
^sigma_oR(r)
Equation 20
For
g1 in
goods_e,
r in
regions (50 total):
IIN(g1,r) = delta_eR(g1,r)*IITE(r)
*exp(
PRIE(r)-PRY(g1,r))
^sigma_eR(r)
Equation 21
For
g3 in
goods_m,
r in
regions (70 total):
IIN(g3,r) = delta_mR(g3,r)*IITO(r)
*exp(
PROI(r)-PRY(g3,r))
^sigma_mR(r)
Equation 22
For
r in
regions (10 total):
LABO(r) = IITL(r)+CNPL(r)
+GOVL(r)
+sum(s1 in sec_std, LAB(s1,r))
Equation 23
For
g4 in
goods_o,
r in
regions (120 total):
PRS(g4,r) = cd_df(g4,r)
*(delta_dom(g4,r)*PRD(g4,r)
+(1-delta_dom(g4,r))*PMR(g4,r))
+((1-cd_df(g4,r))
*loge(
delta_dom(g4,r)
*exp(PRD(g4,r))^(1-sigma_df(g4,r))
+(1-delta_dom(g4,r))
*exp(PMR(g4,r))^(1-sigma_df(g4,r))))
/(1
-sigma_df(g4,r)*(1-cd_df(g4,r)))
Equation 24
For
g in
goods,
r in
regions (200 total):
PRY(g,r) = loge(1+TAX(g,r))+PRS(g,r)
Equation 25
For
d in
dest,
g4 in
goods_o (120 total):
PMR(g4,d) = cd_ff(g4,d)
*sum(o1 in orig, delta_ff(g4,d,o1)
*loge(
carcoef(g4,d)*TCP(g4,d)
+btucoef(g4,d)*TBFI(d)
+BCT(g4,d,o1)
+(1
+(TIM(g4,d,o1)+TIX(g4,d))
*MUL(d,o1)
+TIF(g4,d)*FTA(d,o1))
*exp(PIM(g4,d,o1))))
+((1-cd_ff(g4,d))
*loge(
sum(o1 in orig, delta_ff(g4,d,o1)
*(carcoef(g4,d)*TCP(g4,d)
+btucoef(g4,d)*TBFI(d)
+BCT(g4,d,o1)
+(1
+(TIM(g4,d,o1)+TIX(g4,d))
*MUL(d,o1)
+TIF(g4,d)*FTA(d,o1))
*exp(PIM(g4,d,o1)))
^(1-sigma_ff(g4,d)))))
/(1
-sigma_ff(g4,d)*(1-cd_ff(g4,d)))
Equation 26
For
r in
regions (10 total):
PRIM(r) = sum(g4 in goods_o, prim_weight(g4,r)*PMQ(g4,r))
Equation 27
For
r in
regions (10 total):
PRIE(r) = cd_eR(r)
*sum(g1 in goods_e, delta_eR(g1,r)*PRY(g1,r))
+((1-cd_eR(r))
*loge(
sum(g1 in goods_e, delta_eR(g1,r)
*exp(PRY(g1,r))^(1-sigma_eR(r)))))
/(1
-sigma_eR(r)*(1-cd_eR(r)))
Equation 28
For
r in
regions (10 total):
PROI(r) = cd_mR(r)
*sum(g3 in goods_m, delta_mR(g3,r)*PRY(g3,r))
+((1-cd_mR(r))
*loge(
sum(g3 in goods_m, delta_mR(g3,r)
*exp(PRY(g3,r))^(1-sigma_mR(r)))))
/(1
-sigma_mR(r)*(1-cd_mR(r)))
Equation 29
For
g in
goods,
r in
regions (200 total):
PRD(g,r) = loge(
exp(
sum(s2 in sectors, makeinv(g,s2,r)*PRP(s2,r)))
+carcoef(g,r)*TCP(g,r)
+btucoef(g,r)*TBFD(r))
Equation 30
For
r in
regions,
s1 in
sec_std (190 total):
PRP(s1,r) = cd_o(s1,r)
*(delta_o("k",s1,r)*PRK(s1,r)
+delta_o("l",s1,r)*WAG(s1,r)
+delta_o("e",s1,r)*PRE(s1,r)
+delta_o("m",s1,r)*POI(s1,r)
-delta_o("l",s1,r)*SHL(r,s1)
-delta_o("k",s1,r)*SHK(s1,r)
-delta_o("e",s1,r)*SHEF(s1,r))
+((1-cd_o(s1,r))
*loge(
delta_o("k",s1,r)
*exp(
PRK(s1,r)-SHK(s1,r))
^(1-sigma_o(s1,r))
+delta_o("l",s1,r)
*exp(
WAG(s1,r)-SHL(r,s1))
^(1-sigma_o(s1,r))
+delta_o("e",s1,r)
*exp(
PRE(s1,r)-SHEF(s1,r))
^(1-sigma_o(s1,r))
+delta_o("m",s1,r)
*exp(POI(s1,r))^(1-sigma_o(s1,r))))
/(1
-sigma_o(s1,r)*(1-cd_o(s1,r)))
-SHY(s1,r)
Equation 31
For
r in
regions (10 total):
PRII(r) = cd_oR(r)
*(delta_oR("k",r)*PRKY(r)
+delta_oR("l",r)*WAGE(r)
+delta_oR("e",r)*PRIE(r)
+delta_oR("m",r)*PROI(r)
-delta_oR("l",r)*SHLY(r))
+((1-cd_oR(r))
*loge(
delta_oR("k",r)
*exp(PRKY(r))^(1-sigma_oR(r))
+delta_oR("l",r)
*exp(
WAGE(r)-SHLY(r))
^(1-sigma_oR(r))
+delta_oR("e",r)
*exp(PRIE(r))^(1-sigma_oR(r))
+delta_oR("m",r)
*exp(PROI(r))^(1-sigma_oR(r))))
/(1
-sigma_oR(r)*(1-cd_oR(r)))
-SHYY(r)
Equation 32
For
r in
regions,
s1 in
sec_std (190 total):
PRK(s1,r) = PRP(s1,r)
+loge(
(delta_o("k",s1,r)*OUP(s1,r))
/CAP(s1,r))
/sigma_o(s1,r)
+((SHY(s1,r)+SHK(s1,r))
*(sigma_o(s1,r)-1))
/sigma_o(s1,r)
Equation 33
For
r in
regions (10 total):
PRKY(r) = PRII(r)
+loge(
(delta_oR("k",r)*INVT(r))
/CAPY(r))
/sigma_oR(r)
+(SHYY(r)*(sigma_oR(r)-1))
/sigma_oR(r)
Equation 34
For
r in
regions (10 total):
PRKZ(r) = PRCT(r)
+loge(
(delta_oH("k",r)*CONP(r))
/CAPZ(r))
/sigma_oH(r)
+(SHYZ(r)*(sigma_oH(r)-1))
/sigma_oH(r)
Equation 35
For
r in
regions (10 total):
lead(WAGE(r)) = WAGE(r)
+wage_p(r)
*(lead(PRCT(r))+PRXX(r)
-PRCT(r))
+(1-wage_p(r))
*(PRCT(r)-PRCL(r))
+wage_q(r)*loge(LABO(r))
Equation 36
For
r in
regions,
s1 in
sec_std (190 total):
WAG(s1,r) = WAGE(r)
Equation 37
For
r in
regions,
s1 in
sec_std (190 total):
lead(CAP(s1,r)) = JNV(s1,r)
+(1-delta(r)-labgrow(r))
*CAP(s1,r)
Equation 38
For
r in
regions (10 total):
lead(CAPY(r)) = JNVY(r)
+(1-delta(r)-labgrow(r))
*CAPY(r)
Equation 39
For
r in
regions (10 total):
lead(CAPZ(r)) = JNVZ(r)
+(1-delta(r)-labgrow(r))
*CAPZ(r)
Equation 40
For
r in
regions,
s1 in
sec_std (190 total):
INV(s1,r) = (((1+.5*(TOB(s1,r)-1))*(TOB(s1,r)-1)
*CAP(s1,r))
/phi(s1,r))
*forei(s1,r)
+(((1+.5*(TPA(s1,r)-1))*(TPA(s1,r)-1)
*CAP(s1,r))
/phi(s1,r))
*(1-forei(s1,r))
+SHKI(r,s1)
Equation 41
For
r in
regions,
s1 in
sec_std (190 total):
JNV(s1,r) = (INV(s1,r)
+phi(s1,r)*0.5*base_jk(s1,r)^2
*CAP(s1,r))
/(1
+phi(s1,r)*base_jk(s1,r))
Equation 42
For
r in
regions (10 total):
INVY(r) = JNVY(r)
*(1
+((phi_y(r)/2)*JNVY(r))
/CAPY(r))
Equation 43
For
r in
regions (10 total):
INVZ(r) = JNVZ(r)
*(1
+((phi_z(r)/2)*JNVZ(r))
/CAPZ(r))
Equation 44
For
r in
regions (10 total):
JNVY(r) = (CAPY(r)
*(fore_i_y(r)*TOBY(r)
+(1-fore_i_y(r))*TPAY(r)
-1))
/phi_y(r)
Equation 45
For
r in
regions (10 total):
JNVZ(r) = (CAPZ(r)
*(fore_i_z(r)*TOBZ(r)
+(1-fore_i_z(r))*TPAZ(r)
-1))
/phi_z(r)
Equation 46
For
r in
regions,
s1 in
sec_std (190 total):
lead(LAM(s1,r)) = (1+INTR(r)+RISE(s1,r)
+delta(r))
*LAM(s1,r)
-(1-TCOR(r))
*exp(
PRK(s1,r)-PRID(r))
-(1-TITC(s1,r))
*exp(
PRII(r)-PRID(r))
*(phi(s1,r)/2)
*(JNV(s1,r)/CAP(s1,r))
^2
Equation 47
For
r in
regions (10 total):
lead(LAMY(r)) = (1+INTR(r)+RISY(r)
+delta(r))
*LAMY(r)
-(1-TCOR(r))
*exp(
PRKY(r)-PRID(r))
-exp(
PRII(r)-PRID(r))
*(phi_y(r)/2)
*(JNVY(r)/CAPY(r))
^2
Equation 48
For
r in
regions (10 total):
lead(LAMZ(r)) = (1+INTR(r)+RISZ(r)
+delta(r))
*LAMZ(r)
-exp(
PRKZ(r)-PRID(r))
-(1-TITCH(r))
*exp(
PRII(r)-PRID(r))
*(phi_z(r)/2)
*(JNVZ(r)/CAPZ(r))
^2
Equation 49
For
r in
regions,
s1 in
sec_std (190 total):
TOB(s1,r) = (LAM(s1,r)
*exp(
PRID(r)-PRII(r)))
/(1-TITC(s1,r))
Equation 50
For
r in
regions (10 total):
TOBY(r) = LAMY(r)
*exp(
PRID(r)-PRII(r))
Equation 51
For
r in
regions (10 total):
TOBZ(r) = (LAMZ(r)
*exp(
PRID(r)-PRII(r)))
/(1-TITCH(r))
Equation 52
For
r in
regions,
s1 in
sec_std (190 total):
lead(TPA(s1,r)) = TPA(s1,r)
+adapt(r)
*(TOB(s1,r)-TPA(s1,r))
Equation 53
For
r in
regions (10 total):
lead(TPAY(r)) = TPAY(r)
+adapt(r)
*(TOBY(r)-TPAY(r))
Equation 54
For
r in
regions (10 total):
lead(TPAZ(r)) = TPAZ(r)
+adapt(r)
*(TOBZ(r)-TPAZ(r))
Equation 55
For
r in
regions,
s1 in
sec_std (190 total):
PRF(s1,r) = (OUP(s1,r)*exp(PRP(s1,r))
-ENT(s1,r)*exp(PRE(s1,r))
-LAB(s1,r)*exp(WAG(s1,r))
-OIN(s1,r)*exp(POI(s1,r))
-(1-TITC(s1,r))*INV(s1,r)
*exp(PRII(r)))
/exp(PRID(r))
Equation 56
For
r in
regions (10 total):
PRFY(r) = (INVT(r)*exp(PRII(r))
-IITE(r)*exp(PRIE(r))
-IITL(r)*exp(WAGE(r))
-IITO(r)*exp(PROI(r))
-INVY(r)*exp(PRII(r)))
/exp(PRID(r))
Equation 57
For
r in
regions (10 total):
PRFZ(r) = (CONP(r)*exp(PRCT(r))
-CNPE(r)*exp(PRCE(r))
-CNPL(r)*exp(WAGE(r))
-CNPO(r)*exp(PRCO(r))
-(1-TITCH(r))*INVZ(r)
*exp(PRII(r)))
/exp(PRID(r))
Equation 58
For
r in
regions (10 total):
PRFT(r) = sum(s1 in sec_std, PRF(s1,r))
+PRFY(r)
Equation 59
For
r in
regions,
s1 in
sec_std (190 total):
STM(s1,r) = (LAM(s1,r)*CAP(s1,r))
/(1-TITC(s1,r))
Equation 60
For
r in
regions (10 total):
STMT(r) = sum(s1 in sec_std, STM(s1,r))
Equation 61
For
r in
regions (10 total):
INVT(r) = INVY(r)+INVZ(r)
+sum(s1 in sec_std, INV(s1,r))
Equation 62
For
r in
regions (10 total):
PRID(r) = sum(g in goods, prid_weight(g,r)*PRD(g,r))
Equation 63
For
r in
regions (10 total):
PRIX(r) = sum(g4 in goods_o, prix_weight(g4,r)*PRX(g4,r))
Equation 64
For
r in
regions (10 total):
OUTP(r) = sum(g in goods, exp(PRD(g,r))*OUG(g,r))
/exp(PRID(r))
Equation 65
For
r in
regions (10 total):
LOGY(r) = loge(OUTP(r))
Equation 66
For
r in
regions (10 total):
lead(LGYL(r)) = LOGY(r)
Equation 67
For
r in
regions (10 total):
YGRO(r) = LOGY(r)-LGYL(r)
Equation 68
For
r in
regions (10 total):
NGRO(r) = YGRO(r)+INFP(r)
Equation 69
For
r in
regions (10 total):
INCM(r) = TRAN(r)-TAXL(r)
+INTR(r)*BOND(r)
+IRAS(r)/exp(REXN(r))
+PRFZ(r)
+(1-TCOR(r))*PRFT(r)
+((1-TINC(r))
*(exp(WAGE(r))
*(IITL(r)+CNPL(r))
+exp(WAGG(r))*GOVL(r)
+sum(s1 in sec_std, exp(WAG(s1,r))*LAB(s1,r))))
/exp(PRID(r))
Equation 70
For
r in
regions (10 total):
CONP(r) = fore_c(r)
*(timepref(r)+RISW(r))
*WELT(r)
*exp(
PRID(r)-PRCT(r))
+(1-fore_c(r))*mpc(r)
*INCM(r)
*exp(
PRID(r)-PRCT(r))
+SHKC(r)
Equation 71
For
o2 in
owner (10 total):
IRAS(o2) = sum(c1 in currency, INTR(c1)*exp(REXN(c1))
*ASSE(c1,o2))
Equation 72
For
o2 in
owner (10 total):
INAS(o2) = sum(c1 in currency, INTN(c1)*exp(REXN(c1))
*ASSE(c1,o2))
Equation 73
For
r in
regions (10 total):
CNPL(r) = exp(
SHLZ(r)+SHYZ(r))
^(sigma_oH(r)-1)
*delta_oH("l",r)
*CONP(r)
*exp(
PRCT(r)-WAGE(r))
^sigma_oH(r)
Equation 74
For
r in
regions (10 total):
CNPE(r) = exp(
SHEFC(r)+SHYZ(r))
^(sigma_oH(r)-1)
*delta_oH("e",r)
*CONP(r)
*exp(
PRCT(r)-PRCE(r))
^sigma_oH(r)
Equation 75
For
r in
regions (10 total):
CNPO(r) = exp(SHYZ(r))^(sigma_oH(r)-1)
*delta_oH("m",r)
*CONP(r)
*exp(
PRCT(r)-PRCO(r))
^sigma_oH(r)
Equation 76
For
r in
regions (10 total):
CNPK(r) = exp(SHYZ(r))^(sigma_oH(r)-1)
*delta_oH("k",r)
*CONP(r)
*exp(
PRCT(r)-PRKZ(r))
^sigma_oH(r)
Equation 77
For
g1 in
goods_e,
r in
regions (50 total):
CON(g1,r) = delta_eH(g1,r)*CNPE(r)
*exp(
PRCE(r)-PRY(g1,r))
^sigma_eH(r)
Equation 78
For
g3 in
goods_m,
r in
regions (70 total):
CON(g3,r) = delta_mH(g3,r)*CNPO(r)
*exp(
PRCO(r)-PRY(g3,r))
^sigma_mH(r)
Equation 79
For
r in
regions (10 total):
PRCT(r) = cd_oH(r)
*(delta_oH("k",r)*PRKZ(r)
+delta_oH("l",r)*WAGE(r)
+delta_oH("e",r)*PRCE(r)
+delta_oH("m",r)*PRCO(r)
-delta_oH("l",r)*SHLZ(r)
-delta_oH("e",r)*SHEFC(r))
+((1-cd_oH(r))
*loge(
delta_oH("k",r)
*exp(PRKZ(r))^(1-sigma_oH(r))
+delta_oH("l",r)
*exp(
WAGE(r)-SHLZ(r))
^(1-sigma_oH(r))
+delta_oH("e",r)
*exp(
PRCE(r)-SHEFC(r))
^(1-sigma_oH(r))
+delta_oH("m",r)
*exp(PRCO(r))^(1-sigma_oH(r))))
/(1
-sigma_oH(r)*(1-cd_oH(r)))
-SHYZ(r)
Equation 80
For
r in
regions (10 total):
PRCE(r) = cd_eH(r)
*sum(g1 in goods_e, delta_eH(g1,r)*PRY(g1,r))
+((1-cd_eH(r))
*loge(
sum(g1 in goods_e, delta_eH(g1,r)
*exp(PRY(g1,r))^(1-sigma_eH(r)))))
/(1
-sigma_eH(r)*(1-cd_eH(r)))
Equation 81
For
r in
regions (10 total):
PRCO(r) = cd_mH(r)
*sum(g3 in goods_m, delta_mH(g3,r)*PRY(g3,r))
+((1-cd_mH(r))
*loge(
sum(g3 in goods_m, delta_mH(g3,r)
*exp(PRY(g3,r))^(1-sigma_mH(r)))))
/(1
-sigma_mH(r)*(1-cd_mH(r)))
Equation 82
For
r in
regions (10 total):
MONE(r) = PRID(r)+LOGY(r)
+int_elast(r)*INTN(r)
+SHKM(r)
Equation 83
For
r in
regions (10 total):
lead(INTL(r)) = INTN(r)
Equation 84
For
r in
regions (10 total):
lead(INPL(r)) = INPN(r)
Equation 85
For
n2 in
noteuro (9 total):
INPN(n2) = mrule_r(n2)*INPL(n2)
+mrule_ex(n2)
*(EXCH(n2)-EXCL(n2)
-EXCX(n2))
+mrule_ny(n2)
*(INFL(n2)-INFX(n2)
+LOGY(n2)
-LGYL(n2)
-ROGY(n2))
+0.0*mrule_in(n2)
*(EPRC(n2)-INFX(n2))
+mrule_in(n2)
*(INFL(n2)-INFX(n2))
+0.0*mrule_y(n2)
*(EYGR(n2)-ROGY(n2))
+mrule_y(n2)
*(YGRO(n2)-ROGY(n2))
Equation 86
For
r in
regions (10 total):
INTN(r) = INPN(r)+INTX(r)
Equation 87
INPN(e) = mrule_r(e)*INPL(e)
+mrule_ex(e)
*(EXCH(e)-EXCX(e))
+mrule_ny(e)
*(INFL(e)-INFX(e)
+LOGY(e)
-LGYL(e)
-ROGY(e))
+0.0*mrule_in(e)
*(EPRC(e)-INFX(e))
+mrule_in(e)
*(INFL(e)-INFX(e))
+0.0*mrule_y(e)
*(EYGR(e)-ROGY(e))
+mrule_y(e)
*(YGRO(e)-ROGY(e))
Equation 88
For
r in
regions (10 total):
EYGR(r) = lead(LOGY(r))-LOGY(r)
Equation 89
For
r in
regions (10 total):
EPRC(r) = lead(PRCT(r))-PRCT(r)
Equation 90
For
r in
regions (10 total):
INTF(r) = INTN(r)-lead(PRID(r))
+PRID(r)
Equation 91
For
r in
regions (10 total):
INTR(r) = INTF(r)+RISR(r)
Equation 92
For
r in
regions (10 total):
INFL(r) = PRCT(r)-PRCL(r)
Equation 93
For
r in
regions (10 total):
INFP(r) = PRID(r)-PRDL(r)
Equation 94
For
r in
regions (10 total):
lead(PRCL(r)) = PRCT(r)
Equation 95
For
r in
regions (10 total):
lead(PRDL(r)) = PRID(r)
Equation 96
For
r in
regions (10 total):
GDPN(r) = exp(PRCT(r))*CONP(r)
+exp(PRID(r))*GCET(r)
+exp(PRII(r))*INVT(r)
+exp(PRID(r))*TBAL(r)
+sum(g4 in goods_o, exp(PRII(r))*INS(r,g4))
Equation 97
For
r in
regions (10 total):
GDPR(r) = CONP(r)+GCET(r)
+INVT(r)
+TBAL(r)
+sum(g4 in goods_o, INS(r,g4))
Equation 98
For
r in
regions (10 total):
PGDP(r) = loge(GDPN(r))-loge(GDPR(r))
Equation 99
For
r in
regions (10 total):
GNPR(r) = GDPR(r)
+(PBAL(r)+IRAS(r))
/exp(REXN(r))
Equation 100
For
r in
regions (10 total):
CURN(r) = TBAL(r)
+(PBAL(r)+INAS(r))
/exp(REXN(r))
Equation 101
For
r in
regions (10 total):
CURR(r) = TBAU(r)+PBAL(r)
+IRAS(r)
Equation 102
For
r in
regions (10 total):
WELT(r) = BOND(r)
+ASSU(r)/exp(REXN(r))
+(mongdp(r)*exp(MONE(r)))
/exp(PRID(r))
+WELH(r)
+LAMY(r)*CAPY(r)
+LAMZ(r)*CAPZ(r)
+sum(s1 in sec_std, STM(s1,r))
Equation 103
For
r in
regions (10 total):
lead(WELH(r)) = (1+RISW(r)+RISH(r)
+INTR(r)
-labgrow(r))
*WELH(r)
-(TRAN(r)-TAXH(r)
-TAXL(r))
-(exp(WAGE(r))
*(IITL(r)+CNPL(r))
+exp(WAGG(r))*GOVL(r)
+sum(s1 in sec_std, exp(WAG(s1,r))*LAB(s1,r)))
/exp(PRID(r))
Equation 104
For
d in
dest,
g4 in
goods_o (120 total):
TXM(g4,d) = sum(o1 in orig, (TIM(g4,d,o1)*MUL(d,o1)
+TIF(g4,d)*FTA(d,o1))
*exp(PIM(g4,d,o1))
*IMP(g4,d,o1))
/exp(PRID(d))
Equation 105
For
d in
dest (10 total):
TAXM(d) = sum(g4 in goods_o, TXM(g4,d))
Equation 106
For
r in
regions (10 total):
TAXX(r) = sum(g4 in goods_o, TEX(g4,r)*exp(PRS(g4,r))
*EXQ(g4,r))
/exp(PRID(r))
Equation 107
For
r in
regions (10 total):
TAXT(r) = TAXC(r)+TAXH(r)
+TAXL(r)
+TAXM(r)
+TAXX(r)
+TAXE(r)
Equation 108
For
r in
regions (10 total):
TAXH(r) = (TINC(r)
*(exp(WAGE(r))
*(IITL(r)+CNPL(r))
+exp(WAGG(r))*GOVL(r)
+sum(s1 in sec_std, exp(WAG(s1,r))*LAB(s1,r))))
/exp(PRID(r))
-(TITCH(r)*exp(PRII(r))
*INVZ(r))
/exp(PRID(r))
Equation 109
For
r in
regions (10 total):
TRAN(r) = TRANX(r)
-transgdp(r)*OUTP(r)
Equation 110
For
r in
regions (10 total):
WAGG(r) = WAGE(r)
Equation 111
For
r in
regions (10 total):
GOVT(r) = GCET(r)
+GOVL(r)
*exp(
WAGG(r)-PRID(r))
Equation 112
For
r in
regions (10 total):
DEFN(r) = GOVT(r)+TRAN(r)
-TAXT(r)
+INTN(r)*BOND(r)
Equation 113
For
r in
regions (10 total):
DEFI(r) = DEFX(r)
Equation 114
For
r in
regions (10 total):
GCET(r) = sum(g4 in goods_o, GCE(g4,r)*exp(PRY(g4,r)))
/exp(PRID(r))
Equation 115
For
g1 in
goods_e,
r in
regions (50 total):
GCE(g1,r) = (delta_eG(g1,r)
*(delta_oG("e",r)
/(delta_oG("e",r)+delta_oG("m",r)))
*GOVS(r)
*exp(PRID(r)))
/exp(PRY(g1,r))
Equation 116
For
g3 in
goods_m,
r in
regions (70 total):
GCE(g3,r) = (delta_mG(g3,r)
*(delta_oG("m",r)
/(delta_oG("e",r)+delta_oG("m",r)))
*GOVS(r)
*exp(PRID(r)))
/exp(PRY(g3,r))
Equation 117
For
r in
regions (10 total):
PRGT(r) = (delta_oG("e",r)
/(delta_oG("e",r)+delta_oG("m",r)))
*sum(g1 in goods_e, delta_eG(g1,r)*PRY(g1,r))
+(delta_oG("m",r)
/(delta_oG("e",r)+delta_oG("m",r)))
*sum(g3 in goods_m, delta_mG(g3,r)*PRY(g3,r))
Equation 118
For
r in
regions (10 total):
lead(BOND(r)) = DEFI(r)
+BOND(r)*(1-labgrow(r))
-PBAG(r)
Equation 119
For
r in
regions (10 total):
SAVI(r) = INVT(r)
*exp(
PRII(r)-PRID(r))
+CURR(r)/exp(REXN(r))
+DEFI(r)
Equation 120
For
r in
regions (10 total):
SAVN(r) = INVT(r)
*exp(
PRII(r)-PRID(r))
+CURN(r)
+DEFN(r)
Equation 121
For
r in
regions (10 total):
SAVT(r) = INVT(r)
*exp(
PRII(r)-PRID(r))
+CURN(r)
Equation 122
For
r in
regions (10 total):
TBAL(r) = EXQT(r)-IMQT(r)
Equation 123
For
r in
regions (10 total):
TBAU(r) = (EXQT(r)-IMQT(r))
*exp(REXN(r))
Equation 124
For
r in
regions (10 total):
EMIS(r) = 1000
*sum(g in goods, carcoef(g,r)*OUY(g,r))
-1000
*sum(g4 in goods_o, carcoef(g4,r)*EXQ(g4,r))
Equation 125
For
r in
regions (10 total):
EMIT(r) = EMIS(r)-EMIX(r)
Equation 126
For
r in
regions (10 total):
ENER(r) = 1000
*sum(g in goods, btucoef(g,r)*OUY(g,r))
-1000
*sum(g4 in goods_o, btucoef(g4,r)*EXQ(g4,r))
Equation 127
For
r in
regions (10 total):
EMCO(r) = (EMIS(r)*44)/12
Equation 128
EMISZX = sum(A1 in AnnexB, EMIX(A1))
Equation 129
EMISZ = sum(A1 in AnnexB, EMIS(A1))
Equation 130
EMISW = sum(r in regions, EMIS(r))
Equation 131
ENERZ = sum(A1 in AnnexB, ENER(A1))
Equation 132
ENERW = sum(r in regions, ENER(r))
Equation 133
EMCOW = (EMISW*44)/12
Equation 134
EMCOZ = (EMISZ*44)/12
Equation 135
For
n4 in
notUS (9 total):
EXCH(n4) = REXN(n4)-PRID(n4)
+PRID("UU")
Equation 136
For
r in
regions (10 total):
lead(EXCL(r)) = EXCH(r)
Equation 137
For
r in
regions (10 total):
lead(REXC(r)) = REXC(r)-INTR(r)
+INTR("UU")
+EXCR(r)
Equation 138
For
r in
regions (10 total):
REXN(r) = REXC(r)
Equation 139
lead(REXL(c)) = REXB(c)
Equation 140
REXB(c) = REXL(c)
Equation 141
For
d in
dest (10 total):
NEER(d) = (
-sum(o1 in orig, eer_weight(d,o1)
*(EXCH(o1)-EXCH(d))))
Equation 142
For
d in
dest (10 total):
REER(d) = (
-sum(o1 in orig, eer_weight(d,o1)
*(REXN(o1)-REXN(d))))
Equation 143
For
o2 in
owner (10 total):
ABUY(o2) = sum(a in abroad, ainv(o2,a)*CURR(a))
Equation 144
For
c1 in
currency,
o2 in
owner (100 total):
lead(ASSE(c1,o2)) = ASSE(c1,o2)*(1-labgrow(o2))
+(ashr(c1,o2)*ABUY(o2)
+aeye(c1,o2)
*(CURR(o2)-ABUY(o2)))
/exp(REXN(c1))
Equation 145
For
o2 in
owner (10 total):
ASSU(o2) = sum(c1 in currency, exp(REXN(c1))*ASSE(c1,o2))
Equation 146
For
g2 in
goods_g,
r in
regions (80 total):
OUY(g2,r) = ELE(g2,r)
Equation 147
For
g2 in
goods_g,
r in
regions (80 total):
OUG(g2,r) = OUY(g2,r)
Equation 148
For
g2 in
goods_g,
r in
regions (80 total):
ELE(g2,r) = exp(SHY("a01",r))^(sigma_ed(r)-1)
*delta_ed(r,g2)
*OUP("a01",r)
*(exp(PRP("a01",r))
/(exp(PRY(g2,r))
-gwhcoef(g2,r)*credfac(g2,r)
*PCEC(r)
+RATEFEE(g2,r)))
^sigma_ed(r)
Equation 149
For
g2 in
goods_g,
r in
regions (80 total):
PRS(g2,r) = PRD(g2,r)
Equation 150
For
r in
regions (10 total):
PED(r) = cd_ed(r)
*sum(g2 in goods_g, delta_ed(r,g2)
*loge(
exp(
PRY(g2,r)
-gwhcoef(g2,r)*credfac(g2,r)
*PCEC(r)
+RATEFEE(g2,r))))
+((1-cd_ed(r))
*loge(
sum(g2 in goods_g, delta_ed(r,g2)
*(exp(PRY(g2,r))
-gwhcoef(g2,r)*credfac(g2,r)
*PCEC(r)
+RATEFEE(g2,r))
^(1-sigma_ed(r)))))
/(1
-sigma_ed(r)*(1-cd_ed(r)))
-SHY("a01",r)
Equation 151
For
r in
regions (10 total):
PRP("a01",r) = loge(
exp(PED(r))
+(PCEC(r)*GWHC(r))
/OUP("a01",r))
Equation 152
For
r in
regions (10 total):
GWHA(r) = sum(g in goods, gwhcoef(g,r)*OUG(g,r))
Equation 153
For
r in
regions (10 total):
GWHC(r) = sum(g in goods, credfac(g,r)*gwhcoef(g,r)
*OUG(g,r))
Equation 154
For
r in
regions (10 total):
CSHR(r) = GWHC(r)/GWHA(r)
Equation 155
For
r in
regions (10 total):
EDRC(r) = sum(g2 in goods_g, (CO2RATE(g2,r)-CO2TAR(r))
*gwhcoef(g2,r)
*OUG(g2,r))
Equation 156
For
r in
regions (10 total):
GENCO2("a13",r) = (EN("a13","g04",r)*carcoef("g04",r)
*1000
*44)
/12
Equation 157
For
r in
regions (10 total):
GENCO2("a14",r) = (EN("a14","g02",r)*carcoef("g02",r)
*1000
*44)
/12
Equation 158
For
r in
regions (10 total):
GENCO2("a15",r) = ((EN("a15","g05",r)
+(EN("a03","g05",r)*EN("a15","g03",r))
/OUY("g03",r))
*carcoef("g05",r)
*1000
*44)
/12
Equation 159
For
r in
regions (10 total):
GENRATE(r) = (sum(f1 in fgen, GENCO2(f1,r))
*2205
*1000)
/GWHA(r)
Equation 160
For
g1 in
goods_e,
r in
regions,
s1 in
sec_std (950 total):
PRT(s1,g1,r) = loge(
exp(PRS(g1,r))*(1+TAX(g1,r))
+TXGS(s1,g1,r))
Equation 161
For
g1 in
goods_e,
r in
regions,
s1 in
sec_std (950 total):
EN(s1,g1,r) = delta_e(r,s1,g1)*ENT(s1,r)
*exp(
PRE(s1,r)-PRT(s1,g1,r))
^sigma_e(s1,r)
Equation 162
For
g3 in
goods_m,
r in
regions,
s1 in
sec_std (1330 total):
OI(s1,g3,r) = delta_m(r,s1,g3)*OIN(s1,r)
*exp(
POI(s1,r)-PRY(g3,r))
^sigma_m(s1,r)
Equation 163
For
r in
regions,
s1 in
sec_std (190 total):
PRE(s1,r) = cd_e(s1,r)
*sum(g1 in goods_e, delta_e(r,s1,g1)*PRT(s1,g1,r))
+((1-cd_e(s1,r))
*loge(
sum(g1 in goods_e, delta_e(r,s1,g1)
*exp(PRT(s1,g1,r))^(1-sigma_e(s1,r)))))
/(1
-sigma_e(s1,r)*(1-cd_e(s1,r)))
Equation 164
For
r in
regions,
s1 in
sec_std (190 total):
POI(s1,r) = cd_m(s1,r)
*sum(g3 in goods_m, delta_m(r,s1,g3)*PRY(g3,r))
+((1-cd_m(s1,r))
*loge(
sum(g3 in goods_m, delta_m(r,s1,g3)
*exp(PRY(g3,r))^(1-sigma_m(s1,r)))))
/(1
-sigma_m(s1,r)*(1-cd_m(s1,r)))
Equation 165
For
r in
regions (10 total):
TAXC(r) = TCOR(r)
*(sum(s1 in sec_std, PRF(s1,r))
+PRFY(r))
+sum(g in goods, TAX(g,r)*exp(PRD(g,r))
*OUG(g,r))
/exp(PRID(r))
+sum(g4 in goods_o, TAX(g4,r)*exp(PMR(g4,r))
*IMQ(g4,r))
/exp(PRID(r))
-sum(s1 in sec_std, TITC(s1,r)*exp(PRII(r))
*INV(s1,r))
/exp(PRID(r))
-sum(g4 in goods_o, TAX(g4,r)*exp(PRS(g4,r))
*EXQ(g4,r))
/exp(PRID(r))
+RVGS(r)
Equation 166
For
r in
regions (10 total):
TAXL(r) = GOVT(r)+TRAN(r)
-DEFI(r)
+INTR(r)*BOND(r)
-TAXC(r)
-TAXH(r)
-TAXE(r)
-TAXM(r)
-TAXX(r)