请帮我解LINGO中的一个小问题（0-1变量），谢谢，

[复制链接]

字体大小: 正常放大

hu360361284

7 主题	3 听众	93 积分

升级 92.63%

该用户从未签到

电梯直达

1^#

发表于 2009-8-21 11:08 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

这个程序在运行时，总说0-1变量P有问题，但我却如何也不会修改，感觉没什么错了，恳请友人帮帮我，谢谢，帮我改一下，感激不尽

MODEL:
SETS:
PRODUCT/A,B,C,D,E,F,G/:A,B;
WEEK/W1,W2,W3,W4,W5,W6/:C;
HPB(WEEK,PRODUCT)

,Y,X,F;
ENDSETS
DATA:
A=400,500,1000,300,200,400,100;
C=10000,0,5000,5000,1000,1000;
F=40, 200, 280, 1800, 2200, 3640, 4200,
  0, 0, 0, 0, 0, 0, 0,
  100, 500, 700, 4500, 5500, 9100, 10500,
  0, 0, 0, 0, 0, 0, 0,
  90, 450, 630, 4050, 4950, 8190, 9450,
  10, 50, 70, 450, 550, 910, 1050;
B=12,0.6,1.0,0.04,0.03,0.04,0.04;
ENDDATA
[OBJ]MIN=ZB+KC;
[email=ZB=@SUM(HPB(I,J]ZB=@SUM(HPB(I,J[/email]):
P(I,J)*A(J));
[email=KC=@SUM(HPB(I,J):Y(I,J)*B(J]KC=@SUM(HPB(I,J):Y(I,J)*B(J[/email]));

@FOR(PRODUCT(J):
@FOR(WEEK(I) | J #LT# np:
  Y(I+1,J)+F(I+1,J)<=Y(I,J)+X(I+1,J))
);

@FOR(PRODUCT(J):Y(6,J)=0
);
@FOR(WEEK(I):5*X(I,2)+8*X(I,3)<=C(I)
);
@FOR(PRODUCT(I):
  @FOR(WEEK(J)