설명

실행 시간 동안 무료 슬롯 사이트용 무료 슬롯 사이트 임베디드 코드 기능 테스트 기능

기고자: Michael Bussieck, 2023년 1월

소형 모델 유형 :무료 슬롯 사이트

카테고리 : 무료 슬롯 사이트 테스트 라이브러리

메인 파일 : embgms02.gms

$title '임베디드 코드 기능 테스트' (EMBGMS02,SEQ=926)

$onText
실행 시간 동안 무료 슬롯 사이트용 무료 슬롯 사이트 내장 코드 기능 테스트 기능

기고자: Michael Bussieck, 2023년 1월
$offText

i1에 대해 i / i1 텍스트 설정
              i2용 i2 텍스트 /
    아웃(i)
    j / j1*j3 /
    ij(i,j) / #i.#j /
    i_want(i) / i1, i2 /
    i_want_ex(i) / i1 텍스트 1, i2 텍스트 2 /
    ij_want(i,j) / i1.j1, i1.j2 /
    ij_want_merge(i,j) / i1.j1, i1.j2, i1.j3 /
    ij_want_ex(i,j) / i1.j1 텍스트 1, i1.j2 텍스트 2/;

스칼라 p0 /0.14/
       p0_want / 0.14 /;

매개변수 p1(i) / #i 1.14 /
          p2(i,j) / #i.#j 2.14 /
          p1_want(i) / #i 1.14 /
          p2_want(i,j) / i1.j1 2.14, i1.j2 2.14 /
          p2_want_merge(i,j) / i1.j1 2.14, i1.j2 2.14, i1.j3 2.14 /;

변수 v0 / fx 0.14 /
         v1(i) / #i.fx 1.14 /
         v2(i,j) / #i.#j.fx 2.14 /
         v0_want / l 0.14, m 0, lo 0, 최대 10, 스케일 1 /
         v1_want(i) / i1.(l 1.14, m 0, lo 0, up 10, scale 1),
                      i2.(l 1.14, m 0, lo 0, 최대 10, 스케일 1) /
         v2_want(i,j) / i1.j1.(l 2.14, m 0, lo 0, up 10, scale 1),
                        i1.j2.(l 2.14, m 0, lo 0, up 10, scale 1) /
         v2_want_merge(i,j) / i1.j1.(l 2.14, m 0, lo 0, up 10, scale 1),
                              i1.j2.(l 2.14, m 0, lo 0, 최대 10, 스케일 1),
                              i1.j3.(l 2.14, m 0, lo 0, up 10, scale 1) /;

방정식 e0 / fx 0.14 /
         e1(i) / #i.fx 1.14 /
         e2(i,j) / #i.#j.fx 2.14 /
         e0_want / l 0.14, m 0, lo 0, 최대 10, 스케일 1 /
         e1_want(i) / i1.(l 1.14, m 0, lo 0, up 10, scale 1),
                      i2.(l 1.14, m 0, lo 0, 최대 10, 스케일 1) /
         e2_want(i,j) / i1.j1.(l 2.14, m 0, lo 0, up 10, scale 1),
                        i1.j2.(l 2.14, m 0, lo 0, up 10, scale 1) /
         e2_want_merge(i,j) / i1.j1.(l 2.14, m 0, lo 0, up 10, scale 1),
                              i1.j2.(l 2.14, m 0, lo 0, 최대 10, 스케일 1),
                              i1.j3.(l 2.14, m 0, lo 0, up 10, scale 1) /;

$call rm -f embgms02_log.txt
$onEchoV > checkData
Execute_unload 'have.gdx', %1;
'gdxdiff want.gdx have.gdx >> embgms02_log.txt'를 실행합니다.
중단$errorlevel '%2';
$offEcho

put_utility '저장' / 'embgms02';

*** 기본 목록 동작 테스트 ***

*테스트 1.1: 스칼라의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  중단$(p0<>0.14) "p0 불량";
endEmbeddedCode

*테스트 1.2: 1차원 매개변수의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  loop(i, abort$(p1(i)<>1.14) 'p1 불량');
endEmbeddedCode

*테스트 1.3: 다차원 매개변수의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  loop((i,j), abort$(p2(i,j)<>2.14) 'p2 불량');
endEmbeddedCode

*테스트 1.4: 1차원 집합의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  ix(i) / i1*i2 /, diff(i)를 설정합니다.
  diff(i) = i(i) xor ix(i);
  abort$(card(diff)) 'i1 불량', diff;
endEmbeddedCode

*테스트 1.5: 다차원 집합의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  set ijx(i,j) / #i.#j /, diff(i,j);
  diff(i,j) = ij(i,j) xor ijx(i,j);
  abort$(card(diff)) 'ij 불량', diff;
endEmbeddedCode

