圖論網(wǎng)絡(luò)流agent解題報(bào)告

1、Agent 解題沙郡中學(xué)高 992 班湖南【問(wèn)題描述】Agent.doc【算法分析】這是一道典型的圖論問(wèn)題，首先可以根據(jù)問(wèn)題給定的條件，建立起一個(gè)網(wǎng)絡(luò)模型另一方面，因?yàn)橹灰狢ost: Extended;弧的代價(jià)Arc,這條弧的所對(duì)應(yīng)的一條前向弧或后向弧 Next: TLink;end;TPath = object每次求得的增廣軌f, 該節(jié)點(diǎn)在增廣軌上的前驅(qū)節(jié)點(diǎn)Min:eger;表示從初始節(jié)點(diǎn)到該節(jié)點(diǎn)的增廣軌能夠擴(kuò)充的最大流量d: Extended;從初始節(jié)點(diǎn)到該節(jié)點(diǎn)的增廣路徑的總代價(jià)Po end;er: TLink;指向該節(jié)點(diǎn)與其在增廣軌上的前驅(qū)節(jié)點(diǎn)之間的有向弧varG: array 1 Pa

2、th: array n, k, s, t:. 1MaxNode of TLink;鄰接表. MaxNode of TPath; eger;procedure CreateGraph(const x, y, Arc :建立每一條有向弧 varp, q: TLink; begineger; Factor : Extended);New(p); p.c :=q.c := p.Next q.Nextend;New(q);Arc; p.f := Arc; p.n := y; p.Cost := - Factor;Arc; q.f := 0; q.n := x;q.Cost:=Factor;:= Gx;

3、Gx:= Gy; Gy:= p; p.Arc:= q; q.Arc:=:=q;p;procedure varInit;輸出i, s1, x, y, Flow:eger;Temp, Factor: Extended;c: array 1 . MaxN of Extended; beginAssign(Input, InputFileName); Reset(Input);Readln(n, k);s := n + 1; 源點(diǎn)s1 := n + 2; 輔助節(jié)點(diǎn)t := n + for i := for i := begin3;匯點(diǎn)1 to n do Read(ci); 1 to n doRead(

4、x);if x 0 then CreateGraph(s1, i, x, ln(ci); end;Temp := ln(1); CreateGraph(s, s1, k, Temp); for i := 1 to n dobeginRead(x);if x 0 then CreateGraph(i, t, k, end;Read(x, y);while not (x = -1) and (y = -1) do beginReadln(Factor, Flow); Factor := ln(Factor);CreateGraph(x, y, Flow, Factor); CreateGraph(

5、y, x, Flow, Factor); Read(x, y);end;Close(Input); Inc(n, 3); end;Temp);procedure Main; varMore: i, x, Temp:;Setup:eger; Extended;p: TLink; beginrepeatfor i := 1 to n do初始化 path 數(shù)組 with Pathi dobegin := Max; d := Max; Poer:= nil;end;Paths.d := 0;repeat求解目前代價(jià)最小的增廣軌 More := True;for i := 1 to n doif Pa

6、thi.d Max then beginp := Gi;while p nil do beginif p.f 0 then beginTemp := Pathi.d + p.Cost; x := p.n;if Pathx.d Temp + limit then beginMore := False; Pathx.d := Temp;Pathx.f := i;Pathx.Min := Pathi.Min;if p.f Pathx.Mhen Pathx.Min:=p.f;Pathx.Po end;end;p := p.Next; end;end; until More;Setup := Patht

7、.Min;er := p;if Setup = Max then Break;不存在可增廣軌 x := t;while x s do修改增廣軌上弧的流量 beginp := Pathx.Poer;p.f := p.f - Setup; p.Arc.f := p.Arc.f + Setup; x := Pathx.f;end; until False;end;procedure vari, j: Answer,Show;輸出eger;Temp: Extended;p: TLink; beginAnswer := 1;for i := 1 to n do計(jì)算總的安全系數(shù) beginp := Gi;while p nil do beginif p.Cost 0 then beginTemp := Exp(- p.Cost * (p.c - Answer := Answer * Temp;end;p := p.Next; end;end;Assign(Output, OutputFileName); Rewrite(Output);i := 0;while Answer 10000 dop.f);begin Answer := Answer * 10; Inc(i)