滑雪场坐落在FJ省西北部的若干座山上。
从空中鸟瞰,滑雪场可以看作一个有向无环图,每条弧代表一个斜坡(即雪道),弧的方向代表斜坡下降的方向。
你的团队负责每周定时清理雪道。你们拥有一架直升飞机,每次飞行可以从总部带一个人降落到滑雪场的某个地点,然后再飞回总部。从降落的地点出发,这个人可以顺着斜坡向下滑行,并清理他所经过的雪道。
由于每次飞行的耗费是固定的,为了最小化耗费,你想知道如何用最少的飞行次数才能完成清理雪道的任务。
 
 
  题意就是给定一张DAG,求每条边起码经过一次求覆盖所有边的最小路径条数 如图
  这时的答案为4
  很容易看出,就是在每条边都经过一次的情况下求一次最小流
  即带有下界的最小流
  解决方法很简单:
  对于一条(x,y)
  从x到y连一条容量为1,费用为-INF的边,根据最小费用最大流的性质
  我们可以看出显然这条边是会流到的
  然后鉴于每条边经过的次数不止一次,所以从x到y再连一条容量为INF,费用为0的边
  源点向所有入度为0的点连边,所有出度为0的边向汇点连边
  但是显然求最大流是求不完的,什么时候停止呢?
  每次增广必定增广出的是费用最小的一条路径
  当图中还有边未经过的时候,增光出来的路径中毕竟有费用为-INF的边
  当图中所有的边都经过的时候,增广出的路径费用为0
  这个时候就可以停止了
  
  另外事后考虑了一个问题:
  这样做为什么能保证是最小流呢?
  每次增广然后标记感觉只是模拟
  但是会发现,每条未经过的边权值为-INF,和最小费用最大流结合
  保证每次选出的路径能尽量多填满一些边
  反向弧的存在又使结果的正确性有了更多重的保证
 
program xjt7;
const maxn = ;maxm = ;INF = ;
var n,m,e,s,t,x,y:int64;
i,j:longint;
fa,next,link,w,cost,rec,son:array[-..maxm]of int64;
dis,opt,pos,pre,b,lea:array[-..maxn]of int64;
vis:array[-..maxn]of boolean; function min(a,b:int64):int64;
begin
if a<b then exit(a) else exit(b);
end; procedure add(x,y,z,cst:int64);
begin
inc(e);fa[e]:=y;next[e]:=link[x];link[x]:=e;w[e]:=z;cost[e]:=cst;rec[e]:=e+;son[e]:=x;
inc(e);fa[e]:=x;next[e]:=link[y];link[y]:=e;w[e]:=;cost[e]:=-cst;rec[e]:=e-;son[e]:=y;
end; function spfa:boolean;
var head,tail,x,j:int64;
begin
fillchar(vis,sizeof(vis),true);
fillchar(dis,sizeof(dis),);
head:=;tail:=;opt[]:=s;dis[s]:=;vis[s]:=false;
while head<>tail do
begin
head:=(head+) mod maxn;
x:=opt[head];j:=link[x];
while j<> do
begin
if (w[j]>)and(dis[x]+cost[j]<dis[fa[j]]) then
begin
dis[fa[j]]:=dis[x]+cost[j];pre[fa[j]]:=j;
if vis[fa[j]] then
begin
vis[fa[j]]:=false;
tail:=(tail+) mod maxn;
opt[tail]:=fa[j];
end;
end;
j:=next[j];
end;
vis[x]:=true;
end;
if dis[t]<>dis[t+] then exit(true);
exit(false);
end; procedure MCMF;
var sum,u,mn,ans:int64;
begin
ans:=;
while spfa do
begin
sum:=;
u:=t;mn:=INF;
while u<>s do
begin
mn:=min(mn,w[pre[u]]);
u:=son[pre[u]];
end;
u:=t;
while u<>s do
begin
inc(sum,mn*cost[pre[u]]);
dec(w[pre[u]],mn);inc(w[rec[pre[u]]],mn);
u:=son[pre[u]];
end;
if sum> then break;
inc(ans,mn);
end;
writeln(ans);
end; begin
//assign(input,'xjt7.in');reset(input);
readln(n);
fillchar(b,sizeof(b),);
for i:= to n do
begin
read(lea[i]);
for j:= to lea[i] do
begin
read(y);add(i,y,,-INF);add(i,y,INF,);
inc(b[y]);
end;
readln;
end;
s:=;t:=n+;
for i:= to n do if b[i]= then add(s,i,INF,);
for i:= to n do if lea[i]= then add(i,t,INF,);
MCMF;
end.

