用Lingo编程 急

Question

对某厂一，二，三产品下一年各季度的合同预订数如下，一产品各季度订货数为1500,1000,2000，1200二产品为1500,1500,1200,1500三产品为1000,2000,1500,2500该三种产品1季度初无库存，要求在4季度末各库存150件。已知该厂每季度生产工时为15000小时，生产一，二，三产品每件分别需要2、4、3小时。因更换工艺装备，产品I在2季度无法生产。规定当产品不能按期交货时，产品每件每迟交 ，二 一个季度赔偿20元，产品三赔10元；又生产出来产品不在本季度交货的，每件每季度的库存费用为5元。问该厂应如何安排生产，使总的赔偿加库存的费用为最小。

Answer 1

difference为正表示库存 为负表示迟交数
model:
sets:
production/1..3/:time,lackloss;
season/1..4/:;
link(production,season):demand,difference,produce;
endsets
data:
demand=
1500 1000 2000 1200
1500 1500 1200 1500
1000 2000 1500 2500;
lackloss=20 10 10;
time=2 4 3;
enddata
min=@sum(season(j):@sum(production(i):@if(difference(i,j)#ge#0,5*difference(i,j),-lackloss(i)*difference(i,j))));
@for(production(i):
difference(i,1)=produce(i,1)-demand(i,1);
@for(season(j)|j#gt#1:difference(i,j)=difference(i,j-1)+produce(i,j)-demand(i,j)));
@for(season(j):@sum(production(i):produce(i,j)*time(i))<=15000);
@for(production(i):difference(i,4)=150);
@for(link:@free(difference);@gin(produce));
end