설명

이 테스트는 싱글톤 세트가 예상대로 사용될 수 있는지 확인합니다.
strictSingleton=0인 경우

기고자: Lutz Westermann, 2014년 1월

소형 모델 유형 :GAMS

카테고리 : GAMS 테스트 라이브러리

메인 파일 : single01.gms

$title '싱글톤 세트 처리 확인' (SINGLE01,SEQ=639)

$onText
이 테스트는 싱글톤 세트가 예상대로 사용될 수 있는지 확인합니다.
strictSingleton=0인 경우

기고자: Lutz Westermann, 2014년 1월
$offText

내가 /i1*i3/으로 설정
    j /j1*j3/
    k /k1*k3/
    내가 /l1*l3/;

싱글턴 세트 슬롯 사이트 추천(i) /i2/
              시드 /#슬롯 사이트 추천/
              sk(k) /k2/
              sl(l) /l2/
              sij(i,j) /i2.j2/
              sjk(j,k) /j2.k2/
              skl(k,l) /k2.l2/ ;

매개변수 파이(i)
          psi(시드)
          피(i,i)
          psi(시드,시드)
          피지(i,j)
          파이크(i,j,k)
          pijkl(i,j,k,l);

별칭(i,a);
별칭(슬롯 사이트 추천sai);
별칭(sid,sad);
파이(i) = ord(i);
psi(sid) = pi(슬롯 사이트 추천);
pij(i,j) = 10 *ord(i)+ ord(j);
pii(i,a) = 10 *ord(i)+ ord(a);
psii(sid,sad) = pii(슬롯 사이트 추천sai);
pijk(i,j,k) = 100 *ord(i)+10 *ord(j)+ ord(k);
pijkl(i,j,k,l) ​​= 1000*ord(i)+100*ord(j)+10*ord(k)+ord(l);

스칼라 w,x,y,z;

w = psi(sid);
x = 파이(슬롯 사이트 추천);
y = 합(슬롯 사이트 추천pi(슬롯 사이트 추천));
abort$(x<>y) '예상치 못한 차이',x,y;
abort$(w<>y) '예상치 못한 차이',w,y;
루프(나,
  시(i)=예;
  x = 파이(슬롯 사이트 추천);
  y = 합(슬롯 사이트 추천pi(슬롯 사이트 추천));
);
abort$(x<>y) '예상치 못한 차이',x,y;

옵션 strictSingleton = 0;
z = 0;
동안(z<=2,
  시(i)=예;
  x = 파이(슬롯 사이트 추천);
  y = 합(슬롯 사이트 추천pi(슬롯 사이트 추천));
  z = z+1;
);
abort$(x<>y) '예상치 못한 차이',x,y;
for(z=1 ~ 2,
  시(i)=예;
  x = 파이(슬롯 사이트 추천);
  y = 합(슬롯 사이트 추천pi(슬롯 사이트 추천));
);
abort$(x<>y) '예상치 못한 차이',x,y;
z = 0;
반복(
  시(i)=예;
  x = 파이(슬롯 사이트 추천);
  y = 합(슬롯 사이트 추천pi(슬롯 사이트 추천));
  z = z+1;
까지(z>2));
abort$(x<>y) '예상치 못한 차이',x,y;

x = pij(sij);
y = 합계(sij,pij(sij));
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j),
  sij(i,j)=예;
  x = pij(sij);
  y = 합계(sij,pij(sij));
);
abort$(x<>y) '예상치 못한 차이',x,y;

루프(k,
  x = pijkl(sij,k-pi(슬롯 사이트 추천),sl);
  y = sum((sij,sl), pijkl(sij,k-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sl));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k),
  sij(i,j)=예;
  sl(l) =예;
  x = pijkl(sij,k-pi(슬롯 사이트 추천),sl);
  y = sum((sij,sl), pijkl(sij,k-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sl));
);
abort$(x<>y) '예상치 못한 차이',x,y;

