最小费用最大流 网络流.doc

最小费用最大流程序ProgramMax_Flow_Min_Cost;/注意:图中任意两点之间至多有一条直连通有向边!typenettype=recordc,w,f:longint;/弧的容量，每单位通过量费用，可行流量end;btype=recordv,fa:longint;/到源点的最短距离，父辈end;varnet:array1.100,1.100ofnettype;/网络N的邻接矩阵best:array1.100ofbtype;/求最短路时用的数组n,s,t:word;/顶点数，源点、汇点的编号minc:longint;/最小总费用procedureinit;/边目录输入