poj 3013

来源：互联网发布：python保存文件编辑：程序博客网时间：2024/06/07 08:16

题意：给n个点从1到n标号，下面一行是每个点的权，另外给出m条边，下面是每条边的信息，两个端点+权值，边是无向边。你的任务是选出一些边，使这个图变成一棵树。这棵树的花费是这样算的，1号固定为树根，树中每个双亲节点下面的边都有个单价（即边权），然后单价乘上这条边的下面所有的子孙后代的点权和。

分析：每个点的权都要乘上好几条边的权，就是这个点回到点1的路径上的那些边。要想最小，就是求到到1点的最短路。点数有可能是0。

spfa！！！

const    maxe=100000;    maxv=2000000;    type    arr=record      x,y,w,next:int64;    end;    var    n,m,s,q,nm:longint;    ls:array[0..maxe] of longint;    a:array[0..maxv] of arr;    f:array[0..maxe] of int64;    v:array[0..maxe] of int64;    d,b:array[0..maxe] of int64;    i,j,k,ll:longint;    ans,max:int64;    procedure spfa;  var    i,j,k:longint;    head,tail:longint;  begin    fillchar(f,sizeof(f),63);    max:=f[1];    head:=0;    tail:=1;    v[1]:=1;    d[1]:=1;    f[1]:=0;    repeat      head:=head+1;      j:=ls[d[head]];      while j<>0 do        begin          with a[j] do            begin              if f[x]+w<f[y]                then                  begin                    f[y]:=f[x]+w;                    if v[y]=0                      then                        begin                          tail:=tail+1;                          d[tail]:=y;                          v[y]:=1;                        end;                  end;              j:=next;            end;        end;      v[d[head]]:=0;    until head=tail;  end;    begin    readln(nm);    for ll:=1 to nm do    begin    fillchar(ls,sizeof(ls),0);    fillchar(d,sizeof(d),0);    fillchar(b,sizeof(b),0);    fillchar(a,sizeof(a),0);    fillchar(v,sizeof(v),0);    readln(n,m);    for i:=1 to n do      read(b[i]);    for i:=1 to m do      begin        with a[i*2-1] do          begin            readln(x,y,w);            next:=ls[x];            ls[x]:=i*2-1;          end;        a[i*2].x:=a[i*2-1].y;        a[i*2].y:=a[i*2-1].x;        a[i*2].w:=a[i*2-1].w;        a[i*2].next:=ls[a[i*2].x];        ls[a[i*2].x]:=i*2;      end;    m:=m*2;    spfa;    ans:=0;    for i:=1 to n do      if f[i]=max then break                  else ans:=f[i]*b[i]+ans;    if (f[i]=max) then writeln('No Answer')                  else writeln(ans);    end;  end.

0 0