설명

gdxdump 및 csvread 테스트

카테고리 : 슬롯 사이트 추천 데이터 유틸리티 라이브러리

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

$onText
gdxdump 및 csvread 테스트
$offText

m /m1*m100/ 설정
    n /n1*n100/;
매개변수 A(m,n);
A(m,n)$(균일(0,1) <= 0.5)=균일(0,1);
스칼라 rc;

Execute_unload "x.gdx",A;

'gdxdump x.gdx 출력=a1.csv Symb=A 형식=csv cdim=y > %system.nullfile%'을 실행합니다.
'gamstool csvread a1.csv gdxout=y1.gdx index=1 값=2..101 useheader=y id=A > %system.nullfile%'을 실행합니다.
rc=오류수준;
abort$(rc <> 0)'CSVRead a1.csv에 문제가 있습니다.';

'gdxdump x.gdx 출력=a2.csv Symb=A format=csv cdim=n header="" > %system.nullfile%'를 실행합니다.
'gamstool csvread a2.csv gdxout=y2.gdx index=1,2 값=3 id=A > %system.nullfile%'을 실행합니다.
rc=오류수준;
abort$(rc <> 0)'CSVRead a2.csv에 문제가 있습니다.';

'gdxdiff x.gdx y1.gdx ID=A eps=1e-10 > %system.nullfile%'를 실행합니다.
rc=오류수준;
abort$(rc <> 0)'GDXDIFF Y1에는 차이가 예상되지 않습니다.';

'gdxdiff x.gdx y2.gdx ID=A eps=1e-10 > %system.nullfile%'를 실행합니다.
rc=오류수준;
abort$(rc <> 0)'GDXDIFF Y2에는 차이가 예상되지 않습니다.';