Reading a sparse set from a 2D table about plugins HOT 11 OPEN

ampl.tab 2 1
NUTR	FOOD	amt
A	BEEF	60
A	CHK	.
A	FISH	.
A	HAM	40
A	MCH	15
A	MTL	70
A	SPG	25
A	TUR	60
B1	BEEF	.
B1	CHK	20
B1	FISH	15
B1	HAM	35
B1	MCH	15
B1	MTL	15
B1	SPG	25
B1	TUR	15
B2	BEEF	15
B2	CHK	20
B2	FISH	.
B2	HAM	.
B2	MCH	15
B2	MTL	15
B2	SPG	15
B2	TUR	.
C	BEEF	20
C	CHK	.
C	FISH	.
C	HAM	40
C	MCH	35
C	MTL	30
C	SPG	50
C	TUR	20

reset;
set NUTR := {"A", "B1", "B2", "C"};
set FOOD := {"BEEF", "CHK", "FISH", "HAM", "MCH", "MTL", "SPG", "TUR"};
set LINKS within {NUTR, FOOD};
param amt {LINKS} >= 0;

table amounts IN:
	LINKS <- [NUTR, FOOD], amt;

read table amounts;
display LINKS, amt;

set LINKS :=
(A,BEEF)    (A,SPG)     (B1,MCH)    (B2,FISH)   (C,BEEF)    (C,SPG)
(A,CHK)     (A,TUR)     (B1,MTL)    (B2,HAM)    (C,CHK)     (C,TUR)
(A,FISH)    (B1,BEEF)   (B1,SPG)    (B2,MCH)    (C,FISH)
(A,HAM)     (B1,CHK)    (B1,TUR)    (B2,MTL)    (C,HAM)
(A,MCH)     (B1,FISH)   (B2,BEEF)   (B2,SPG)    (C,MCH)
(A,MTL)     (B1,HAM)    (B2,CHK)    (B2,TUR)    (C,MTL);

amt [*,*] (tr)
:      A    B1   B2   C     :=
BEEF   60   .    15   20
CHK    .    20   20   .
FISH   .    15   .    .
HAM    40   35   .    40
MCH    15   15   15   35
MTL    70   15   15   30
SPG    25   25   15   50
TUR    60   15   .    20
;

ampl.tab 2 1
NUTR	FOOD	amt
A	BEEF	60
A	HAM	40
A	MCH	15
A	MTL	70
A	SPG	25
A	TUR	60
B1	CHK	20
B1	FISH	15
B1	HAM	35
B1	MCH	15
B1	MTL	15
B1	SPG	25
B1	TUR	15
B2	BEEF	15
B2	CHK	20
B2	MCH	15
B2	MTL	15
B2	SPG	15
C	BEEF	20
C	HAM	40
C	MCH	35
C	MTL	30
C	SPG	50
C	TUR	20

set LINKS :=
(A,BEEF)    (A,SPG)     (B1,HAM)    (B1,TUR)    (B2,MTL)    (C,MCH)
(A,HAM)     (A,TUR)     (B1,MCH)    (B2,BEEF)   (B2,SPG)    (C,MTL)
(A,MCH)     (B1,CHK)    (B1,MTL)    (B2,CHK)    (C,BEEF)    (C,SPG)
(A,MTL)     (B1,FISH)   (B1,SPG)    (B2,MCH)    (C,HAM)     (C,TUR);

amt [*,*] (tr)
:      A    B1   B2   C     :=
BEEF   60   .    15   20
CHK    .    20   20   .
FISH   .    15   .    .
HAM    40   35   .    40
MCH    15   15   15   35
MTL    70   15   15   30
SPG    25   25   15   50
TUR    60   15   .    20
;

set NUTR;
set FOOD;
set LINKS within {NUTR, FOOD};
param amt {LINKS} >= 0;

data test-empty.dat;

table amounts_dat OUT:
	[NUTR, FOOD], amt;
write table amounts_dat;

table links_dat OUT:
	{(n,f) in LINKS} -> [n ~NUTR, f ~FOOD];
write table links_dat;

display LINKS, amt;

ampl.tab 2 0
NUTR	FOOD
A	BEEF
C	BEEF
B2	BEEF
B1	CHK
B2	CHK
B1	FISH
A	HAM
C	HAM
B1	HAM
A	MCH
C	MCH
B1	MCH
B2	MCH
A	MTL
C	MTL
B1	MTL
B2	MTL
A	SPG
C	SPG
B1	SPG
B2	SPG
A	TUR
C	TUR
B1	TUR

param: dat_keys: dat_vals:=
A 1
B 2
C .
D 4
;

ampl.tab 1 1
K	V
A	1
B	2
C	.
D	4

reset;

# data loaded from .dat
set dat_keys;
param dat_vals{dat_keys};

data dat_data.dat;

# data loaded from .tab
set tab_keys;
param tab_vals{tab_keys};

table tab_data IN:
	tab_keys <- [K], tab_vals ~ V;

read table tab_data;

# compare
display dat_keys, dat_vals;
display tab_keys, tab_vals;

set dat_keys := A B C D;

dat_vals [*] :=
A  1
B  2
D  4
;

set tab_keys := A B C D;

tab_vals [*] :=
A  1
B  2
D  4
;

reset;

set A := {"a", "b", "c", "d"};
set B within A;
param C{B};

data data.dat;

display A, B, C;

param: B: C:=
a 1
b 2
c .
d 4
;

set A := a b c d;

set B := a b c d;

C [*] :=
a  1
b  2
d  4
;

set NUTR;
set FOOD;
set LINKS dimen 2;
check LINKS within {NUTR, FOOD};
param dat_vals {LINKS};

data dat_data2.dat;
display dat_vals, LINKS;

param :LINKS: dat_vals (tr):
           A    C   B1   B2 :=
   BEEF   60   20    .   15
   CHK     .    .   20   20
   FISH    .    .   15    .
   HAM    40   40   35    .
   MCH    15   35   15   15
   MTL    70   30   15   15
   SPG    25   50   25   15
   TUR    60   20   15    . ;