루프(k,
  x = 합계(l,pijk(sij,k-pi(슬롯 사이트 추천))));
  y = sum(l,sum(sij, pijk(sij,k-sum(슬롯 사이트 추천pi(슬롯 사이트 추천))))));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k),
  sij(i,j)=예;
  슬롯 사이트 추천(i) =예;
  x = 합계(l,pijk(sij,k-pi(슬롯 사이트 추천))));
  y = sum(l,sum(sij, pijk(sij,k-sum(슬롯 사이트 추천pi(슬롯 사이트 추천))))));
);
abort$(x<>y) '예상치 못한 차이',x,y;

x = pijk(sij,sk);
y = sum((sij,sk),pijk(sij,sk));
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k),
  sij(i,j)=예;
  sk(k) =예;
  x = pijk(sij,sk);
  y = sum((sij,sk),pijk(sij,sk));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j),
  sij(i,j)=예;
  x = pijk(sij,sk);
  y = sum((sij,sk),pijk(sij,sk));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프(k,
  sk(k)=예;
  x = pijk(sij,sk);
  y = sum((sij,sk),pijk(sij,sk));
);
abort$(x<>y) '예상치 못한 차이',x,y;

x = pijkl(슬롯 사이트 추천sjk,sl);
y = sum((슬롯 사이트 추천sjk,sl),pijkl(슬롯 사이트 추천sjk,sl));
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k,l),
  슬롯 사이트 추천(i) =예;
  sjk(j,k)=예;
  sl(l) =예;
  x = pijkl(슬롯 사이트 추천sjk,sl);
  y = sum((슬롯 사이트 추천sjk,sl),pijkl(슬롯 사이트 추천sjk,sl));
);
루프((j,k,l),
  sjk(j,k)=예;
  sl(l) =예;
  x = pijkl(슬롯 사이트 추천sjk,sl);
  y = sum((슬롯 사이트 추천sjk,sl),pijkl(슬롯 사이트 추천sjk,sl));
);
루프((i,l),
  슬롯 사이트 추천(i) =예;
  sl(l) =예;
  x = pijkl(슬롯 사이트 추천sjk,sl);
  y = sum((슬롯 사이트 추천sjk,sl),pijkl(슬롯 사이트 추천sjk,sl));
);
루프((i,j,k),
  슬롯 사이트 추천(i) =예;
  sjk(j,k)=예;
  x = pijkl(슬롯 사이트 추천sjk,sl);
  y = sum((슬롯 사이트 추천sjk,sl),pijkl(슬롯 사이트 추천sjk,sl));
);
abort$(x<>y) '예상치 못한 차이',x,y;

x = pijkl(슬롯 사이트 추천,'j1',skl);
y = sum((슬롯 사이트 추천skl),pijkl(슬롯 사이트 추천,'j1',skl));
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,k,l),
  슬롯 사이트 추천(i) =예;
  skl(k,l)=예;
  x = pijkl(슬롯 사이트 추천,'j1',skl);
  y = sum((슬롯 사이트 추천skl),pijkl(슬롯 사이트 추천,'j1',skl));
);
abort$(x<>y) '예상치 못한 차이',x,y;

x = 합계(j,pijkl(슬롯 사이트 추천j,skl));
y = sum(j,sum((슬롯 사이트 추천skl),pijkl(슬롯 사이트 추천j,skl)));
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,k,l),
  슬롯 사이트 추천(i) =예;
  skl(k,l)=예;
  x = 합계(j,pijkl(슬롯 사이트 추천j,skl));
  y = sum(j,sum((슬롯 사이트 추천skl),pijkl(슬롯 사이트 추천j,skl)));
);
abort$(x<>y) '예상치 못한 차이',x,y;

