csv2gdx1.gms : 공백이 포함된 입력에서 CSVRead 테스트

설명

기고자: Alexander Meeraus, 2016년 10월

소형 모델 유형 :슬롯 게임


카테고리 : 슬롯 게임 테스트 라이브러리


메인 파일 : csv2gdx1.gms

$title 공백이 포함된 입력에 대한 CSVRead 테스트(CSV2GDX1,SEQ=697)

$onText
기고자: Alexander Meeraus, 2016년 10월
$offText

$onEcho > space.csv
,"a b",c d, e f
1,1,2,3
"2 3",4,5,6
4 5,7,8,9
  6 7 ,10,11,12
$offEcho
$onEcho > easy.csv
,"a b","c d", "e f"
1,1,2,3
"2 3",4,5,6
"4 5",7,8,9
  "6 7",10,11,12
$offEcho

j 설정 / "a b","c d","e f" /
    나는 / 1, "2 3", "4 5", "6 7" /
별칭(u,uu,*);
테이블 a(*,*)
$onDelim
$include easy.csv
$offDelim
디스플레이 a;

매개변수 aa(*,*),aaa(*,*);
ii(*),jj(*),iii(*),jjj(*)를 설정합니다.

diffii,diffjj를 설정합니다.  매개변수 차이;
diffiii,diffjjj를 설정합니다. 매개변수 diffaaa;

$call gamstool csvread easy.csv id=a gdxout=easy.gdx useheader=y 색인=1 값=2..lastcol 추적=0
$if errorlevel 1 $abort easy.csv에서 CSVRead 실행 중 문제 발생
$gdxeasy.gdx에서
$load ii=dim1 jj=dim2 aa=a
$gdxIn

diffii(u) = (i(u) - ii(u)) 또는 (ii(u) - i(u));
diffjj(u) = (j(u) - jj(u)) 또는 (jj(u) - j(u));
diffaa(u,uu) = a(u,uu) - aa(u,uu);
diffii,diffjj,diffaa를 표시합니다.
abort$(card(diffii)+card(diffjj) +card(diffaa)) "쉽게 문제가 발생했습니다.";

$call gamstool csvread space.csv id=a gdxout=space.gdx useheader=y 색인=1 값=2..lastcol 추적=0
$if errorlevel 1 $abort space.csv에서 CSVRead 실행 중 문제 발생
$gdx공간.gdx에서
$load iii=dim1 jjj=dim2 aaa=a
$gdxIn

diffiii(u) = (i(u) - iii(u)) 또는 (iii(u) - i(u));
diffjjj(u) = (j(u) - jjj(u)) 또는 (jjj(u) - j(u));
diffaaa(u,uu) = a(u,uu) - aaa(u,uu);
diffiii,diffjjj,diffaaa를 표시합니다.
abort$(card(diffiii)+card(diffjjj) +card(diffaaa)) "공간에 문제가 발생했습니다.";