설명

이 테스트는 싱글톤 세트가 예상대로 사용될 수 있는지 확인합니다.
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;