数学建模社区-数学中国

标题: 我的编程对吗？大侠们多多指教。 [打印本页]

作者: ivyardam2012 时间: 2012-3-3 12:54
标题: 我的编程对吗？大侠们多多指教。

Model

[_1]!4supply,4 demand

[_2]Transshipment problem;

[_3]set:

[_4]m/1,2,3,4/:supply;

[_5]n/1,2,3,4/:demand;

[_6]k/1,2,3,4/:R;

[_7]linkⅠ(supply, demand):c,x;

[_8]linkⅡ(k,demand):R,y;

[_9]A !A(i,j)=1 if we use lind i,j;

[_10]U, !the limited of vessel

[_11]Endsets

[_12] data:

[_13]supply=300,200,450,320;

[_14]demand=300,150,500,320;

[_15]C=70,0,50,0

50,0,30,0

0,100,120,80

0,240,200,80;

[_16]R=210,180,190,230;

[_17]A=1,0,1,0

1,0,1,1

0,1,1,1

0,1,1,1;

[_18]U=300,0,300,0

350,0,350,360

0,200,300,360

0,200,200,280;

[_19]enddata

[_19]!the objective

[_20][obj]min=@sum(linkⅠ:c(i,j)*x(i,j))+@sum(linkⅡ:R(j)*y(j));

[_21]@for(demand(j):[sup]

[_22] @sum(supply(i

x(i,j)*A(i,j)+y(j)=demand(j);

[_23]@for(supply(i):[MID]

[_24] @sum(demand(j):x(i,j)* A(i,j)<=supply(i);

[_25]@for(linkⅠ:[DEM]

[_26] @sum(linkⅠ:x(p,q)*t(p,q,i,j),=U(i,j);

[_27]end

2.bmp (750.05 KB, 下载次数: 143)

1.bmp (841.93 KB, 下载次数: 136)

作者: 牛勇 时间: 2012-3-3 17:18
我还不懂这个啊啊啊

作者: 雪凌寒霜 时间: 2012-3-4 10:34
呵呵，这个还真不懂！

作者: 紫砂蓝飞 时间: 2012-3-6 00:35
不懂啊

作者: yanke1311 时间: 2012-3-6 11:39
不懂啊刚学

作者: 爱吃苹果哦 时间: 2012-5-13 15:35
运行结果怎样啊？不知道楼主还经常来这里吗？

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