và chỉnh sửa các file gọi là file HAR. Các ma trận số liệu tạo ra ở đây được thiết kế thuận tiện cho việc kiểm tra bằng ViewHAR. Chương trình này sẽ tự động tính và trình bày các tổng phụ, ví dụ như tổng GDP, sao cho không cần phải đưa tổng phụ vào các vector tổng hợp trong đoạn trích này.
! Excerpt 39 of TABLO input file: ! ! Summary: matrix of industry costs ! Set COSTCAT # Cost Categories #
(IntDom, IntImp, Margin, ComTax, Lab, Cap, Lnd, ProdTax, OCT);
Coefficient (all,i,IND)(all,co,COSTCAT) COSTMAT(i,co) # Cost Matrix #; Formula
(all,i,IND) COSTMAT(i,"IntDom") = sum{c,COM, V1BAS(c,"dom",i)}; (all,i,IND) COSTMAT(i,"IntImp") = sum{c,COM, V1BAS(c,"imp",i)}; (all,i,IND) COSTMAT(i,"Margin") =
sum{c,COM, sum{s,SRC, sum{m,MAR, V1MAR(c,s,i,m)}}}; (all,i,IND) COSTMAT(i,"ComTax") = sum{c,COM, sum{s,SRC, V1TAX(c,s,i)}}; (all,i,IND) COSTMAT(i,"Lab") = V1LAB_O(i);
(all,i,IND) COSTMAT(i,"Cap") = V1CAP(i); (all,i,IND) COSTMAT(i,"Lnd") = V1LND(i); (all,i,IND) COSTMAT(i,"ProdTax") = V1PTX(i); (all,i,IND) COSTMAT(i,"OCT") = V1OCT(i); Write COSTMAT to file SUMMARY header "CSTM";
Đoạn trích 40 tính cho mỗi điểm đến chính của hàng hóa các trị giá như giá cơ bản, chi phí lưu thông, và các thành phần thuế hàng hóa trong các thương vụ, theo hàng hóa và theo nguồn cung cấp.
! Excerpt 40 of TABLO input file: ! ! Summary: basic, margins and taxes ! Set
SALECAT2 # SALE Categories # (Interm, Invest, HouseH, Export, GovGE, Stocks); FLOWTYPE # Type of flow # (Basic, Margin, TAX);
Coefficient
(all,c,COM)(all,f,FLOWTYPE)(all,s,SRC)(all,sa,SALECAT2) SALEMAT2(c,f,s,sa) # Basic, margin and tax components of purchasers' values #;
Formula
(all,c,COM)(all,f,FLOWTYPE)(all,s,SRC)(all,sa,SALECAT2) SALEMAT2(c,f,s,sa)=0; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Basic",s,"Interm") = sum{i,IND,V1BAS(c,s,i)}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Tax" ,s,"Interm") = sum{i,IND,V1TAX(c,s,i)}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Margin",s,"Interm") =
sum{i,IND, sum{m,MAR, V1MAR(c,s,i,m)}}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Basic",s,"Invest") = sum{i,IND,V2BAS(c,s,i)}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Tax" ,s,"Invest") = sum{i,IND,V2TAX(c,s,i)}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Margin",s,"Invest") =
sum{i,IND, sum{m,MAR, V2MAR(c,s,i,m)}}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Basic",s,"HouseH") = V3BAS(c,s);
(all,c,COM)(all,s,SRC) SALEMAT2(c,"Tax" ,s,"HouseH") = V3TAX(c,s);
(all,c,COM)(all,s,SRC) SALEMAT2(c,"Margin",s,"HouseH")= sum{m,MAR,V3MAR(c,s,m)}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Basic",s,"GovGE") = V5BAS(c,s);
(all,c,COM)(all,s,SRC) SALEMAT2(c,"Tax" ,s,"GovGE") = V5TAX(c,s);
(all,c,COM)(all,s,SRC) SALEMAT2(c,"Margin",s,"GovGE")= sum{m,MAR,V5MAR(c,s,m)}; (all,c,COM) SALEMAT2(c,"Basic","dom","Export") = V4BAS(c);
(all,c,COM) SALEMAT2(c,"Tax" ,"dom","Export") = V4TAX(c);
(all,c,COM) SALEMAT2(c,"Margin","dom","Export")= sum{m,MAR,V4MAR(c,m)}; (all,c,COM)(all,s,SRC) SALEMAT2(c,"Basic",s,"Stocks") = V6BAS(c,s);
4.35. Tỷ phần xuất khẩu và các hệ số co giãn của đường cung ngắn hạn
Đoạn trích 41 tính và lưu thêm 2 biến nữa nhằm giúp giải thích kết quả. Tỷ phần nhập khẩu IMPSHR của một mặt hàng càng lớn thì ngành sản xuất mặt hàng đó ở nội địa càng dễ bị hàng nhập khẩu cạnh tranh.
Kết quả mô phỏng trong ngắn hạn thường bị ảnh hưởng bởi đường cung ít co giãn trong các ngành thâm dụng vốn. Do đó, chúng ta tính và lưu trữ hệ số co giãn của cung ngắn hạn SUPPLYELAST để giúp ta nhận diện các ngành này. Công thức tính SUPPLYEAST được suy ra trong phụ lục J. Các tỷ phần của các yếu tố sản xuất, có liên quan mật thiết đến hệ số co giãn cung, có thể được thấy trong ma trận FACTOR (sử dụng tính năng tỉ phần theo hàng (row shares) của chương trình ViewHAR trong GEMPACK).
! Excerpt 41 of TABLO input file: !
! Import shares and short-run supply elasticities !
Coefficient (all,c,COM) IMPSHR(c) # Share of imports in local market #; Formula (all,c,COM) IMPSHR(c) = V0IMP(c)/[TINY+DOMSALES(c)+V0IMP(c)]; Write IMPSHR to file SUMMARY header "MSHR";
Coefficient (all,i,IND) SUPPLYELAST(i) # Short-run supply elasticity #; Zerodivide default 999;
Zerodivide (nonzero_by_zero) default 999; Formula (all,i,IND) SUPPLYELAST(i) =
SIGMA1PRIM(i)*V1LAB_O(i)*V1TOT(i)/[V1PRIM(i)*{V1CAP(i)+V1LND(i)}]; Zerodivide off;
Zerodivide (nonzero_by_zero) off;
Write SUPPLYELAST to file SUMMARY header "SRSE"; Set FAC # Primary Factors # (Lab, Cap, Lnd);
Coefficient (all,i,IND)(all,f,FAC) FACTOR(i,f) # Primary Factor Costs #; Formula
(all,i,IND) FACTOR(i,"Lab") = V1LAB_O(i); (all,i,IND) FACTOR(i,"Cap") = V1CAP(i); (all,i,IND) FACTOR(i,"Lnd") = V1LND(i); Write FACTOR to file SUMMARY header "FACT";
4.36. Lưu trữ số liệu cho các tính toán khác
Việc trích số liệu từ mô hình cho các tính toán khác thường rất bổ ích. Ví dụ, khi trình bày kết quả mô phỏng, ta có thể muốn kết hợp số liệu nguyên thể với các kết quả thay đổi. Một ứng dụng quan trọng khác của số liệu này là chúng giúp gộp các ngành sản xuất trong cơ sở dữ liệu của mô hình (aggregating the model database). Khôn ngoan nhất là nên chuẩn bị cơ sở dữ liệu ban đầu của mô hình ở mức chi tiết (disaggregation) cao nhất mà các bảng Input-Output cho phép. Cơ sở dữ liệu lớn này có thể được gộp lại thành ít ngành sản xuất hơn khi cần. Một chương trình chuyên dùng, AggHAR, có thể giúp việc gộp ngành này trở nên dễ dàng hơn.
Đối với các số liệu dòng (flows data), mỗi thành phần trong bộ số liệu gộp chỉ là tổng của các ngành tương ứng trong bộ số liệu gốc. Tuy nhiên, không thể đơn giản cộng các tham số. Thay vào đó, các tham số của ngành gộp thường được tính như trung bình có trọng số của các tham số gốc. Mục tiêu của Đoạn trích 42 là lưu trữ các trọng số này vào một file. Ví dụ, tham số SIGMA2 (hệ số co giãn Armington giữa hàng hóa trong nước và nhập khẩu dùng cho đầu tư) có thể được gộp bằng các sử dụng vec-tơ trọng số
V2PUR_SI. Thông tin về trọng số nào cần được sử dụng trong việc tính gộp từng hệ số co giãn được truyển đạt cho chương trình AggHAR bởi véc-tơ chuỗi WAGGSET. Ví dụ, yếu tố đầu tiên của WAGGSET, là ―SCET@@@@1TOT‖, chỉ ra rằng các hệ số co giãn MAKE CET chứa tại các mục SCET trong file ORANI-G Input cần phải được gộp bằng các giá trị sản lượng của các ngành, được lưu trữ trong mục 1TOT trong file Summary24
.
! Excerpt 42 of TABLO input file: !
! Weight vectors for use in aggregation and other calculations !
Coefficient (all,c,COM) V1PUR_SI(c) # Dom+imp intermediate purch. value #; (all,c,COM) V2PUR_SI(c) # Dom+imp investment purch. value #; (all,c,COM) V5PUR_S(c) # Dom+imp government purch. value #; (all,c,COM) V6BAS_S(c) # Dom+imp inventories #;
Formula (all,c,COM) V1PUR_SI(c) = sum{i,IND, V1PUR_S(c,i)}; (all,c,COM) V2PUR_SI(c) = sum{i,IND, V2PUR_S(c,i)}; (all,c,COM) V5PUR_S(c) = sum{s,SRC, V5PUR(c,s)}; (all,c,COM) V6BAS_S(c) = sum{s,SRC, V6BAS(c,s)};
Write ! weight to aggregate... ! V1TOT to file SUMMARY header "1TOT";!MAKE CET elasticities at SCET ! V4PUR to file SUMMARY header "4PUR";!export elasticities at header P018! V1LAB_O to file SUMMARY header "LAB1";!CES inter-skill elasticities at P018! V1PRIM to file SUMMARY header "VLAD";!CES primary-factor elasts at P018! V1PUR_SI to file SUMMARY header "1PUR";!Armington elasticities at 1ARM ! V2PUR_SI to file SUMMARY header "2PUR";!Armington elasticities at 2ARM ! V3PUR_S to file SUMMARY header "3PUR";!Armington elasticities at 2ARM ! Set WAGGSET # Instructions to AGGHAR for weighted aggregation of parameters # ( SCET@@@@1TOT, P018@@@@4PUR, ITEX@@@@4PUR, XPEL@@@@3PUR, P028@@@@VLAD, SLAB@@@@LAB1,
xx1ARM@@1PUR, ! leading "xx" is ignored by AGGHAR ! xx2ARM@@2PUR,
xx3ARM@@3PUR);
Write (set) WAGGSET to file SUMMARY header "WAGG"; ! Other useful values !
Coefficient (all,c,COM) TARFRATE(c) # Ad valorem tariff rate #; Formula (all,c,COM) TARFRATE(c) = V0TAR(c)/[TINY+V0CIF(c)]; Write
TARFRATE to file SUMMARY header "TRAT"; V0TAR to file SUMMARY header "0TAR"; V0CIF to file SUMMARY header "0CIF"; V0IMP to file SUMMARY header "0IMP";
24
Tập hợp WAGGSET được sử dụng để khắc phục một điểm yếu của GEMPACK: cách duy nhất để viết một danh sách gồm các chuỗi ký tự (như các đề mục) vào một file là viết chúng dưới dạng các phần tử của tập hợp. Hơn nữa, các phần tử của tập hợp không thể bắt đầu bằng một chữ số.
MAKE to file SUMMARY header "MAKE"; V1CAP to file SUMMARY header "1CAP"; V6BAS_S to file SUMMARY header "6BSS"; V2TOT to file SUMMARY header "2TOT"; V5PUR_S to file SUMMARY header "5PUR";
Phần còn lại của Đoạn trích chỉ là để lưu trữ các giá trị hữu dụng khác.