*테스트 1.6: 스칼라 변수의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  중단$(v0.l <>0.14) '잘못된 v0.l';
  중단$(v0.m <>0.00) '잘못된 v0.m';
  abort$(v0.lo <>0.14) '나쁜 v0.lo';
  중단$(v0.up <>0.14) '잘못된 v0.up';
  중단$(v0.scale<>1.00) '잘못된 v0.scale';
endEmbeddedCode

*테스트 1.7: 1차원 변수의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  루프(나,
     abort$(v1.l (i)<>1.14) '나쁜 v1.l';
     중단$(v1.m (i)<>0.00) '잘못된 v1.m';
     abort$(v1.lo (i)<>1.14) '나쁜 v1.lo';
     중단$(v1.up (i)<>1.14) '잘못된 v1.up';
     중단$(v1.scale(i)<>1.00) '잘못된 v1.scale';
  );
endEmbeddedCode

*테스트 1.8: 다차원 변수의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  루프((i,j),
     abort$(v2.l (i,j)<>2.14) '나쁜 v2.l';
     중단$(v2.m (i,j)<>0.00) '잘못된 v2.m';
     abort$(v2.lo (i,j)<>2.14) '나쁜 v2.lo';
     중단$(v2.up (i,j)<>2.14) '잘못된 v2.up';
     중단$(v2.scale(i,j)<>1.00) '잘못된 v2.scale';
  );
endEmbeddedCode

*테스트 1.9: 스칼라 방정식의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  중단$(e0.l <>0.14) '나쁜 e0.l';
  중단$(e0.m <>0.00) '잘못된 e0.m';
  중단$(e0.lo <>0.14) '나쁜 e0.lo';
  중단$(e0.up <>0.14) '잘못된 e0.up';
  중단$(e0.scale<>1.00) '잘못된 e0.scale';
endEmbeddedCode

*테스트 1.10: 1차원 방정식의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  루프(나,
     중단$(e1.l (i)<>1.14) '나쁜 e1.l';
     중단$(e1.m (i)<>0.00) '나쁜 e1.m';
     중단$(e1.lo (i)<>1.14) '나쁜 e1.lo';
     중단$(e1.up (i)<>1.14) '나쁜 e1.up';
     중단$(e1.scale(i)<>1.00) '잘못된 e1.scale';
  );
endEmbeddedCode

*테스트 1.11: 다차원 방정식의 기본 목록 동작 테스트
임베디드 코드 무료 슬롯 사이트: r=embgms02
  루프((i,j),
     중단$(e2.l (i,j)<>2.14) '나쁜 e2.l';
     중단$(e2.m (i,j)<>0.00) '나쁜 e2.m';
     중단$(e2.lo (i,j)<>2.14) '나쁜 e2.lo';
     중단$(e2.up (i,j)<>2.14) '나쁜 e2.up';
     중단$(e2.scale(i,j)<>1.00) '잘못된 e2.scale';
  );
endEmbeddedCode

*** 라벨을 사용하여 기호 데이터 쓰기 테스트 ***
Execute_unload 'wanted.gdx', p0_want=p0;

옵션 클리어=p0;
put_utility 'xsave' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  p0 = 0.14;
endEmbeddedCode p0
$batInclude checkData p0 '테스트 4.1이 무료 슬롯 사이트에서 실패했습니다'

*테스트 4.2: 1차원 매개변수 작성 테스트
Execute_unload 'wanted.gdx', p1_want=p1;

옵션 클리어=p1;
put_utility '저장' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  p1(i) = 1.14;
endEmbeddedCode p1
$batInclude checkData p1 '테스트 4.2가 무료 슬롯 사이트에서 실패했습니다'

*테스트 4.3: 다차원 매개변수 작성 테스트
Execute_unload 'wanted.gdx', p2_want=p2;

옵션 클리어=p2;
put_utility 'xsave' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  p2('i1', 'j1') = 2.14;
  p2('i1', 'j2') = 2.14;
endEmbeddedCode p2
$batInclude checkData p2 '테스트 4.3이 무료 슬롯 사이트에서 실패했습니다'

*테스트 4.4: 1차원 세트 작성 테스트
Execute_unload 'wanted.gdx', i_want=iout;

옵션 클리어=iout;
put_utility '저장' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  iout(i) = 예;
endEmbeddedCode iout
$batInclude checkData iout '무료 슬롯 사이트에서 테스트 4.4a 실패'

Execute_unload 'wanted.gdx', i_want_ex=iout;

옵션 클리어=iout;
put_utility 'xsave' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
$ onMultiR
  iout / 'i1' "텍스트 1", 'i2' "텍스트 2" /를 설정합니다.
endEmbeddedCode iout
$batInclude checkData iout '무료 슬롯 사이트에서 테스트 4.4b 실패'

