gen_rbig.gms : Generate GDX file for test of GDXMRW
Generate data for testing the GDXMRW function rgdx
Contributor: Steve
Small Model of Type: GAMS
<![CDATA[
$TITLE Generate GDX file for test of GDXMRW (GEN_RBIG,SEQ=485)
$ontext
Generate data for testing the GDXMRW function rgdx
Contributor: Steve
$offtext
sets
I / 1 * 3 /
p1(I) / 2 /
s0 / 0, 1 /
s1 / zero, one /
s2 / null, eins /
s3 / aught, unity /
sx / x0, x1 /
s9 / cero, uno /
ps10(s0,s1,s2,s3,sx,sx,sx,sx,sx,s9) 'power set for 10 elements'
tiny(s0,s1,s2,s3,sx,sx,sx,sx,sx,s9) 'tiny subset of power set' /
'1'.'one'.'eins'.'unity'.'x1'.'x1'.'x1'.'x1'.'x1'.'uno' yes
/
ps4(s0,s1,s2,s3) 'power set for 4 elements'
;
parameter
a10(s0,s1,s2,s3,sx,sx,sx,sx,sx,s9) 'like the power set for 10 elements'
atiny(s0,s1,s2,s3,sx,sx,sx,sx,sx,s9) 'single tuple' /
'1'.'one'.'eins'.'unity'.'x1'.'x1'.'x1'.'x1'.'x1'.'uno' 525
/
a4(s0,s1,s2,s3) 'like the power set for 4 elements'
;
alias(sx,s4,s5,s6,s7,s8);
ps10(s0,s1,s2,s3,s4,s5,s6,s7,s8,s9) = yes;
ps4 (s0,s1,s2,s3) = yes;
a10(s0,s1,s2,s3,s4,s5,s6,s7,s8,s9) =
s0.val * 1
+ (ord(s1)-1) * 2
+ (ord(s2)-1) * 4
+ (ord(s3)-1) * 8
+ (ord(s4)-1) * 16
+ (ord(s5)-1) * 32
+ (ord(s6)-1) * 64
+ (ord(s7)-1) * 128
+ (ord(s8)-1) * 256
+ (ord(s9)-1) * 512
;
a4 (s0,s1,s2,s3) =
s0.val * 1
+ (ord(s1)-1) * 2
+ (ord(s2)-1) * 4
+ (ord(s3)-1) * 8
;
execute_unload 'readbig', I, p1,
s0,s1,s2,s3,s4,s5,s6,s7,s8,s9,sx
ps10, tiny, ps4
a10, atiny, a4
;
* test correctness with readFull.m and readSparse.m
]]></plaintext></body></div>