파일 : hark-data.inc 다음 사용자: hark-monop.gms[html]  hark-oligop.gms[html]

세트
  n 노드 / 1, 2, 3, 4, 5, 6 /
  L(n) 영역 / 1, 2, 3 /
  NL(n) 'L의 보수'
  ;
NL(n) = 아님(L(n));
별칭(n,i,j);
별칭(L,Q,QQ,Qi);
Q1(Q)을 설정합니다.

테이블 계수(L,*) 수요 및 공급 데이터
         알파 베타 로 에타
하나 1.0 .5 19 .2
2개 2.0 .4 27 .01
3개 1.5 .3 30 .3 ;

테이블 쌍(i,j,*)은 데이터를 전송합니다.
           카파누
1.4 1 .5
1.5 2 .2
2.6 3 .3
3.6 1 .4
4.원 2 .3
4.5 1 .1
4.6 1 .1
5.1 3 .5
5.4 2 .2
5.6 1 1.0
6.2 2 .25
6.3 2 .2
6.4 1 .9
6.5 3 .8 ;

매개변수
  알파(L), 베타(L), rho(L), eta(L)
  카파(i,j), nu(i,j);

alpha(L) = coefs(L,'알파');
 베타(L) = coefs(L,'베타');
  rho(L) = coefs(L,'rho');
  eta(L) = coefs(L,'에타');
카파(i,j) = 쌍(i,j,'카파');
   nu(i,j) = 쌍(i,j,'nu');

호(i,j)를 설정합니다.
arc(i,j) = yes$kappa(i,j);

$macro repMonop(style) rep1(i,j,"style") = t.l(i,j); rep2("공급",L,"스타일") = s.l(L); rep2("수요",L,"스타일") = d.l(L); rep2("가격",L,"스타일") = 가격.l(L); tab6("totProfit","style") = obj.l; tab6("totSupply","style") = sumL, s.l(L); tab6("theta1","style") = 가격.l('one'); tab6("theta2","style") = 가격.l('two'); tab6("theta3","style") = 가격.l('세');