Algoritmos Heurísticos de Cobertura de Arcos

If ((M=0) Or (MMA+ME)) Then
begin
Falha:= True;
ShowMessage('Falha na leitura do Arquivo. Verifique se o arquivo contém um grafo, ou uma solução de
MCPP');
Exit;
end;
CalculaCompArco;
For II:=1 To M Do
Begin
ArcoArtificial:=false;
Readln(Rede,a,Link,Noi,I,J,Nof,I1,J1,d);
If Link=0
then CriaAresta(J*CompArco,I*CompArco,J1*CompArco,I1*CompArco,PaintBox1);
If (II=M) and (Noi=FimRota) and (Nof=InicioRota)
then ArcoArtificial:=true;
If (Link=1) and (ArcoArtificial=false)
then CriaArco(J*CompArco,I*CompArco,J1*CompArco,I1*CompArco,PaintBox1);
End;
For I:=1 To NL Do
For J:=1 To NC Do
CriaNo(J*CompArco,I*CompArco,PaintBox1);
CloseFile(Rede);
end;
Procedure OrientaAresta(var f1,f2:Integer;x1,y1,x2,y2:Integer;PaintBox1:TPaintBox);
// Orienta uma aresta no sentido que é percorrido na solução de NegCircuit
// f1 e f2 são a frequencia de travessia da aresta num sentido e no outro
// Se f1>0, a aresta será orientada de inicio para o fim
// Se f1=0, a aresta será orientada no sentido contrário
var xs,ys,xt,yt,temp: 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:=PenaDiag*2;
PaintBox1.Canvas.Pen.Color:=8400000;
If (x1 = x2) or (y1 = y2)
Then PaintBox1.Canvas.Pen.Width:=PenaNormal*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 CriaCopia(Var f1,f2: Integer; x1,y1,x2,y2:Integer;PaintBox1:TPaintBox);
// Traça uma cópia de um link com as coordenadas inicio e fim dadas
// f1 e f2 são a frequencia de travessia do links num sentido e no outro
163