Lingo练习 简单的转运问题

model:
title תÔËÎÊÌâ;

!¶¨Ò弯ºÏ¶Î;
sets:
GongChang/1…2/:A;
CangKu/1…3/:B;
Guke/1…4/:C;
GongChangDaoCangKu(GongChang,CangKu):L,n1;
CangKuDaoGuke(CangKu,Guke):S,n2;
EndSets

Data:
!¹¤³§µÄ²úÁ¿ÏÞÖÆ;
A = 9 8;
!¹¤³§µ½²Ö¿âµÄÔËÊäÁ¿£¬Î´Öª£»
!ºó¶¨
!²Ö¿âµ½¹Ë¿ÍµÄÔËÊäÁ¿;
C = 3 5 4 5;
!¹¤³§µ½²Ö¿âµÄÔ˷ѵ¥¼Û;
L =
1 2 1000000
3 1 2;
!²Ö¿âµ½¹Ë¿ÍµÄÔ˷ѵ¥¼Û;
S =
5 7 1000000 3
9 6 7 1000000
5 6 7 4;
EndData

[Obj]Min =
@sum(GongChang(i):@sum(CangKu(j):n1(i,j)*L(i,j))) +
@sum(CangKu(i):@sum(Guke(j):n2(i,j)*S(i,j)));

! ÏÞÖÆÌõ¼þ
! ¹¤³§µÄ²úÁ¿ÏÞÖÆ;
@for(GongChang(i):
@sum(CangKu(j):n1(i,j)) < A(i)
);
! ¹Ë¿ÍµÄÐèÇóÁ¿ÏÞÖÆ;
@for(guke(j):
@sum(CangKu(i):n2(i,j)) = c(j)
);