x = pijkl(sij,skl);
y = sum((sij,skl),pijkl(sij,skl));
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k,l),
  sij(i,j)=예;
  skl(k,l)=예;
  x = pijkl(sij,skl);
  y = sum((sij,skl),pijkl(sij,skl));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j),
  sij(i,j)=예;
  x = pijkl(sij,skl);
  y = sum((sij,skl),pijkl(sij,skl));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((k,l),
  skl(k,l)=예;
  x = pijkl(sij,skl);
  y = sum((sij,skl),pijkl(sij,skl));
);
abort$(x<>y) '예상치 못한 차이',x,y;

루프(나,
  x = pijkl(i-pi(슬롯 사이트 추천),sjk,sl);
  y = sum((sjk,sl), pijkl(i-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sjk,sl));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k,l),
  시(i)=예;
  sjk(j,k)=예;
  sl(l)=예;
  x = pijkl(i-pi(슬롯 사이트 추천),sjk,sl);
  y = sum((sjk,sl), pijkl(i-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sjk,sl));
);
abort$(x<>y) '예상치 못한 차이',x,y;

루프(나,
  x = pijkl(i-pi(슬롯 사이트 추천),sjk,sl);
  y = sum((sjk), pijkl(i-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sjk,'l2'));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k),
  시(i)=예;
  sjk(j,k)=예;
  x = pijkl(i-pi(슬롯 사이트 추천),sjk,sl);
  y = sum((sjk), pijkl(i-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sjk,'l2'));
);
abort$(x<>y) '예상치 못한 차이',x,y;

x = 파이(사이);
y = sum(sai,pi(sai));
abort$(x<>y) '예상치 못한 차이',x,y;
루프(나,
  사이(i)=예;
  x = 파이(사이);
  y = sum(sai,pi(sai));
);
abort$(x<>y) '예상치 못한 차이',x,y;

슬롯 사이트 추천('i2') = 예;
w = psi(sid,sad);
x = pii(슬롯 사이트 추천sai);
y = sum((슬롯 사이트 추천sai),pii(슬롯 사이트 추천sai));
abort$(w<>y) '예상치 못한 차이',w,y;
abort$(x<>y) '예상치 못한 차이',x,y;
루프(나,
  시(i)=예;
  사이(i)=예;
  x = pii(슬롯 사이트 추천sai);
  y = sum((슬롯 사이트 추천sai),pii(슬롯 사이트 추천sai));
);
abort$(x<>y) '예상치 못한 차이',x,y;

슬롯 사이트 추천('i2') = 예;
w = psi(sid,sid);
x = pii(슬롯 사이트 추천슬롯 사이트 추천);
y = sum((슬롯 사이트 추천),pii(슬롯 사이트 추천슬롯 사이트 추천));
abort$(w<>y) '예상치 못한 차이',w,y;
abort$(x<>y) '예상치 못한 차이',x,y;
루프(나,
  시(i)=예;
  x = pii(슬롯 사이트 추천슬롯 사이트 추천);
  y = sum((슬롯 사이트 추천),pii(슬롯 사이트 추천슬롯 사이트 추천));
);
abort$(x<>y) '예상치 못한 차이',x,y;

별칭(sjk,sajk);
루프(나,
  x = pijkl(i-pi(슬롯 사이트 추천),sajk,sl);
  y = sum((sajk,sl), pijkl(i-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sajk,sl));
);
abort$(x<>y) '예상치 못한 차이',x,y;
루프((i,j,k),
  슬롯 사이트 추천(i) =예;
  sajk(j,k)=예;
  sl(l) =예;
  x = pijkl(i-pi(슬롯 사이트 추천),sajk,sl);
  y = sum((sajk,sl), pijkl(i-sum(슬롯 사이트 추천pi(슬롯 사이트 추천)),sajk,sl));
);
abort$(x<>y) '예상치 못한 차이',x,y;

u / 1*10 / 설정;
싱글턴 세트 su(u) /5/;

x = su.val;
y = 합계(su,su.val);
abort$(x<>y) '예상치 못한 차이',x,y;

x = 0; 와이 = 0;
루프(유,
  su(u) = 예;
  x = x + su.val;
  y = y + 합계(su,su.val);
);
abort$(x<>y) '예기치 않은 차이',x,y;