[网络流][带点权边权图的转换][BZOJ 2039]人员雇佣

Description

作为一个富有经营头脑的富翁，小L决定从本国最优秀的经理中雇佣一些来经营自己的公司。这些经理相互之间合作有一个贡献指数,（我们用Ei,j表示i经理对j经理的了解程度），即当经理i和经理j同时被雇佣时，经理i会对经理j做出贡献，使得所赚得的利润增加Ei,j。当然，雇佣每一个经理都需要花费一定的金钱Ai，对于一些经理可能他做出的贡献不值得他的花费，那么作为一个聪明的人，小L当然不会雇佣他。 然而，那些没有被雇佣的人会被竞争对手所雇佣，这个时候那些人会对你雇佣的经理的工作造成影响，使得所赚得的利润减少Ei,j（注意：这里的Ei,j与上面的Ei,j 是同一个）。 作为一个效率优先的人，小L想雇佣一些人使得净利润最大。你可以帮助小L解决这个问题吗？

Analysis

嘛，这道题算是2007年国家队论文胡伯涛《最小割模型在信息学竞赛中的应用》的一个拓展运用吧。不过要注意的是一条边的权值被算了两次，还有算最小割时每条边的权值要乘个四...这里题目具体分析我不可能给得出。直接上代码吧...

var  n,vs,vt,edge,num,i,j,x,u,ans:longint;  e:array[1..1000000,1..3] of longint;  d,vd,fr,p,du:array[0..1010] of longint;procedure add(x,y,c:longint);begin  inc(edge); e[edge,1]:=y; e[edge,2]:=fr[x]; e[edge,3]:=c; fr[x]:=edge;end;function max(a,b:longint):longint;begin  if a>b then exit(a) else exit(b);end;function min(a,b:longint):longint;begin  if a<b then exit(a) else exit(b);end;function dfs(u,flow:longint):longint;var  k,tmp:longint;begin  if u=vt then exit(flow);  dfs:=0;  k:=fr[u];  while k<>0 do begin    if (e[k,3]>0) and (d[u]=d[e[k,1]]+1) then begin      tmp:=dfs(e[k,1],min(e[k,3],flow-dfs));      inc(dfs,tmp);      dec(e[k,3],tmp);      if odd(k) then inc(e[k+1,3],tmp) else inc(e[k-1,3],tmp);      if dfs=flow then exit;    end;    k:=e[k,2];  end;  dec(vd[d[u]]);  if vd[d[u]]=0 then d[vs]:=num;  inc(d[u]);  inc(vd[d[u]]);end;begin  readln(n);  vs:=0; vt:=n+1; num:=vt+1; vd[0]:=num;  for i:=1 to n do read(p[i]);  for i:=1 to n do begin    for j:=1 to n do begin      read(x);      if j<=i then continue;      inc(du[i],x+x); inc(du[j],x+x);      add(i,j,x+x+x+x);      add(j,i,x+x+x+x);    end;  end;  for i:=1 to n do u:=max(u,du[i]-2*p[i]);  for i:=1 to n do begin add(vs,i,u); add(i,vs,0); end;  for i:=1 to n do begin add(i,vt,u+2*p[i]-du[i]); add(vt,i,0); end;  while d[vs]<num do ans:=ans+dfs(vs,maxlongint);  ans:=(u*n-ans) div 2;  writeln(ans);end.