fly_ruc 发表于 2006-8-25 15:43

[求助]这是我编写的2005年B题第二问的程序，lingo说有错误，但我不知道怎么改

<p>model:<br/>sets:<br/>&nbsp;demand/1..1000/:;<br/>&nbsp;supply/1..100/:d;<br/>&nbsp;link(demand,supply):a,c,x;<br/>endsets<br/>&nbsp;<a href="mailto:min=@sum(link(demand,supply):a(i,j)*x(i,j">min=@sum(link(demand,supply):a(i,j)*x(i,j</a>));<br/>&nbsp;<a href="mailto:a=@if(c#gt#0,c,0">a=@if(c#gt#0,c,0</a>);<br/>data:<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d=10 &nbsp;40 &nbsp;15 &nbsp;20 &nbsp;20 &nbsp;12 &nbsp;30 &nbsp;33 &nbsp;35 &nbsp;25 &nbsp;29 &nbsp;31 &nbsp;28 &nbsp;61 &nbsp;2 &nbsp;28 &nbsp;28 &nbsp;26 &nbsp;31 &nbsp;38 &nbsp;34 &nbsp;29 &nbsp;35 &nbsp;22 &nbsp;29 &nbsp;81 &nbsp;1 &nbsp;19 &nbsp;25 &nbsp;41 &nbsp;29 &nbsp;35 &nbsp;1 &nbsp;40 &nbsp;39 &nbsp;5 &nbsp;106 &nbsp;30 &nbsp;29 &nbsp;2 &nbsp;110 &nbsp;6 &nbsp;15 &nbsp;36 &nbsp;34 &nbsp;11 &nbsp;32 &nbsp;25 &nbsp;2 &nbsp;64 &nbsp;40 &nbsp;26 &nbsp;33 &nbsp;26 &nbsp;61 &nbsp;2 &nbsp;11 &nbsp;38 &nbsp;44 &nbsp;36 &nbsp;27 &nbsp;31 &nbsp;42 &nbsp;44 &nbsp;12 &nbsp;81 &nbsp;10 &nbsp;35 &nbsp;33 &nbsp;30 &nbsp;2 &nbsp;40 &nbsp;15 &nbsp;11 &nbsp;28 &nbsp;24 &nbsp;20 &nbsp;88 &nbsp;9 &nbsp;28 &nbsp;31 &nbsp;8 &nbsp;22 &nbsp;3 &nbsp;70 &nbsp;21 &nbsp;34 &nbsp;4 &nbsp;38 &nbsp;27 &nbsp;39 &nbsp;28 &nbsp;24 &nbsp;15 &nbsp;50 &nbsp;24 &nbsp;36 &nbsp;55 &nbsp;2 &nbsp;40;<br/>&nbsp;<a href="mailto:c=@ole('table.xls'">c=@ole('table.xls'</a>);<br/>enddata</p><p>&nbsp;@for(demand(i):@sum(supply(j):x(i,j))&lt;=d(j););<br/>&nbsp;@for(supply(j):@sum(demand(i):x(i,j))&lt;=3;);<br/>&nbsp;@for(demand(i):@for(supply(j):@bin(x(i,j))));</p><p>end<br/>&nbsp;</p>

红尘戏子 发表于 2006-10-1 11:42

<p>demand/1..1000/:;<br/>model:<br/>sets:<br/>&nbsp;demand/1..1000/;<br/>&nbsp;supply/1..100/:d;<br/>&nbsp;link(demand,supply):a,c,x;<br/>endsets</p><p>&nbsp;<a href="mailto:min=@sum(link(i,j):a(i,j)*x(i,j">min=@sum(link(i,j):a(i,j)*x(i,j</a>));<br/>@for(link:a=@if(c#gt#0,c,0)); <br/>data:<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d=10&nbsp; 40&nbsp; 15&nbsp; 20&nbsp; 20&nbsp; 12&nbsp; 30&nbsp; 33&nbsp; 35&nbsp; 25&nbsp; 29&nbsp; 31&nbsp; 28&nbsp; 61&nbsp; 2&nbsp; 28&nbsp; 28&nbsp; 26&nbsp; 31&nbsp; 38&nbsp; 34&nbsp; 29&nbsp; 35&nbsp; 22&nbsp; 29&nbsp; 81&nbsp; 1&nbsp; 19&nbsp; 25&nbsp; 41&nbsp; 29&nbsp; 35&nbsp; 1&nbsp; 40&nbsp; 39&nbsp; 5&nbsp; 106&nbsp; 30&nbsp; 29&nbsp; 2&nbsp; 110&nbsp; 6&nbsp; 15&nbsp; 36&nbsp; 34&nbsp; 11&nbsp; 32&nbsp; 25&nbsp; 2&nbsp; 64&nbsp; 40&nbsp; 26&nbsp; 33&nbsp; 26&nbsp; 61&nbsp; 2&nbsp; 11&nbsp; 38&nbsp; 44&nbsp; 36&nbsp; 27&nbsp; 31&nbsp; 42&nbsp; 44&nbsp; 12&nbsp; 81&nbsp; 10&nbsp; 35&nbsp; 33&nbsp; 30&nbsp; 2&nbsp; 40&nbsp; 15&nbsp; 11&nbsp; 28&nbsp; 24&nbsp; 20&nbsp; 88&nbsp; 9&nbsp; 28&nbsp; 31&nbsp; 8&nbsp; 22&nbsp; 3&nbsp; 70&nbsp; 21&nbsp; 34&nbsp; 4&nbsp; 38&nbsp; 27&nbsp; 39&nbsp; 28&nbsp; 24&nbsp; 15&nbsp; 50&nbsp; 24&nbsp; 36&nbsp; 55&nbsp; 2&nbsp; 40;<br/>&nbsp;<a href="mailto:c=@ole('table.xls'">c=@ole('table.xls'</a>);<br/>enddata</p><p>&nbsp;@for(demand(i):@sum(supply(j):x(i,j))&lt;=d(j););<br/>&nbsp;@for(supply(j):@sum(demand(i):x(i,j))&lt;=3;);<br/>&nbsp;@for(demand(i):@for(supply(j):@bin(x(i,j))));</p><p>end</p><p></p><p>可以运行</p><p></p>

shijiangtao 发表于 2009-1-20 21:45

你的题目呢？

daihaifeng 发表于 2009-3-4 19:55

不知道耶，数据输入会不会有错

龙泉飞剑 发表于 2016-8-6 17:31

我就默默来过，看下

明月此时有 发表于 2016-8-22 16:50

我也是默默的过来看下，

EvanZQ 发表于 2016-8-22 21:07

不太清楚{:3_55:}
页: [1]
查看完整版本: [求助]这是我编写的2005年B题第二问的程序，lingo说有错误，但我不知道怎么改