lingo问题 看看下面程序哪出错了 谢谢

Question

2、进货问题
某商店拟制定某种商品7—12月的进货、售货计划，已知商店仓库最大容量为1500件，6月底已存货300件，年底的库存以不少于300件为宜，以后每月初进货一次，假设各月份该商品买进、售出单价如下表。
月 7 8 9 10 11 12
买进（元/件） 28 26 25 27 24 23.5
售出（元/件） 29 27 26 28 25 25

要求：若每件每月的库存费用为0.5元，问各月进货、售货各为多少件，才能使净收益最多？
model:
sets:
month/1..6/:storage1,storage2,buy,sell,buyprice,sellprice;
endsets
data:
buyprice=28 26 25 27 24 23.5;
sellprice= 29 27 26 28 25 25;
enddata
max=@sum(month:sellprice*sell-buyprice*buy-0.5*(storage1+storage2)/2);
storage1(1)=300+buy(1);
storage2(6)>=300;
@for(month(i):storage2(i)=storage1(i)-sell(i));
@for(month(i):storage1(i)=storage2(i-1)+buy(i));
@for(month:storage1<=1500);
@for(month:@gin(sell);@gin(buy));
end

Answer 1

@for(month(i):storage1(i)=storage2(i-1)+buy(i));这一句属性下标越界，storage2（0）应该是6月底已存货300件

model:
sets:
month/1..6/:storage1,storage2,buy,sell,buyprice,sellprice;
endsets
data:
buyprice=28 26 25 27 24 23.5;
sellprice= 29 27 26 28 25 25;
enddata
max=@sum(month:sellprice*sell-buyprice*buy-0.5*(storage1+storage2)/2);
storage1(1)=300+buy(1);
storage2(6)>=300;
@for(month(i):storage2(i)=storage1(i)-sell(i));
storage1(1)=300+buy(1);
@for(month(i)|i#gt#1:storage1(i)=storage2(i-1)+buy(i));
@for(month:storage1<=1500);
@for(month:@gin(sell);@gin(buy));
end