Page 355 - Handbook Of Multiphase Flow Assurance

354 10. Research methods in flow assurance

begin {points of expected short circuit}
start:=rin[j]; {and find neighbors in ring for start}
ps:=j; {as start1 and start2}
finish:=rin[k];
pf:=k;
if (j=1)or(j=nr) then
begin
if j=1 then
begin
start1:=rin[2];
start2:=rin[nr];
end;
if j=nr then
begin
start1:=rin[1];
start2:=rin[nr−1];
end;
end
else
begin
start1:=rin[j−1];
start2:=rin[j+1];
end;
end
else
begin
start:=rin[k];
ps:=k;
finish:=rin[j];
pf:=j;
if (k=1)or(k=nr) then
begin
if k=1 then
begin
start1:=rin[2];
start2:=rin[nr];
end;

if k=nr then
begin
start1:=rin[1];
start2:=rin[nr−1];
end;
end
else