Xpress-IVE 建模问题

cy411522

哪位高人能帮小弟解决这个问题，小弟不甚感激！！！
8 W; D) R6 u* M+ H, Amodel "Burglar 1"
uses "mmxprs"
# ]* Y; t% P+ e, u3 g7 Adeclarations
* b8 o' Z, J4 ]( K! hITEMS = 1..8 ! 物品标号范围
1 t( g: [5 V4 ~7 k; aWTMAX = 102 ! 允许携带的重量最大值
VALUE: array(ITEMS) of real ! 物品价值
WEIGHT: array(ITEMS) of real ! 物品重量
take: array(ITEMS) of mpvar ! 1 表示带走物品i，0 表示不带走物品i
8 r4 b, j3 m* N# G- X/ fend-declarations
  `- r8 Q6 b$ U! 物品: 1 2 3 4 5 6 7 8
# M5 S! C. t# nVALUE := [ 15, 100, 90, 60, 40, 15, 10, 1]
WEIGHT := [ 2, 20, 20, 30, 40, 30, 60, 10]
! 目标: 使带走的总价值最大
MaxVal:= sum(i in ITEMS) VALUE(i)*take(i)
! 重量限制
( X3 }0 w1 t7 qsum(i in ITEMS) WEIGHT(i)*take(i) <= WTMAX
" Y# n+ x* J, }! 所有变量取值都为0 或1
forall(i in ITEMS) take(i) is_binary
maximize(MaxVal) ! 求解混合整数问题
! 打印输出结果
5 A/ K* m. [5 _# F) |7 U  R3 bwriteln("Solution:\n Objective: ", getobjval)
forall(i in ITEMS) writeln(" take(", i, "): ", getsol(take(i)))
" `0 w  l' r9 a$ P, C( x- z% hend-model
: U& a+ P+ s4 x; g6 D这段程序运行不了

空木葬花

非常感谢楼主的福利！

yunyun842

VALUE := [ 15, 100, 90, 60, 40, 15, 10, 1]
WEIGHT := [ 2, 20, 20, 30, 40, 30, 60, 10]
换成
0 A9 d' Q/ L+ V. n* s* PVALUE :: [ 15, 100, 90, 60, 40, 15, 10, 1]
- J  I' s9 e5 V: K2 RWEIGHT :: [ 2, 20, 20, 30, 40, 30, 60, 10]
试试！