Set NONLAND # Natres, ie. ENDWS tha

Set NONLAND # Natres, ie. ENDWS that is not land # (natres);
Subset NONLAND is subset of ENDWS_COMM;

Set PDR # Paddy rice # (pdr);
Subset PDR is subset of PROD_COMM;

Set NONPDR # Non paddy sectors that use land # (wht,gro,v_f,otc,lvf);
Subset NONPDR is subset of PROD_COMM;

Set NONPDRAGR # Non pdr and non ag # (opr,pcr,prf,crp,mnfcs,svces,cgds);
Subset NONPDRAGR is subset of PROD_COMM;

Set AGR # pdr and other land using sectors # (pdr,wht,gro,v_f,otc,lvf);
Subset AGR is subset of PROD_COMM;
!-----------------------------------------------------------------------------!

! Introduce region-specific ETRAE(i,r)!
Coefficient (all,i,ENDW_COMM)(all,r,REG) ETRAE(i,r)
# elst.of transformation for sluggish primary factor endowments #;

Read ETRAE from file GTAPPARM header "ETRR";
!Equation ENDW_SUPPLY
# eq'n distributes the sluggish endowments across sectors (HT 51) # (all,i,ENDWS_COMM)(all,j,PROD_COMM)(all,r,REG)
qoes(i,j,r) = qo(i,r) - endwslack(i,r) + ETRAE(i,r)*[pm(i,r) - pmes(i,j,r)];!

Variable qo1;
Equation ENDW_SUPPLY1
# eq'n distributes the sluggish endowments across sectors (HT 51) #
(all,i,LAND)(all,j,PDR)(all,r,VIET) qoes(i,j,r) = qo1;

Coefficient (all,i,LAND)(all,j,NONPDR)(all,r,VIET) REVSHR2(i,j,r);
Formula (all,i,LAND)(all,j,NONPDR)(all,r,VIET) REVSHR2(i,j,r) = VFM(i,j,r) / sum(k,NONPDR, VFM(i,k,r));

Kết quả (Việt) 1:

Thiết lập NONLAND # Natres, tức là. ENDWS không phải đất # (natres);Tập NONLAND là tập hợp con của ENDWS_COMM;Set PDR # thóc gạo # (Lào);Tập con PDR là tập con của PROD_COMM;Thiết lập NONPDR # phòng không paddy lĩnh vực sử dụng đất # (wht, gro, v_f, otc, lvf);Tập NONPDR là tập hợp con của PROD_COMM;Thiết lập NONPDRAGR # pounder phòng không và phòng không ag # (opr, pcr, prf, crp, mnfcs, svces, cgds);Tập NONPDRAGR là tập hợp con của PROD_COMM;Thiết lập AGR # pounder và đất khác sử dụng các lĩnh vực # (pdr, wht, gro, v_f, otc, lvf);Tập con AGR là tập con của PROD_COMM;!-----------------------------------------------------------------------------!! Giới thiệu dành riêng cho vùng ETRAE(i,r)!Hệ số (all,i,ENDW_COMM)(all,r,REG) ETRAE(i,r)# elst.of chuyển đổi cho chậm chạp yếu tố chính các nguồn #;Đọc ETRAE từ tiêu đề GTAPPARM tập tin "ETRR";! Phương trình ENDW_SUPPLY# eq'n phân phối các nguồn chậm chạp trên lĩnh vực (HT 51) # (all,i,ENDWS_COMM)(all,j,PROD_COMM)(all,r,REG)qoes(i,j,r) = qo(i,r) - endwslack(i,r) + ETRAE(i,r)*[pm(i,r) - pmes(i,j,r)];!Biến qo1;Phương trình ENDW_SUPPLY1# eq'n phân phối các nguồn chậm chạp trên lĩnh vực (HT 51) #(Tất cả, tôi, đất) (Tất cả, j, PDR) (Tất cả, r, Việt) qoes(i,j,r) = qo1;Hệ số (all,i,LAND)(all,j,NONPDR)(all,r,VIET) REVSHR2(i,j,r);Công thức (all,i,LAND)(all,j,NONPDR)(all,r,VIET) REVSHR2(i,j,r) = VFM(i,j,r) / tổng hợp (k, NONPDR, VFM(i,k,r));

Kết quả (Việt) 2:

Đặt NONLAND # Natres, tức là. ENDWS mà không phải là đất # (natres);
tập hợp con NONLAND là tập hợp con của ENDWS_COMM;

Set PDR # Lúa # (PDR);
tập hợp con PDR là tập hợp con của PROD_COMM;

ngành lúa Set NONPDR # không sử dụng đất # (wht, Gro, v_f , OTC, lvf);
tập hợp con NONPDR là tập hợp con của PROD_COMM;

Set NONPDRAGR # Non PDR và không ag # (OPR, PCR, prf, crp, mnfcs, svces, cgds);
tập hợp con NONPDRAGR là tập hợp con của PROD_COMM;

Set AGR # Lào và đất khác sử dụng thành phần # (PDR, wht, Gro, v_f, OTC, lvf);
tập hợp con AGR là tập hợp con của PROD_COMM;
! ----------------------- -------------------------------------------------- ----!

! Giới thiệu khu vực cụ thể ETRAE (i, r)!
Hệ số (tất cả, i, ENDW_COMM) (tất cả, r, REG) ETRAE (i, r)
# elst.of chuyển cho quỹ hiến tặng yếu tố chính chậm chạp #;

đọc ETRAE từ đầu tập tin GTAPPARM "ETRR";
! Equation ENDW_SUPPLY
# eq'n phân phối các nguồn lực chậm chạp giữa các ngành (HT 51) # (tất cả, i, ENDWS_COMM) (tất cả, j, PROD_COMM) (tất cả, r, REG)
qoes (i, j, r ) = qo (i, r) - endwslack (i, r) + ETRAE (i, r) * [pm (i, r) - PMES (i, j, r)] ;!

qo1 biến;
Equation ENDW_SUPPLY1
# eq ' n phân phối các nguồn lực chậm chạp giữa các ngành (HT 51) #
(tất cả, i, LAND) (tất cả, j, PDR) (tất cả, r, VIỆT) qoes (i, j, r) = qo1;

Hệ số (tất cả, i, LAND) (tất cả, j, NONPDR) (tất cả, r, VIỆT) REVSHR2 (i, j, r);
Công thức (tất cả, i, LAND) (tất cả, j, NONPDR) (tất cả, r, VIỆT) REVSHR2 (i , j, r) = VFM (i, j, r) / sum (k, NONPDR, VFM (i, k, r));