설명

이 프로그램은 매개변수를 정렬하고 정렬된 버전을 생성하며
정렬이 올바르게 작동하는지 확인합니다.

카테고리 : 슬롯 커뮤니티 데이터 유틸리티 라이브러리

메인 파일 : GDXRANKExample18.gms 포함: GDXRANKExample18.gms

$onText
이 프로그램은 매개변수를 정렬하고, 정렬된 버전을 생성하며,
정렬이 올바르게 작동하는지 확인합니다.

$offText

I /i1 * i6/을 설정합니다.
매개변수 A(I) /i1=+Inf, i2=-Inf, i3=Eps, i4= 10, i5=30, i6=20/;
매개변수 AIndex(i) '순열 인덱스';
* 정렬 기호; 매개변수 AIndex가 생성됩니다.
ExecuteTool.checkErrorLevel 'alg.rank A AIndex';
* Symbol AIndex는 ExecutionTool.checkErrorLevel에 의해 암시적으로 로드되었습니다. 컴파일러
* 다음 줄의 명령은 할당되지 않은 기호에 대한 오류를 억제합니다.
$onImplicitAssign

AIndex를 표시합니다.
* 정렬된 버전 생성
매개변수 Asorted(i);
Asorted(i + (AIindex(i)- Ord(i))) = A(i);
디스플레이 Asorted;
* 결과가 정렬되었는지 확인
C(i)를 설정하고;
C(i)=Yes$(Ord(i) < Card(i)) and (ASorted(i) > ASorted(i+1));
디스플레이 C;
Abort$(Card(C) <> 0) '정렬 실패';