数学建模社区-数学中国

标题: 请帮我解LINGO中的一个小问题（0-1变量），谢谢， [打印本页]

作者: hu360361284 时间: 2009-8-21 11:08
标题: 请帮我解LINGO中的一个小问题（0-1变量），谢谢，

这个程序在运行时，总说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)

BIN(P(I,J)))
);
END

作者: hzl347553349 时间: 2009-8-21 14:18
你定义的是F
没有P

作者: hzl347553349 时间: 2009-8-21 14:21
LZ程序不少地方少了分号，格式有些问题

作者: 东方明珠-WDZYQ 时间: 2009-8-21 14:34
定义啊，还有各式啊

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)