工作安排(jobs)

【题意】

m个员工加工n种产品，每种产品需要c[i]个

已知m个员工各会加工什么商品

让员工加工需要一些费用，根据加工数量的不同花费也不同

0~t[i][1]加工一个需要w[i][1]的费用

t[i][1]+1~t[i][2]加工一个需要w[i][2]的费用

……

以此类推

求最小费用

【输入】

第一行m、n

接下来一行n个数字表示对n中物品的需求

之后是一个m*n的矩阵

表示员工会做哪些物品

接下来描述m个员工的加工费用

第一行s表示区间个数

第二行表示区间断点，s=0时没有

第三行表示区间费用

费用具有单调性

【输出】

最小费用

这套题里最简单的一道

比较裸的费用流

把员工拆点，用s+1条边来描述不同阶段的的费用，流量为阶段长度，然后从员工向可完成的物品上连边

物品向汇连边，流量为物品所需数量

源点向员工连边，流量无穷大

然后费用流即可

program job;const  e=800;var  max,tot,s,m,n,i,j,k,c:longint;  last,dis,root:array [0..801] of longint;  dl,point,flow,cost,next:array [0..200001] of longint;  w,t:array [0..10] of longint;function anti (now:longint):longint;begin  if now and 1 = 1 then exit(now+1)                   else exit(now-1);end;procedure connect (u,v,f,c:longint);inline;begin  inc(tot);  point[tot]:=v;  flow[tot]:=f;  cost[tot]:=c;  next[tot]:=root[u];  root[u]:=tot;end;function mcmf:int64;var  ans:int64;begin  ans:=0;  repeat    fillchar(dis,sizeof(dis),63);    tot:=0;    i:=0;    dl[0]:=0;    dis[0]:=0;    while i<=tot do      begin        k:=root[dl[i]];        while k<>0 do          begin            if (flow[k]>0)and(dis[point[k]]>dis[dl[i]]+cost[k]) then              begin                inc(tot);                dl[tot]:=point[k];                dis[point[k]]:=dis[dl[i]]+cost[k];                last[point[k]]:=k;              end;            k:=next[k];          end;        inc(i);      end;    if dis[e]=dis[801] then break;    i:=e;    max:=maxlongint;    while i<>0 do      begin        if flow[last[i]]<max then max:=flow[last[i]];        i:=point[anti(last[i])];      end;    ans:=ans+int64(dis[e])*max;    i:=e;    while i<>0 do      begin        flow[last[i]]:=flow[last[i]]-max;        flow[anti(last[i])]:=flow[anti(last[i])]+max;        i:=point[anti(last[i])];      end;  until false;  exit(ans);end;begin  assign(input,'job.in');  reset(input);  assign(output,'job.out');  rewrite(output);  read(m,n);  for i:=1 to n do    begin      read(c);      connect(2*m+i,e,c,0);      connect(e,2*m+i,0,0);    end;  for i:=1 to m do    for j:=1 to n do      begin        read(c);        if c=1 then          begin            connect(2*i,2*m+j,maxlongint div 10,0);            connect(2*m+j,2*i,0,0);          end;      end;  for i:=1 to m do    begin      connect(0,2*i-1,maxlongint div 10,0);      connect(2*i-1,0,0,0);      read(s);      for j:=1 to s do        read(t[j]);      t[s+1]:=maxlongint div 10;      for j:=1 to s+1 do        begin          read(w[j]);          connect(2*i-1,2*i,t[j]-t[j-1],w[j]);          connect(2*i,2*i-1,0,-w[j]);        end;    end;  writeln(mcmf);  close(input);  close(output);end.