설명

소형 모델 유형 :MPSGE

카테고리 : 무료 슬롯 게임 테스트 라이브러리

메인 파일 : gft.gms

$title 'CTRLC 테스트에 사용된 MPSGE 모델' (GFT,SEQ=595)

$설정되지 않은 경우 ds $set ds g20_001
$include gtap8data.inc

매개변수 esub(g) 최상위 탄력성 indemand /C 1/;

$onText
$model:gtap8

$섹터:
        y(g,r)$vom(g,r) ! 공급
        m(i,r)$vim(i,r) ! 수입품
        yt(j)$vtw(j) ! 교통 서비스
        ft(f,r)$(sf(f) 및 evom(f,r)) ! 특정 요인 변환

$상품:
        p(g,r)$vom(g,r) ! 국내생산가격
        pm(j,r)$vim(j,r) ! 수입가격
        pt(j)$vtw(j) ! 교통 서비스
        pf(f,r)$evom(f,r) ! 주요 요소 임대료
        ps(f,g,r)$(sf(f) 및 vfm(f,g,r)) ! 부문별 주요 요인

$소비자:
        라(r) ! 대표 에이전트

$prod:y(g,r)$vom(g,r) s:esub(g) i.tl:esubd(i) va:esubva(g)
        o:p(g,r) q:vom(g,r) a:ra(r) t:rto(g,r)
        i:p(i,r) q:vdfm(i,g,r) p:(1+rtfd0(i,g,r)) i.tl: a:ra(r) t:rtfd(i,g,r)
        i:pm(i,r) q:vifm(i,g,r) p:(1+rtfi0(i,g,r)) i.tl: a:ra(r) t:rtfi(i,g,r)
        i:ps(sf,g,r) q:vfm(sf,g,r) p:(1+rtf0(sf,g,r)) va: a:ra(r) t:rtf(sf,g,r)
        i:pf(mf,r) q:vfm(mf,g,r) p:(1+rtf0(mf,g,r)) va: a:ra(r) t:rtf(mf,g,r)

$prod:yt(j)$vtw(j) s:1
        o:pt(j) q:vtw(j)
        i:p(j,r) q:vst(j,r)

$prod:m(i,r)$vim(i,r) s:esubm(i) s.tl:0
        o:pm(i,r) q:vim(i,r)
        i:p(i,s) q:vxmd(i,s,r) p:pvxmd(i,s,r) s.tl: a:ra(s) t:(-rtxs(i,s,r)) a:ra(r) t:(rtms(i,s,r)*(1-rtxs(i,s,r)))
        i:pt(j)#(s) q:vtwr(j,i,s,r) p:pvtwr(i,s,r) s.tl: a:ra(r) t:rtms(i,s,r)

$prod:ft(sf,r)$evom(sf,r) t:etrae(sf)
        o:ps(sf,j,r) q:vfm(sf,j,r)
        i:pf(sf,r) q:evom(sf,r)

$수요:ra(r)
        d:p("c",r) q:vom("c",r)
        e:p("c",rnum) q:vb(r)
        e:p("g",r) q:(-vom("g",r))
        e:p("i",r) q:(-vom("i",r))
        e:pf(f,r) q:evom(f,r)

$offText
$sysInclude mpsgeset gtap8

gtap8.workspace = 128;
gtap8.iterlim = 0;
$include GTAP8.GEN
*mcp를 사용하여 gtap8을 해결합니다.

* GAS의 탄력성은 34이므로 계산이 어렵습니다.

esubm(i) = min(12,esubm(i));
esubd(i) = esubm(i)/2;

rtxs(i,s,r) = 0;
rtms(i,s,r) = 0;
gtap8.iterlim = 10000;
$include GTAP8.GEN
mcp를 사용하여 gtap8을 해결합니다.