鋼管訂購和運輸論文(參考版)
2025-06-29 18:59本頁面
【正文】 l(21)=right(20)+left(21)。l(19)=right(17)+left(19)。l(17)=middle(11)+middle(17)。for(zd(j):sum(sch(i):n(i,j))=left(j)+right(j)+middle(j))。for(zd(j)|jlt15:right(j)+left(j+1)=l(j))。for(zd(j)|jne9 and jne11 and jne17:middle(j)=0)。for(sch(i):sum(zd(j):n(i,j))=s(i)*c(i))。for(sch(i):sum(zd(j):n(i,j))=500*c(i))。gin(sum(link(i,j):n(i,j)))。for(sch(i):bin(c(i)))。!約束條件。enddata!目標(biāo)函數(shù)。39。)。cost=file(39。39。)。endsetsdata:p=file(39。!cost表示最小單位運輸費用,x表示某廠到某一處站點的運輸量。!十五個站點,left表示某站點向左運輸?shù)牧?，right表示某站點向右運輸?shù)牧?middle表示第三個鋪設(shè)方向，l表示相鄰兩個站點的距離。Lingo程序：model:sets:!七個生產(chǎn)廠c表示是否運輸,p表示單位鋼管的售價，s表示規(guī)定期限內(nèi)的最大生產(chǎn)能力。p(7)=p(5)=155。p(3)=155。p(1)=!在某站點的運輸量為左右鋪設(shè)量的總和。!相鄰兩站點間管道的鋪設(shè)量為站點間距。!各廠最大產(chǎn)量的約束。!若生產(chǎn)最低產(chǎn)量為500單位或者不生產(chǎn)，c(i,j)為1，n(i,j)不小于500，c（i,j)為0，n(i,j)為0。!總生產(chǎn)量為鋪設(shè)管道的長度。!運輸量為整數(shù)約束。!c為01約束條件。left(1)=0。!約束條件。enddata!目標(biāo)函數(shù)。39。)。cost=file(39。39。link(sch,zd):cost,n。zd/1..15/:left,right,l。sch/1..7/:p,s,c。 end if c(i,k)a(i,7)+b(k,35) c(i,k)=a(i,7)+b(k,35)。 end end endendfor i=1:7for k=1:15 if c(i,k)a(i,1)+b(k,33) c(i,k)=a(i,1)+b(k,33)。 otherwise a(i,j)=ceil((a(i,j)1000)/100)*5+60。 case m9 a(i,j)=55。 case m7 a(i,j)=44。 case m5 a(i,j)=32。 case m3 a(i,j)=26。 case m1 a(i,j)=20。 m0(k)={900+k}。 m8(k)={700+k}。endfor k=1:100 m6(k)={500+k}。 m4(k)={400+k}。endfor k=1:50 m2(k)={300+k}。 end end end end b,path將最短路程換算成運輸費用的程序：b=b*。 for k=1:n for i=1:n for j=1:n if b(i,j)b(i,k)+b(k,j) b(i,j)=b(i,k)+b(k,j)。%M為充分大的正實數(shù) b=b+((b==0)eye(n))*M。 b=b+b39。b(15,31)=20。b(14,29)=110。b(12,27)=10。b(10,25)=70。b(9,24)=42。b(8,9)=680。b(7,22)=31。b(6,20)=5。b(5,19)=10。b(4,18)=600。b(3,17)=2。b(2,16)=3。b(1,2)=104。endendendenda, path站點到公路網(wǎng)結(jié)點的最短距離: n=32。for k=1:nfor i=1:nfor j=1:nif a(i,j)a(i,k)+a(k,j)a(i,j)=a(i,k)+a(k,j)。%M為充分大的正實數(shù)a=a+((a==0)eye(n))*M。a=a+a39。a(16,24)=70。a(15,16)=a(13,14)=70。a(11,
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1