\$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