lingo下标越界怎么解决（提示X下标越界）

lingo下标越界怎么解决（提示X下标越界）
MODEL:
SETS:
x05MM/1..3/;
x05DIAN/1..27/:FS;
x05LINK(MM,DIAN):
CB,X;
ENDSETS
DATA:
x05CB=6000 8000 8000 8000 8000 12000 12000 12000 12000 12000 10000 10000 12000 12000 15000 15000 12000 15000 12000 15000 15000 21000 21000 21000 15000 21000 21000
5000 6400 6400 6400 6400 8700 8700 8700 8700 8700 7600 7600 8700 8700 9500 9500 8000 9500 8000 9500 9500 18000 18000 18000 9500 18000 18000
3500 4300 4300 4300 6400 6400 6400 6400 6400 5500 5500 6400 6400 6400 7800 7800 6500 7800 6500 7800 7800 10000 10000 10000 7800 10000 10000;
x05FS=15 19 21 19 19 21 21 21 21 18 15 17 20 19 17 16 17 19 18 20 16 15 16 16 19 19 17;
ENDDATA
MAX=@SUM(DIAN(J):FS(J)*X);
MIN=@SUM(LINK(I,J):CB(I,J)*X);
@FOR(LINK:@BIN(X));
@for(dian(i):@SUM(MM(J):X(I,J))