Ford-Fulkerson算法计算如下网络中的最大流

晒个小太阳。

用Ford-Fulkerson算法计算如下网络中的最大流，每条弧上的两个数字分别表示容量和当前流量。
0 ?, l6 ~# ?0 N  X$ O7 i
编写程序如下：
clc,clear,M=1000;
, {3 x; [8 A2 O0 `" K3 t, ~- r0 lu(1,2)=1;u(1,3)=1;u(1,4)=2;
u(2,3)=1;u(2,5)=2;
u(3,5)=1;
" n  x1 d) b- B" ~3 k: eu(4,3)=3;u(4,5)=3;
f(1,2)=1;f(1,3)=0;f(1,4)=1;
f(2,3)=0;f(2,5)=1;
' U- O) Y. O/ yf(3,5)=1;
f(4,3)=1;f(4,5)=0;
1 X) v" I: W8 yn=length(u);
list=[];
1 T- b, U8 t2 {maxf=zeros(1:n);maxf(n)=1;
while maxf(n)>0
   maxf=zeros(1,n);pred=zeros(1,n);
   list=1;record=list;maxf(1)=M;
" `5 z- i' J( A/ u# z" w   while (~isempty(list))&(maxf(n)==0)
      flag=list(1);list(1)=[];
      index1=(find(u(flag,:)~=0));
& n: Y' `- Y. i  k" B7 Z- a      label1=index1(find(u(flag,index1)...
0 h4 Q' r' W: U      -f(flag,index1)~=0));
# f# t, u( H5 g$ c      label1=setdiff(label1,record);
; h, R$ P5 P3 \# ~7 F: O9 g1 f9 s      list=union(list,label1);
      pred(label1(find(pred(label1)==0)))=flag;
      maxf(label1)=min(maxf(flag),u(flag,label1)...
      -f(flag,label1));
      record=union(record,label1);
$ p- x0 o8 j5 X' b      label2=find(f(:,flag)~=0);
      label2=label2';
      label2=setdiff(label2,record);
      list=union(list,label2);
; A+ ]4 C  L( y/ w, Y) x      pred(label2(find(pred(label2)==0)))=-flag;
1 s( i& ?+ O! w      maxf(label2)=min(maxf(flag),f(label2,flag));
      record=union(record,label2);
   end
      if maxf(n)>0
         v2=n;
         v1=pred(v2);
         while v2~=1
           if v1>0
7 [5 P1 O2 K  ?, ^' P$ D# ~1 w              f(v1,v2)=f(v1,v2)+maxf(n);
           else
           v1=abs(v1);
! S1 O) H; E6 ]* a9 S8 ^! d, M           f(v2,v1)=f(v2,v1)-maxf(n);
           end
         v2=v1;
' l$ G' ~/ U4 U" O: |9 B; R# ?         v1=pred(v2);
        end
! x& l$ L# i2 K" i" n      end
   end
; N! f* o6 E# P: a' L9 wf
我想知道这个程序中：

4 Z$ U4 _+ T5 T$ Z9 F$ M: R1.什么是当前流量？这个应该不是求最大流的通用程序吧，因为有的题目里没有当前流量这个东西。
2.还有那个输出f是什么东东？？可行流矩阵式什么意思？？矩阵的含义完全不懂。比如说这个程序运行出来的那个矩阵我就不清楚他的意思。郁闷。

$ \* [" ~" b% @: d0 i6 g4 S& G) B谢谢啦。

木兆木风

f表示当前流量，u表示容量