설명

소규모 활동 분석 모델의 세금 왜곡.

소형 유형 모델 :MPSGE mcp

카테고리 : 크레이지 슬롯 모델 라이브러리

메인 파일 : scarfmge.gms

$title 소규모 활동 분석 모델의 세금 왜곡(SCARFMGE,SEQ=152)

$onText
소규모 활동 분석 모델의 세금 왜곡.

Scarf, H 및 Hansen, T, 경제 균형 계산.
예일 대학 출판부, 1973.

여기서 우리는 과세의 효과를 고려합니다:

키워드: 혼합상보성 문제, 일반균형모형, 조세정책
          활동 분석
$offText

세트
   SC '세율 시나리오' / ZERO, LOW, MEDIUM, HIGH /
   C '상품' / UNSCLAB, SKILLAB, CAPEOP, NONDURBL, DURABLE, CABOP /
   K(C) '대문자 입력 식별자' / CABOP /
   H '소비자' / AGENT1*AGENT5 /
   S '섹터' / D1, D2, N1, N2, N3, CD, C1, C2/;

별칭(C,CC);

매개변수 T(SC) '세율' / LOW 0.05, MEDIUM 0.20, HIGH 0.50 /;

표 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 /;

Scalar 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) '수요 탄력성' / AGENT1 1.2, AGENT2 1.6, AGENT3 0.8
                                             AGENT4 0.5, AGENT5 0.6 /;

테이블 DATA(*,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
$offText

* 헤더 읽기:
$sysmpsgeset SCARF 포함

* 보고서 표:
매개변수 EV(H,SC) 'HICKS-등가 변동(%)';

P.fx("UNSCLAB") = 1;

루프(SC,
* 자본세율 설정:
   TK = T(SC);

* 모델 생성 및 해결:
$ SCARF.GEN 포함

   PT.1 = 1;

   mcp를 사용하여 SCARF를 해결합니다.

   EV(H,SC) = 복지.1(H);
);

* 완료 후 실제 등가 변형으로 변환:
EV(H,SC) = 100*(EV(H,SC)/EV(H,"ZERO") - 1);
EV 표시;