圖論-網(wǎng)絡(luò)流之最小費(fèi)用最大流問(wèn)題

n=5;C=[0 15 16 0 0
    0 0 0 13 14
    0 11 0 17 0
    0 0 0 0 8
    0 0 0 0 0]; %弧容量
b=[0 4 1 0 0
    0 0 0 6 1
    0 2 0 3 0
    0 0 0 0 2
    0 0 0 0 0]; %弧上單位流量的費(fèi)用
wf=0;wf0=Inf; %wf 表示最大流量, wf0 表示預(yù)定的流量值
for(i=1:n)for(j=1:n)f(i,j)=0;end;end %取初始可行流 f 為零流
while(1)
    for(i=1:n)for(j=1:n)if(j~=i)a(i,j)=Inf;end;end;end%構(gòu)造有向賦權(quán)圖
    for(i=1:n)for(j=1:n)if(C(i,j)>0&f(i,j)==0)a(i,j)=b(i,j);
            elseif(C(i,j)>0&f(i,j)==C(i,j))a(j,i)=-b(i,j);
            elseif(C(i,j)>0)a(i,j)=b(i,j);a(j,i)=-b(i,j);end;end;end
    for(i=2:n)p(i)=Inf;s(i)=i;end %用 Ford 算法求最短路, 賦初值
    for(k=1:n)pd=1; %求有向賦權(quán)圖中 vs 到 vt 的最短路
        for(i=2:n)for(j=1:n)if(p(i)>p(j)+a(j,i))p(i)=p(j)+a(j,i);s(i)=j;pd=0;end;end;end
        if(pd)break;end;end %求最短路的 Ford 算法結(jié)束
    if(p(n)==Inf)break;end %不存在 vs 到 vt 的最短路, 算法終止. 注意在求最小費(fèi)用最大流時(shí)構(gòu)造有
    %向賦權(quán)圖中不會(huì)含負(fù)權(quán)回路, 所以不會(huì)出現(xiàn) k=n
    dvt=Inf;t=n; %進(jìn)入調(diào)整過(guò)程, dvt 表示調(diào)整量
    while(1) %計(jì)算調(diào)整量
        if(a(s(t),t)>0)dvtt=C(s(t),t)-f(s(t),t); %前向弧調(diào)整量
        elseif(a(s(t),t)<0)dvtt=f(t,s(t));end %后向弧調(diào)整量
        if(dvt>dvtt)dvt=dvtt;end
        if(s(t)==1)break;end %當(dāng) t 的標(biāo)號(hào)為 vs 時(shí), 終止計(jì)算調(diào)整量
        t=s(t);end %繼續(xù)調(diào)整前一段弧上的流 f
    pd=0;if(wf+dvt>=wf0)dvt=wf0-wf;pd=1;end%如果最大流量大于或等于預(yù)定的流量值
    t=n;while(1) %調(diào)整過(guò)程
        if(a(s(t),t)>0)f(s(t),t)=f(s(t),t)+dvt; %前向弧調(diào)整
        elseif(a(s(t),t)<0)f(t,s(t))=f(t,s(t))-dvt;end %后向弧調(diào)整
        if(s(t)==1)break;end %當(dāng) t 的標(biāo)號(hào)為 vs 時(shí), 終止調(diào)整過(guò)程
        t=s(t);end
    if(pd)break;end %如果最大流量達(dá)到預(yù)定的流量值
    wf=0; for(j=1:n)wf=wf+f(1,j);end;end %計(jì)算最大流量
zwf=0;for(i=1:n)for(j=1:n)zwf=zwf+b(i,j)*f(i,j);end;end %計(jì)算最小費(fèi)用
f %顯示最小費(fèi)用最大流
wf %顯示最小費(fèi)用最大流量
zwf %顯示最小費(fèi)用, 程序結(jié)束

參考資料:圖論算法及其 MATLAB 程序代碼

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市憔儿,隨后出現(xiàn)的幾起案子侥袜,更是在濱河造成了極大的恐慌躺枕,老刑警劉巖染簇,帶你破解...
    沈念sama閱讀 222,252評(píng)論 6 516
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件娄蔼,死亡現(xiàn)場(chǎng)離奇詭異窥翩,居然都是意外死亡恭金,警方通過(guò)查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 94,886評(píng)論 3 399
  • 文/潘曉璐 我一進(jìn)店門勇边,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)犹撒,“玉大人,你說(shuō)我怎么就攤上這事粒褒∈都眨” “怎么了?”我有些...
    開(kāi)封第一講書人閱讀 168,814評(píng)論 0 361
  • 文/不壞的土叔 我叫張陵奕坟,是天一觀的道長(zhǎng)祥款。 經(jīng)常有香客問(wèn)我,道長(zhǎng)月杉,這世上最難降的妖魔是什么刃跛? 我笑而不...
    開(kāi)封第一講書人閱讀 59,869評(píng)論 1 299
  • 正文 為了忘掉前任,我火速辦了婚禮苛萎,結(jié)果婚禮上奠伪,老公的妹妹穿的比我還像新娘跌帐。我一直安慰自己,他們只是感情好绊率,可當(dāng)我...
    茶點(diǎn)故事閱讀 68,888評(píng)論 6 398
  • 文/花漫 我一把揭開(kāi)白布。 她就那樣靜靜地躺著究履,像睡著了一般滤否。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上最仑,一...
    開(kāi)封第一講書人閱讀 52,475評(píng)論 1 312
  • 那天藐俺,我揣著相機(jī)與錄音,去河邊找鬼泥彤。 笑死欲芹,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的吟吝。 我是一名探鬼主播菱父,決...
    沈念sama閱讀 41,010評(píng)論 3 422
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼剑逃!你這毒婦竟也來(lái)了浙宜?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書人閱讀 39,924評(píng)論 0 277
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤蛹磺,失蹤者是張志新(化名)和其女友劉穎粟瞬,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體萤捆,經(jīng)...
    沈念sama閱讀 46,469評(píng)論 1 319
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡裙品,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,552評(píng)論 3 342
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了俗或。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片市怎。...
    茶點(diǎn)故事閱讀 40,680評(píng)論 1 353
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖蕴侣,靈堂內(nèi)的尸體忽然破棺而出焰轻,到底是詐尸還是另有隱情,我是刑警寧澤昆雀,帶...
    沈念sama閱讀 36,362評(píng)論 5 351
  • 正文 年R本政府宣布辱志,位于F島的核電站,受9級(jí)特大地震影響狞膘,放射性物質(zhì)發(fā)生泄漏揩懒。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 42,037評(píng)論 3 335
  • 文/蒙蒙 一挽封、第九天 我趴在偏房一處隱蔽的房頂上張望已球。 院中可真熱鬧,春花似錦、人聲如沸智亮。這莊子的主人今日做“春日...
    開(kāi)封第一講書人閱讀 32,519評(píng)論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)阔蛉。三九已至弃舒,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間状原,已是汗流浹背聋呢。 一陣腳步聲響...
    開(kāi)封第一講書人閱讀 33,621評(píng)論 1 274
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留颠区,地道東北人削锰。 一個(gè)月前我還...
    沈念sama閱讀 49,099評(píng)論 3 378
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像毕莱,于是被迫代替她去往敵國(guó)和親器贩。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,691評(píng)論 2 361

推薦閱讀更多精彩內(nèi)容