*테스트 4.5: 다차원 집합의 테스트 작성
Execute_unload 'wanted.gdx', ij_want=ij;

옵션 클리어=ij;
put_utility '저장' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  ij('i1', 'j1') = 예;
  ij('i1', 'j2') = 예;
endEmbeddedCode ij
$batInclude checkData ij '무료 슬롯 사이트에서 테스트 4.5a가 실패했습니다.'

Execute_unload 'wanted.gdx', ij_want_ex=ij;

옵션 클리어=ij;
put_utility 'xsave' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
$ onMultiR
  set ij / 'i1'.'j1' "텍스트 1", 'i1'.'j2' "텍스트 2" /;
endEmbeddedCode ij
$batInclude checkData ij '무료 슬롯 사이트에서 테스트 4.5b 실패'

*테스트 4.6: 스칼라 변수 쓰기 테스트
Execute_unload 'wanted.gdx', v0_want=v0;

옵션 클리어=v0;
put_utility '저장' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  v0.l = 0.14;
  v0.m = 0.00;
  v0.lo = 0.00;
  v0.up = 10.00;
  v0.scale = 1.00;
endEmbeddedCode v0
$batInclude checkData v0 '테스트 4.6이 무료 슬롯 사이트에서 실패했습니다'

*테스트 4.7: 1차원 변수 작성 테스트
Execute_unload 'wanted.gdx', v1_want=v1;

옵션 클리어=v1;
put_utility 'xsave' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  루프(나,
     v1.1(i) = 1.14;
     v1.m(i) = 0.00;
     v1.lo(i) = 0.00;
     v1.up(i) = 10.00;
     v1.scale(i) = 1.00;
  );
endEmbeddedCode v1
$batInclude checkData v1 '테스트 4.7이 무료 슬롯 사이트에서 실패했습니다'

*테스트 4.8: 다차원 변수 작성 테스트
Execute_unload 'wanted.gdx', v2_want=v2;

옵션 클리어=v2;
put_utility '저장' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  ij2(i,j) / i1.j1, i1.j2 /를 설정합니다.
  루프(ij2(i,j),
     v2.1(i,j) = 2.14;
     v2.m(i,j) = 0.00;
     v2.lo(i,j) = 0.00;
     v2.up (i,j) = 10.00;
     v2.scale(i,j) = 1.00;
  );
endEmbeddedCode v2
$batInclude checkData v2 '테스트 4.8이 무료 슬롯 사이트에서 실패했습니다'

*테스트 4.9: 스칼라 방정식 작성 테스트
Execute_unload 'wanted.gdx', e0_want=e0;

옵션 클리어=e0;
put_utility 'xsave' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  e0.l = 0.14;
  e0.m = 0.00;
  e0.lo = 0.00;
  e0.up = 10.00;
  e0.scale = 1.00;
endEmbeddedCode e0
$batInclude checkData e0 '테스트 4.9가 무료 슬롯 사이트에서 실패했습니다'

*테스트 4.10: 1차원 방정식 작성 테스트
Execute_unload 'wanted.gdx', e1_want=e1;

옵션 클리어=e1;
put_utility '저장' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  루프(나,
     e1.1(i) = 1.14;
     e1.m(i) = 0.00;
     e1.lo(i) = 0.00;
     e1.up(i) = 10.00;
     e1.scale(i) = 1.00;
  );
endEmbeddedCode e1
$batInclude checkData e1 '무료 슬롯 사이트에서 테스트 4.10이 실패했습니다'

*테스트 4.11: 다차원 방정식 작성 테스트
Execute_unload 'wanted.gdx', e2_want=e2;

옵션 클리어=e2;
put_utility 'xsave' / 'embgms02';

임베디드 코드 무료 슬롯 사이트: r=embgms02
  ij2(i,j) / i1.j1, i1.j2 /를 설정합니다.
  루프(ij2(i,j),
     e2.1(i,j) = 2.14;
     e2.m(i,j) = 0.00;
     e2.lo(i,j) = 0.00;
     e2.up(i,j) = 10.00;
     e2.scale(i,j) = 1.00;
  );
endEmbeddedCode e2
$batInclude checkData e2 '무료 슬롯 사이트에서 테스트 4.11 실패'

*테스트 4.12: 알려지지 않은 연료의 필터링된 읽기 테스트
$onEcho > ec4_12.gms
i(*) / i1*i2 /를 설정합니다. 매개변수 p(i);

임베디드코드 무료 슬롯 사이트:
매개변수 p(*) / i0 1, i1 1 /;
endEmbeddedCode p
중단$(p('i1')<>1 또는 p('i2')<>0) '잘못된 p', p;
$offEcho
$call.checkErrorLevel 게임 ec4_12.gms lo=2