Algoritmos Heurísticos de Cobertura de Arcos

Se f1>0, a cópia será orientada de inicio para o fim
// Se f1=0, a cópia será orientada no sentido contrário
var xs,ys,xt,yt,temp,dx,dy,Desloc: Integer;
begin
If f1=0
then begin
temp:=x1;
x1:=x2;
x2:=temp;
temp:=y1;
y1:=y2;
y2:=temp;
f2:=f2-1;
end
else f1:=f1-1;
PaintBox1.Canvas.Pen.Width:=1;
PaintBox1.Canvas.Pen.Color:=ClRed;
PaintBox1.Canvas.MoveTo(x1, y1);
PaintBox1.Canvas.LineTo(x2, y2);
PaintBox1.Canvas.Pen.Width:=2;
xs:=Round((x2-x1)*0.85)+x1;
xt:=Round((x2-x1)*0.95)+x1;
ys:=Round((y2-y1)*0.85)+y1;
yt:=Round((y2-y1)*0.95)+y1;
If (x1 = x2) or (y1 = y2) then
begin
xs:=Round((x2-x1)*0.80)+x1;
ys:=Round((y2-y1)*0.80)+y1;
xt:=Round((x2-x1)*0.90)+x1;
yt:=Round((y2-y1)*0.90)+y1;
end;
PaintBox1.Canvas.MoveTo(xs,ys);
PaintBox1.Canvas.LineTo(xt,yt);
end;
Procedure AchaCoordCopiak(k,x1,y1,x2,y2:Integer; var xc1,yc1,xc2,yc2 :Integer);
// Acha as coordenadas de inicio e fim de uma duplicação
var Delta,d:integer;
begin
Delta:=CompArco div 25; //Delta: distancia da copia para link original
If Delta < 5 then Delta:=Delta+1;
Case k of //k: representa a k-ésima que está sendo traçada
1: Delta := Delta;
2: Delta := -Delta;
3: Delta := 2*Delta;
4: Delta := -2*Delta;
5: Delta := 3*Delta;
6: Delta := -3*Delta;
end;
d := Round(sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+0.0));
xc1:=Round(x1+0.05*(x2-x1)+Delta*(y2-y1+0.0)/d);
yc1:=Round(y1+0.05*(y2-y1)-Delta*(x2-x1+0.0)/d);
xc2:=Round(x1+0.95*(x2-x1)+Delta*(y2-y1+0.0)/d);
yc2:=Round(y1+0.95*(y2-y1)-Delta*(x2-x1+0.0)/d);
end;
procedure DesenhaGrafoSolucao(ArqNome:String;PaintBox1:TPaintBox);
// Desenha a solução de roteiro, a partir de um arquivo
// de solução gerado na NegCircuit
var II,x,y:Integer;
a,Link,Noi,I,J,Nof,I1,J1,d,Freq1,Freq2:Integer;
k,NumCopias,xc1,yc1,xc2,yc2:Integer;
164