帮忙用lingo表示一下有八个数,700,653,650,600,590,550,392,380.设x1,x2,x3,x

sets:
s1/1..4/:x;
s2/1..8/:num;
s12(s1,s2):c;
endsets
data:
num=700 653 650 600 590 550 392 380;
enddata
min=@smax(x(1)+x(2),x(3)+x(4));
@for(s1(i):x(i)=@sum(s2(j):num(j)*c(i,j)));
@for(s12:@bin(c));
@for(s1(i):@sum(s2(j):c(i,j))=1);
@for(s2(j):@sum(s1(i):c(i,j))