mpsge11.gms : MPSGE 테스트 - 다양한 고정 수입 수준

설명

보통 MPSGE 모델에서는 하나의 숫자만 고정됩니다.
또는 사용자가 선택한 소득 수준 또는 사용자가 선택한 소득 수준
MPSGE.  그러나 어떤 경우에는 사용자가 여러 소득 수준을 수정합니다.  는
MPSGE 기능 평가자는 이를 확인하고 채권을 사용해야 합니다.
일반적인 계산 수준 대신

이를 테스트하기 위해 gamslib의 Scarpmge 모델을 적용합니다.

기여자: Tom Rutherford, Steve Dirkse

소형 모델 유형 :MPSGE

카테고리 : 슬롯 커뮤니티 테스트 라이브러리

메인 파일 : mpsge11.gms

$title MPSGE 테스트 - 다양한 고정 수입 수준(MPSGE11,SEQ=481)

$onText
일반적으로 MPSGE 모델에서는 하나의 숫자만 고정됩니다.
또는 사용자가 선택한 소득 수준 또는 사용자가 선택한 소득 수준
MPSGE.  그러나 어떤 경우에는 사용자가 여러 소득 수준을 수정합니다.  는
MPSGE 기능 평가자는 이를 확인하고 채권을 사용해야 합니다.
일반적인 계산 수준 대신

이를 테스트하기 위해 gamslib의 Scarpmge 모델을 적용합니다.

기여자: Tom Rutherford, Steve Dirkse

$offText

SC 세율 시나리오 설정 /제로, 낮음, 중간, 높음/;

매개변수 T(SC) 세율 / 낮음 0.05, 중간 0.20, 높음 0.50/;

세트
       C 상품

               /UNSLAB, SKILLAB, CAPEOP, NONDURBL, 내구성, CAPBOP/

       K(C) 대문자 입력 식별자 /CAPBOP/,

       H 소비자 /에이전트1,에이전트2,에이전트3,에이전트4,에이전트5/

       S 섹터 /D1, D2, N1, N2, N3, CD, C1, C2/;

별칭(C,CC);

표 E(C,H) 원자재 기부금

            에이전트1 에이전트2 에이전트3 에이전트4 에이전트5
캡밥 3 0.1 2 1 6
스킬랩 5 0.1 6 0.1 0.1
언스크랩 0.1 7 0.1 8 0.5
내구성 1 2 1.5 1 2

매개변수 TR(H) 세금 분배 규칙 /AGENT1 1/;

현재 시나리오의 자본에 대한 스칼라 TK 세금;

표 D(C,H) 기준 요구사항

            에이전트1 에이전트2 에이전트3 에이전트4 에이전트5
케이프오프 4 0.4 2 5 3
스킬랩 0.2 0.5
언스크랩 0.6 0.2 0.2
논더블 2 4 2 5 4
내구성 3.2 1 1.5 4.5 2

매개변수 ESUB(H) 수요 탄력성

/ 에이전트1 1.2,
       에이전트2 1.6,
       에이전트3 0.8,
       에이전트4 0.5,
       에이전트5 0.6 /;

표 데이터(*,C,S) 활동 분석 매트릭스

                        D1 D2 N1 N2 N3

출력.논더블 6.0 8.0 7.0
출력 내구성 4.0 3.5
생산량.CAPEOP 4.0 4.0 1.6 1.6 1.6
입력 .CAPBOP 5.3 5.0 2.0 2.0 2.0
입력 .SKILLAB 2.0 1.0 2.0 4.0 1.0
입력 .UNSCLAB 1.0 6.0 3.0 1.0 8.0

             + CD C1 C2

출력.CAPEOP 0.9 7.0 8.0
입력 .CAPBOP 1.0 4.0 5.0
입력 .SKILLAB 3.0 2.0
입력 .UNSCLAB 1.0 8.0;

$onText

$모델: 스카프

$섹터:
       예(들)! 활동 수준

$상품:
       피(씨) ! 시장 가격
       PT$TK! 조세수입 일괄재분배 물가지수.

$소비자:
       ㅎ(ㅎ) ! 가계소득
       GOVT$TK! 정부 세입(세금이 부과되는 경우에만 포함).

$보고서:
       V:복지(H) W:HH(H)

$PROD:Y(S)
       O:P(C) Q:DATA("출력",C,S)
       I:P(C) Q:DATA("입력" ,C,S) A:GOVT$TK T:TK$K(C)

$수요:HH(H) s:ESUB(H)
       D:P(C) Q:D(C,H)
       E:P(C) Q:E(C,H)
       E:PT$TK Q:TR(H)

$DEMAND:GOVT$TK
       D:PT

$보고서:
       V:X(c,h) D:P(C) 수요:HH(h)

$offText

* 헤더 읽기:
$sysmpsgeset SCARF 포함

TK = 1;

* 소득 수준을 임의의 값으로 수정:
HH.FX(h) = sum(c, E(c,h));

* 고정소득 완화 문제 해결:
$include SCARF.GEN
MCP를 사용하여 스카프를 해결하세요.

* 올바른 슬롯 커뮤니티/MPSGE 함수 평가기 확인
매개변수 err(h,*) MPSGE가 반환한 솔루션에 오류가 있습니다.
스칼라 dt;
err(h,"HH.L") = HH.L(h);
err(h,"P*X") = sum(c, P.L(c)*X.L(c,h));
err(h,"차이") = HH.L(h) - sum(c, P.L(c)*X.L(c,h));
dt = sumh, abs(err(h,"차이"));
오류, dt 표시;
* 너무 욕심이 많은 경우에는 항상 정밀도를 낮추도록 요청할 수 있습니다.
abort$[dt > 1e-8] 'MPSGE에서 반환된 솔루션에 오류가 있습니다.', err, dt;