查看: 3334|回复: 4

[已经回复] 200908网友求助《程序调试》

[复制链接]

字体大小: 正常放大

mezhaoyun

27 主题	4 听众	289 积分

升级 94.5%

该用户从未签到

群组: 数学建模

群组: 中国矿业大学数学建模协会

群组: Mathematica研究小组

群组: LINGO

电梯直达

1^#

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

|招呼Ta 关注Ta

本帖最后由为你奋斗于 2009-12-3 15:42 编辑 某市计划为新建的5个居民小区中的两个各设立一所小学。并且给出各小区内及小区间平均步行时间及各小区的小学生数。该教委希望：两所小学的招生人数基本持平，学生总的上学步行时间最短。请向该教委提供决策建议：两所学校分别建在哪两个小区，以及各居民小区学生应分配到哪所小学才能满足教委的要求。
附：表小区内及小区间的平均步行时间及小学生人数

小区	在该小区建立小学					小学生人数
小区	1 2 3 4 5					小学生人数
1	5	20	15	25	10	200
2	20	4	20	15	25	180
3	15	20	6	25	15	300
4	25	15	25	4	12	160
5	10	25	15	12	5	350

用lingo编程如下：
sets:
block/1..5/:a,y;
BXB(block,block):t,x;
endsets
data:
a=200,180,300,160,350;
t=5,20,15,25,10,
  20,4,20,15,25,
  15,20,6,25,15,
  25,15,25,4,12,
  10,25,15,12,5;
enddata
min=@max(BXB:t*x);
@sum(block:y)=2;
@for(block(i):
   @sum(block(j):x(i,j))=a(i);
@for(block(j):
   @sum(block(i):x(i,j))<=600*y(j);
@for(BXB

gin(x));
@for(block

bin(y));

运行时老是提示最后一条出现了错误，如何修改会成功？
请高手指教，多谢。。。

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

ddpbhxz

14 主题	5 听众	285 积分

升级 92.5%

该用户从未签到

2^#

发表于 2009-8-16 11:22 |只看该作者 |招呼Ta 关注Ta

不是很清楚啊！还是自己好好检查一下吧！

我也说一句

发表

使用道具举报

追梦者

13 主题	4 听众	594 积分

升级 98%

该用户从未签到

国际赛参赛者

群组: 数模应用

群组: LINGO

群组: 四川农业大学数学建模协会

群组: 重庆交通大学数学建模协会

群组: Mathematica研究小组

3^#

发表于 2009-8-16 11:36 |只看该作者 |招呼Ta 关注Ta

本帖最后由追梦者于 2009-8-16 11:41 编辑

O(∩_∩)O~程序改出来了：
sets:
block/1..5/:a,y;
BXB(block,block):t,x;
endsets
data:
a=200,180,300,160,350;
t=5,20,15,25,10,
  20,4,20,15,25,
  15,20,6,25,15,
  25,15,25,4,12,
  10,25,15,12,5;
enddata
min=@max(BXB:t*x);
@sum(block:y)=2;
@for(block(i):
   @sum(block(j):x(i,j))=a(i));!这里少个“）”;
@for(block(j):
   @sum(block(i):x(i,j))<=600*y(j));!这里少个"）";
@for(BXB:
@gin(x));
@for(block:
@bin(y));
!按照你的程序它会提示lack parenthesis,说的是少了右括号，这是在上面做循环的时候落的;