[BZOJ2502]清理雪道解题报告|带下界的最小流的更多相关文章

  1. UVa 1440:Inspection(带下界的最小流)***

    https://vjudge.net/problem/UVA-1440 题意:给出一个图,要求每条边都必须至少走一次,问最少需要一笔画多少次. 思路:看了好久才勉强看懂模板.良心推荐:学习地址. 看完 ...

  2. 【BZOJ-2502】清理雪道 有上下界的网络流(有下界的最小流)

    2502: 清理雪道 Time Limit: 10 Sec  Memory Limit: 128 MBSubmit: 594  Solved: 318[Submit][Status][Discuss] ...

  3. [BZOJ2502]清理雪道

    [BZOJ2502]清理雪道 试题描述 滑雪场坐落在FJ省西北部的若干座山上. 从空中鸟瞰,滑雪场可以看作一个有向无环图,每条弧代表一个斜坡(即雪道),弧的方向代表斜坡下降的方向. 你的团队负责每周定 ...

  4. BZOJ2502:清理雪道(有上下界最小流)

    Description        滑雪场坐落在FJ省西北部的若干座山上. 从空中鸟瞰,滑雪场可以看作一个有向无环图,每条弧代表一个斜坡(即雪道),弧的方向代表斜坡下降的方向. 你的团队负责每周定时 ...

  5. [BZOJ2502]清理雪道 有上下界网络流(最小流)

    2502: 清理雪道 Time Limit: 10 Sec  Memory Limit: 128 MB Description        滑雪场坐落在FJ省西北部的若干座山上. 从空中鸟瞰,滑雪场 ...

  6. 【上下界网络流】bzoj2502: 清理雪道

    模型:无源汇有上下界可行流 LJN:模板题吧 Description        滑雪场坐落在FJ省西北部的若干座山上. 从空中鸟瞰,滑雪场可以看作一个有向无环图,每条弧代表一个斜坡(即雪道),弧的 ...

  7. [ZOJ2341]Reactor Cooling解题报告|带上下界的网络流|无源汇的可行流

    Reactor Cooling The terrorist group leaded by a well known international terrorist Ben Bladen is bul ...

  8. 洛谷4843 BZOJ2502 清理雪道

    有源汇有上下界的最小可行流. YY一下建图应该很好搞吧(? 就是对于每个雪道都是[1,inf]然后源点到所有点都是[0,inf]所有点到汇点都是[0,inf] 这样的话跑一个有源汇上下界最小可行流就可 ...

  9. BZOJ 2502 清理雪道/ Luogu P4843 清理雪道 (有源汇上下界最小流)

    题意 有一个有向无环图,求最少的路径条数覆盖所有的边 分析 有源汇上下界最小流板题,直接放代码了,不会的看dalao博客:liu_runda 有点长,讲的很好,静心看一定能看懂 CODE #inclu ...

随机推荐

  1. (原)Android到IOS开发的转换(一)

    序)闲扯几句 很早就想入手ios开发,但是一直没有机会,个人没有水果机器,上个公司上班的那台mac mini虽然就在我身边,灰都有一层了,但是一直没有机会开机学习下,因为事多,自上一篇文章后,离职后, ...

  2. vuex模块相互调用

    https://segmentfault.com/a/1190000009434398

  3. Qt Qwdget 汽车仪表知识点拆解1 速度表示

    先贴上效果图,注意,没有写逻辑,所以这些都是乱动的 这里线主要说一下中间显示速度的显示制作的方式,在这里,自己专门写了一个数字的仪表 考虑的一般的汽车是没有办法把瞬时速度提升到四位数的,所以我这里就放 ...

  4. Qt 编译时遇到 error: [debug/qrc_music.cpp] Error 1

    第一种方式,清理编译文件 把Qdebug release 文件件都删除, 删除makefile 文件 尝试重新编译 以上是网上寻找的结果 以下是我的解决方法 如果还抱错,请检查qrc文件是否存在异常 ...

  5. kubernetes(k8s) 集群

    开启和重启命令: sudo systemctl stop etcdsudo systemctl stop dockersudo systemctl stop kube-apiserversudo sy ...

  6. for循环再探

    摘要:for循环头的组成.for的执行流程 一.for 语句的组成 0. 举个例子 for (int val = 1; val <= 10; ++val) sum += val; 1. 循环头的 ...

  7. 望岳物业App开发过程记录

    望岳物业APP开发过程记录 ——杜冰青 1.小组讨论,决定模块功能. 2.开始做“社区活动”界面,完成主页面.分享界面.内容界面,但是分享功能暂时没有完成. 3.接着做“一键开门”界面,因为硬件设施跟 ...

  8. java课程设计 学生管理系统

    学生成绩管理系统 可实现功能 学生管理系统 查询学生信息:姓名.学号.性别.出生年月日.(学号自动生成且唯一) 查询学生成绩:每个人都有数学.Java与体育与选修课 查询学生课程 进行公选课选课 教师 ...

  9. lintcode-108-分割回文串 II

    108-分割回文串 II 给定一个字符串s,将s分割成一些子串,使每个子串都是回文. 返回s符合要求的的最少分割次数. 样例 比如,给出字符串s = "aab", 返回 1, 因为 ...

  10. elasticsearch 6.2.3安装ik分词

    下载 zip文件 上传到服务器 https://github.com/medcl/elasticsearch-analysis-ik/releases unzip elasticsearch-anal ...