钢管的订购和运输模型程序.doc

《钢管的订购和运输模型程序.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、模型一的matlab程序!A为邻接矩阵；T，T2分别为铁路的矩阵和铁路的费用矩阵；R，R2分别为公路的矩阵和公路的费用矩阵；w,Q为总费用矩阵；cost为S到A的各项费用矩阵A=ones(39,39);fori=1:39;forj=1:39;ifi==jA(i,j)=0;elseA(i,j)=inf;endendendA(8,10)=450;A(9,10)=80;A(10,11)=1150;A(11,16)=1100;A(12,13)=306;A(13,14)=195;A(1,14)=20;A(1,16)=202;A(2,16)=1200;A(16,17)=720;A(3

2、,17)=690;A(17,18)=520;A(18,19)=170;A(4,19)=690;A(19,20)=160;A(5,15)=462;A(15,19)=88;A(20,21)=70;A(20,22)=320;A(22,23)=160;A(6,23)=70;A(23,24)=290;A(7,24)=30;forj=1:39;fori=1:j-1;A(j,i)=A(i,j);endendT=A;m=1;whilem<=39fori=1:39forj=1:39ifT(i,j)>T(i,m)+T(m,j);T(i,j)=T(i,m)+T(m,j);endendendm=

3、m+1;endT2=ones(39,39);fori=1:39;forj=1:39;ifT(i,j)==0T2(i,j)=T(i,j);elseifT(i,j)>0&T(i,j)<=300T2(i,j)=20;elseifT(i,j)>300&T(i,j)<=350T2(i,j)=23;elseifT(i,j)>350&T(i,j)<=400T2(i,j)=26;elseifT(i,j)>400&T(i,j)<=450T2(i,j)=29;elseifT(i,j)>450&T(i,j)<=500T2(i,j)=32;elseifT(i,j)>500&T(i,j)<=600

4、T2(i,j)=37;elseifT(i,j)>600&T(i,j)<=700T2(i,j)=44;elseifT(i,j)>700&T(i,j)<=800T2(i,j)=50;elseifT(i,j)>800&T(i,j)<=900T2(i,j)=55;elseifT(i,j)>900&T(i,j)<=1000T2(i,j)=60;elseT2(i,j)=60+ceil((T(i,j)-1000)/100)*5;endendendB=ones(39,39);fori=1:39;forj=1:39;ifi==jB(i,j)=0;elseB(i,j)=inf;endende

5、ndB(8,26)=3;B(9,27)=2;B(11,28)=600;B(12,29)=10;B(13,30)=5;B(14,31)=10;B(1,31)=31;B(16,32)=12;B(17,33)=42;B(18,34)=70;B(15,35)=10;B(21,36)=10;B(22,37)=62;B(6,38)=110;B(23,38)=30;B(24,39)=20;B(7,39)=20;B(25,26)=104;B(26,27)=301;B(27,28)=750;B(28,29)=606;B(29,30)=194;B(30,31)=205;B(31,32)=20

6、1;B(32,33)=680;B(33,34)=480;B(34,35)=300;B(35,36)=220;B(36,37)=210;B(37,38)=420;B(38,39)=500;forj=1:39;fori=1:j-1;B(j,i)=B(i,j);endendR=B;g=1;whileg<=39;fori=1:39;forj=1:39;ifR(i,j)>R(i,g)+R(g,j);R(i,j)=R(i,g)+R(g,j);endendendg=g+1;endR2=0.1.*R;w=ones(39,39);fori=1:39;forj=1:39;ifT2(i,j)>

7、R2(i,j)w(i,j)=R2(i,j);elsew(i,j)=T2(i,j);endendendf=1;whilef<=39fori=1:39forj=1:39ifw(i,j)>w(i,f)+w(f,j)w(i,j)=w(i,f)+w(f,j);endendendf=f+1;endQ=ones(39,39);fori=1:7forj=25:39cost(i,j)=w(i,j)endend模型一的matlab结果cost=Columns25through39170.7000160.3000140.200098.600038.