poj 1860 Currency Exchange bellman

题目大意

  有多种汇币，汇币之间可以交换，这需要手续费，当你用100A币交换B币时，A到B的汇率是29.75，手续费是0.39，那么你可以得到(100
- 0.39) * 29.75 = 2963.3975 B币。问s币的金额经过交换最终得到的s币金额数能否增加，因为货币的交换是可以重复多次的，所以我们需要找出是否存在正权回路。

分析

  就是要求有没有正环，用bellman求最长路，经过n次松弛后如果还可以松弛，那就有正环，输出YES。

注意

  要把每种汇币当做点，把交换当做边，权值为一个函数：（现在有的钱-手续费）*汇率

代码

  const
maxe=10000;
maxv=20000;

type
arr=record
x,y:longint;
w,t:real;
end;

var
n,m,f:longint;
s:real;
a:array[1..maxv] of arr;
d:array[1..maxe] of real;
i,j,k:longint;

procedure relax(u,v:longint;w,t:real);
var
i:real;
begin
i:=(d[u]-t)*w;
if i>d[v] then
d[v]:=i;
end;

function bellman:boolean;
var
i,j:integer;
k:real;
begin
for i:=1 to n do
for j:=1 to m do
with a[j] do relax(x,y,w,t);
for i:=1 to m do
with a[i] do
begin
k:=(d[x]-t)*w;
if k>d[y] then exit(true);
end;
exit(false)
end;

begin
readln(n,m,f,s);
fillchar(a,sizeof(a),0);
fillchar(d,sizeof(d),0);
for j:=1 to m do
begin
with a[j*2-1] do
read(x,y,w,t);
a[j*2].x:=a[j*2-1].y;
a[j*2].y:=a[j*2-1].x;
with a[j*2] do
read(w,t);
end;
m:=m*2;
d[f]:=s;
if bellman
then writeln('YES')
else writeln('NO');
end.