【正文】 s,vexs,ed,tem)flag=1。kkk=0。 temp=length(ded) dvex=ded(temp)。41 26]。 else d2=d2+d(n,1)。 for i=1:n d1=d1+d(C(i),C(i+1))。)。endb=a。m=size(d)。 nump(inp)=nump(inp)1。 end inp=find(q==1)。0 0 0 0 0 0 2 0。else f=f1。 end end end end end if (No(n)|pd) break。0 0 0 0 8。 a(j,i)=b(i,j)。 end pd=0。for (i=1:n) for (j=1:n) zwf=zwf+b(i,j)*f(i,j)。 elseif (a(s(t),t)0) dvtt=f(t,s(t))。 f(i,j)==0) a(i,j)=b(i,j)。wf。 f(j,i)0) No(j)=i。247。b(:,inq)=b(:,inq)+cmin。 inp=find(p==1)。 eq=inp(inq(1))。endinx=sub2ind(size(a),e(:,1),e(:,2))。 W(:,t1)=0。 %給點命名endv2=[v。Any cirlce is the right answer.39。%連線plot([v(n,1),v(1,1)],[v(n,2),v(1,2)])。7 64。 end end if lt==0 ded(ddd)=edd(l1)。ded=[]。 c=0。) T=0。destination]。k=1:l。 B=B39。 p=[p4 p5(2:length(p5)) p6(2:length(p6))]。程序四、(計算某點到其它所有點的最短距離)function[Pm D]=n1short(W,k)n=size(W,1)。 end end end m=m+1。 z(i)=0。 W=zeros(n,n)。 for i=1:m a=find(F(:,i)~=0)。第一講：圖論模型程序一：可達矩陣算法%根據(jù)鄰接矩陣A（有向圖）求可達矩陣P（有向圖）function P=dgraf(A)n=size(A,1)。 W(a(1),a(2))=1。 for i=1:m a=find(F(:,i)~=0)。end i=1。endu=U(k1,k2)。D=zeros(1,n)。endP。 c=0。listV(k)=0。for g=1:e1 c(g)=a(T(1,g),T(2,g))。c=0。 for g=1:eds c=c+d(T(1,g),T(2,g))。if length(edd)==1 dvex=edd。 ddd=ddd+1。22 60。for i =1:n for j=1:n d(i,j)=sqrt((v(i,1)v(j,1))^2+(v(i,2)v(j,2))^2)。)。v(1,1),v(1,2)]。W(:,t2)=0。e=[e,a(inx)]。 total=total+1。 n=size(inp)。第六講：最大流最小費用問題程序一：2F算法(FordFulkerson算法)，求最大流%C=[0 5 4 3 0 0 0 0。%wf表示最大流的流量n=length(C)。d(j)=f(j,i)。程序二：BusackerGowan算法(求最大流最小費用)%C=[0 15 16 0 0。 elseif (C(i,j)0 amp。 end if (dvtdvtt) dvt=dvtt。 endendf。 end t=s(t)。 elseif (C(i,j)0) a(i,j)=b(i,j)。0 11 0 17 0。 if (d(j)d(i)) d(j)=d(i)。 f=zeros(n,n)。0 0 0 0 0 3 2 0。 q(inq)=1。 inp=find(d(:,eq))。function [e,total]=fc02(d)total=0。程序二：匈牙利算法（完美匹配算法,包括三個文件fc01,fc02,fc03）function [e,s]=fc01(a,flag)if nargin==1 flag=0。r39。 d1=0。for i=1:n if in d2=d2+d(i,i+1)。18 40。 elseif templength(dvex1) amp。dd1=0。 break。 flag=0。第四講：Euler圖和Hamilton圖程序一：Fleury算法（在一個Euler圖中找出Euler環(huán)游）注：包括三個文件；, , function [T c]=fleuf1(d)%注：必須保證是Euler環(huán)游，否則輸出T=0,c=0n=length(d)。e=1。 k=1。第三講：最小生成樹程序一：最小生成樹的Krusk