Ngày tải lên :
12/09/2012, 16:20
...
16 6
L_inc_flow(L_G1)
else
stop:=true;
end;
f:=0;
for y:= 0 to L_G1.sodinh -1 do
begin
L_giatri(L_G1,0,y,t1,a1,b1);
f:=f+b1;
end;
for y:=0 to L_G1.Socanh -1 do
if L_G1.DSCanh[y].DinhCuoi ...
ok:boolean;
a1,b1,k1,l1:real;
t,t1,i:integer;
BEGIN
for i:=0 to L_G1.sodinh -1 do
L_p1[i]:= -1;
L_p1[0]:=0;
L_nhan[0]:=true;
L_e[0]:=vocung;
L_v:=[0] ; L_v1:=[0];
L_pathfound:=true; ... L_giatri(L_G1,x,y,t,a1,b1); {a:=c[x,y],b:=f[x,y]}
L_giatri(L_G1,y,x,t1,k1,l1); {k:=c[y,x],l:=f[y,x]}
If (a1>0) and (b1<a1) then
Begin
L_p1[y]:=x;
L_nhan[y]:=true;
L_e[y]:=L_min(L_e[x],a1-b1);
...