hark-oligop.gms : Harker의 SPE 모델 - 과점 버전

설명

공간 가격 균형 모델은 다양한 차이점을 보여주기 위해 사용됩니다.
시장 행동을 모델링하는 방법. 이 변형에서는 다음을 살펴봅니다.
과점을 가정할 때 발생하는 Cournot-Nash 모델,
즉, 각 지역의 생산은 단일 회사에 의해 통제됩니다.
지역 기업이 독립적인 곳.

Harker, PT, 공간 경쟁의 대안 모델. 운영
연구 34, 3(1986), 410-425.

기고자: Steven Dirkse, 2011년 6월

소형 모델 유형 :EQUIL


카테고리 : 슬롯 사이트 추천 EMP 라이브러리


메인 파일 : hark-oligop.gms 포함: hark-data.inc[html]

Harker의 $title SPE 모델 - 과점 버전(HARK-OLIGOP,SEQ=65)

$onText

공간적 가격 균형 모델은 다양한 것을 보여주기 위해 사용됩니다.
시장 행동을 모델링하는 방법. 이 변형에서는 다음을 살펴봅니다.
과점을 가정할 때 발생하는 Cournot-Nash 모델,
즉, 각 지역의 생산은 단일 회사에 의해 통제됩니다.
지역 기업이 독립적인 곳.

Harker, PT, 공간 경쟁의 대안 모델. 운영
연구 34, 3(1986), 410-425.

기고자: Steven Dirkse, 2011년 6월
$offText

$eolCom //

$include hark-data.inc

긍정적인 변수
  t(n,n,Q) '회사의 운송량 Qs 상품'
  dl(L,Q) 'Qs 모델에서 L 지역의 총 수요'
  dlq(L,Q) 'Qs 모델에서 L 지역의 기업 Qs 상품에 대한 수요'
  s(Q) 공급량
  ;
변수
  ttVar(i,j) '호의 총 흐름'
  cVar(i,j) '호상의 단위 운송 비용'
  dlqVar(L,Q) '기업 QQ 모델에서 L 지역의 기업 QQ 상품에 대한 수요'
  z(Q);
t.up(arc(i,j),Q)=100;

방정식
  flowBal(n,Q) Qs 모델에서 좋은 Qs에 대한 흐름 균형
  sBal(Q) 공급 잔고
  in(L,Q) 유입 잔액
  out(Q) 유출잔액

  objDefD(Q) '운송 비용은 다양할 수 있음'
  dlBalD(L,Q) 'dlqBar는 다양하게 허용됨'
  ttVarDef(i,j)
  cVarDef(i,j)
  dlqVarDef(L,Q)
  ;

objDefD(Q).. z(Q) =e=
    합계 L, (rho(L) - eta(L)*dl(L,Q)) * dlq(L,Q) 
   - (알파(Q)*s(Q) + 베타(Q)*sqr(s(Q)))
   -sumarc(i,j), cVar(i,j) * t(i,j,Q);

flowBal(NL(n),Q).. sum(arc(n,j), t(n,j,Q)) =e= sum(arc(i,n), t(i,n,Q));

sBal(Q).. s(Q) =e= sumL, dlq(L,Q);

dlBalD(L,Q).. dl(L,Q) =E= dlq(L,Q) + sumQQ$[동일하지 않음(Q,QQ)], dlqVar(L,QQ);

in(L,Q)$[not sameas(L,Q)].. dlq(L,Q) =e= sumarc(i,L), t(i,L,Q);

out(Q)..s(Q) =E= dlq(Q,Q) + sumarc(Q,j), t(Q,j,Q);

ttVarDef(arc(i,j)).. ttVar(i,j) =E= sumQ, t(i,j,Q);

cVarDef(arc(i,j)).. cVar(i,j) =E= kappa(i,j) + nu(i,j)*sqr(ttVar(i,j));

dlqVarDef(L,Q).. dlqVar(L,Q) =E= dlq(L,Q);

모델 내쉬 / objDefD, flowBal, sBal, dlBalD, in, out,
             ttVarDef, cVarDef, dlqVarDef /;

파일 myinfo / '%emp.info%' /;
put myinfo '* Harker 모델의 Cournot-Nash 평형 버전';
넣어 / '평형'
루프 Q,
  넣다 / '최대' z(Q)/' ';
  루프엘,
    dl(L,Q) dlq(L,Q)를 넣어라;
  ;
  s(Q) /' '를 넣습니다.
  루프호(i,j),
    t(i,j,Q)를 넣습니다.
  ;
  put /' ' objDefD(Q);
  루프NL(n),
    flowBal(n,Q)를 넣어라;
  ;
  놓다 /' ';
  루프L,
    dlBalD(L,Q)를 넣어라;
  ;
  놓다 /' ';
  루프L$[동일하지 않음(L,Q)],
    (L,Q)를 넣으세요;
  ;
  / ' ' 출력(Q) sBal(Q);
;
넣어 / 'vi';
넣어 / 'ttVarDef ttVar';
넣어 / 'cVarDef cVar';
넣어 / 'dlqVarDef dlqVar';
닫다;

emp를 사용하여 Nash를 해결합니다.

422페이지의 매개변수 tab6 표 VI Harker 논문;

tab6("totProfit","oligop") = sumQ, z.l(Q);
tab6("totSupply","oligop") = sumQ, s.l(Q);
tab6("theta1","oligop") = rho('one') - eta('one')*dl.l('one','one');
tab6("theta2","oligop") = rho('two') - eta('two')*dl.l('two','two');
tab6("theta3","oligop") = rho('세') - eta('세')*dl.l('세','세');

디스플레이 탭6;