설명

공간 가격 균형 모델은 다양한 차이점을 보여주기 위해 사용됩니다.
시장 행동을 모델링하는 방법.  이번 버전에서는 EMP를 사용합니다.
경쟁적이고 독점적인 시장을 모델링합니다.

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

GAMSLIB의 Harker 모델.

기고자: Steven Dirkse, 2011년 6월

소형 모델 유형 :EQUIL

카테고리 : 슬롯 게임 EMP 라이브러리

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

Harker의 $title SPE 모델 - 독점 및 경쟁 버전(HARK-MONOP,SEQ=64)

$onText

공간적 가격 균형 모델은 다양한 것을 보여주기 위해 사용됩니다.
시장 행동을 모델링하는 방법.  이번 버전에서는 EMP를 사용합니다.
경쟁적이고 독점적인 시장을 모델링합니다.

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

GAMSLIB의 Harker 모델.

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

$eolCom //

$include hark-data.inc

긍정적인 변수
  t(n,n) 운송량
  d(n) 수요량
  s(n) 공급량
  ;
변수
  객체 객관적인 값
  가격(n) 수요 가격
  단위당 운송비 tc(n,n)
  ;
방정식 objDef, flowBal(n), PriceDef(n), tcDef(n,n);

objDef.. obj =e= sumL, 가격(L) * d(L)
                 - 합계L, 알파(L) * s(L) + 베타(L)*sqr(s(L))
                 - 합계arc(i,j), tc(i,j)*t(i,j);

flowBal(n).. s(n)$L(n) + sumi$arc(i,n), t(i,n) =g=
              d(n)$L(n) + 합계j$arc(n,j), t(n,j);

가격Def(L).. 가격(L) =e= rho(L) - eta(L)*d(L);

tcDef(arc(i,j)).. tc(i,j) =e= kappa(i,j) + nu(i,j)*sqr(t(i,j));

모델 hark / objDef, flowBal, PriceDef, tcDef /;

더미 '종이와 같은 주문 보고서' 설정 / cspe2, cspeE, monop2, monop1, monop1t /;
매개변수 담당자 1 전송 요약
           REP2 공급 수요 및 가격 요약
           422페이지의 tab6 표 VI Harker 논문;

s.l(L) = 25; d.1(L)=25;

nlp를 사용하여 obj를 최대화하는 hark를 해결합니다.
repMonop(monop1t);

파일 myinfo / '%emp.info%' /;

// 완전 독점권 - 일반 바닐라 NLP이므로 정보 파일이 비어 있습니다.
putclose myinfo '* monop1: 쌍대 방정식이 없습니다';
emp를 사용하여 obj를 최대화하는 hark를 해결합니다.
repMonop(monop1);

// 수요 시장에서는 독점이지만 운송에서는 독점이 아니므로 우리는 DualEqu를 사용합니다.
// 독점자가 운송 시장에서 가격 수용자 역할을 하도록 강제하기 위해
put myinfo '* monop2: tc가 고정되어 있다고 가정하여 가격 수용자 역할을 합니다.';
putclose myinfo / 'dualEqu tcDef tc';
emp를 사용하여 obj를 최대화하는 hark를 해결합니다.
repMonop(monop2);

// 고전적 공간 가격 균형(CSPE)은 독점력이 없다고 가정합니다.
// 수요 시장이나 운송 시장이 아니므로 둘 다에 DualEqu를 사용하십시오.
내 정보 '* CSPE2'를 입력하세요.
myinfo / 'dualEqu'를 입력하세요.
넣어 / 'tcDef tc';
/ '가격정의 가격'을 입력하세요.
닫다;
emp를 사용하여 obj를 최대화하는 hark를 해결합니다.
repMonop(cspe2);

내 정보 '* CSPE2'를 입력하세요.
myinfo / '평형'을 입력하세요.
put / 'max obj t d s objDef flowbal';
넣어 / 'vi';
넣어 / 'tcDef tc';
/ '가격정의 가격'을 입력하세요.
닫다;
emp를 사용하여 hark를 해결하세요.
repMonop(cspeE);

담당자1, 담당자2, 탭6을 표시합니다.