200908网友求助《程序调试》

mezhaoyun 发表于 2009-8-16 11:20

本帖最后由为你奋斗于 2009-12-3 15:42 编辑

某市计划为新建的5个居民小区中的两个各设立一所小学。并且给出各小区内及小区间平均步行时间及各小区的小学生数。该教委希望：两所小学的招生人数基本持平，学生总的上学步行时间最短。请向该教委提供决策建议：两所学校分别建在哪两个小区，以及各居民小区学生应分配到哪所小学才能满足教委的要求。 附：表小区内及小区间的平均步行时间及小学生人数 <TABLE class="t_table"><TBODY><TR><TD colspan="1" rowspan="2" width="71">小区 </TD><TD colspan="5" rowspan="1" width="355">在该小区建立小学 </TD><TD colspan="1" rowspan="2" width="71">小学生人数 </TD></TR><TR><TD colspan="5" rowspan="1" width="355">1 2 3 4 5 </TD></TR><TR><TD colspan="1" rowspan="1" width="71">1 </TD><TD colspan="1" rowspan="1" width="71">5 </TD><TD colspan="1" rowspan="1" width="71">20 </TD><TD colspan="1" rowspan="1" width="71">15 </TD><TD colspan="1" rowspan="1" width="71">25 </TD><TD colspan="1" rowspan="1" width="71">10 </TD><TD colspan="1" rowspan="1" width="71">200 </TD></TR><TR><TD colspan="1" rowspan="1" width="71">2 </TD><TD colspan="1" rowspan="1" width="71">20 </TD><TD colspan="1" rowspan="1" width="71">4 </TD><TD colspan="1" rowspan="1" width="71">20 </TD><TD colspan="1" rowspan="1" width="71">15 </TD><TD colspan="1" rowspan="1" width="71">25 </TD><TD colspan="1" rowspan="1" width="71">180 </TD></TR><TR><TD colspan="1" rowspan="1" width="71">3 </TD><TD colspan="1" rowspan="1" width="71">15 </TD><TD colspan="1" rowspan="1" width="71">20 </TD><TD colspan="1" rowspan="1" width="71">6 </TD><TD colspan="1" rowspan="1" width="71">25 </TD><TD colspan="1" rowspan="1" width="71">15 </TD><TD colspan="1" rowspan="1" width="71">300 </TD></TR><TR><TD colspan="1" rowspan="1" width="71">4 </TD><TD colspan="1" rowspan="1" width="71">25 </TD><TD colspan="1" rowspan="1" width="71">15 </TD><TD colspan="1" rowspan="1" width="71">25 </TD><TD colspan="1" rowspan="1" width="71">4 </TD><TD colspan="1" rowspan="1" width="71">12 </TD><TD colspan="1" rowspan="1" width="71">160 </TD></TR><TR><TD colspan="1" rowspan="1" width="71">5 </TD><TD colspan="1" rowspan="1" width="71">10 </TD><TD colspan="1" rowspan="1" width="71">25 </TD><TD colspan="1" rowspan="1" width="71">15 </TD><TD colspan="1" rowspan="1" width="71">12 </TD><TD colspan="1" rowspan="1" width="71">5 </TD><TD colspan="1" rowspan="1" width="71">350 </TD></TR></TBODY></TABLE> 用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 <A href="mailto:min=@max(BXB:t*x" target="_blank">min=@max(BXB:t*x</A>); @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)); 运行时老是提示最后一条出现了错误，如何修改会成功？ 请高手指教，多谢。。。

ddpbhxz 发表于 2009-8-16 11:22

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

追梦者 发表于 2009-8-16 11:36

本帖最后由追梦者于 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,说的是少了右括号，这是在上面做循环的时候落的;

mezhaoyun 发表于 2009-8-17 08:52

3# 追梦者

太感谢了！！！
lingo你学真的很棒

以前没用过lingo，
现在学习只能比照课本来做，
有时候书本上错误还不少，
对于初学者（我自己）来说，
确实有点难度，
真的很感激
。。。:handshake :victory:

xczxtxy 发表于 2009-8-17 10:22

hao hao !!!!!!

页: [1]

数学建模社区-数学中国's Archiver

200908网友求助《程序调试》