Algoritmos Heurísticos de Cobertura de Arcos

Ponto1x:=xs-dy*LargSeta;
Ponto1y:=ys+dx*LargSeta;
Ponto2x:=xs+dy*LargSeta;
Ponto2y:=ys-dx*LargSeta;
Ponto3x:=Round((x2-x1)*0.93)+x1;
Ponto3y:=Round((y2-y1)*0.93)+y1;
If dx*dy=0 Then
begin
Ponto3x:=Round((x2-x1)*0.90)+x1;
Ponto3y:=Round((y2-y1)*0.90)+y1;
end;
PaintBox1.Canvas.Polygon([point(ponto1x,ponto1y),point(ponto2x,ponto2y),
point(ponto3x,ponto3y)]);
end;
Procedure CalculaCompArco;
// Calcula comprimento de cada link, em função do tamanho do grafo
begin
PenaNormal:=3; // Espessura da caneta
PenaDiag:=2;
If BotaoAcionado=0 then
begin
CompArco:=1;
Exit;
end;
CompArco:=min((Screen.Width div (NC+1)), (Screen.Height div (NL+1)));
Raio:=CompArco div 25; // Raio dos nós
If Raio < 2 Then Raio := 2;
If CompArco < 100 Then
begin
PenaNormal:=1;
PenaDiag:=1;
end;
end;
procedure DesenhaGrafo(ArqNome:String;PaintBox1:TPaintBox);
// Desenha um grafo dado no arquivo ArqNome
var II,x,y:Integer;
a,Link,Noi,I,J,Nof,I1,J1,d:Integer;
Simbolo: String[1];
InicioRota,FimRota: Integer;
ArcoArtificial: Boolean;
begin
Form10.Visible:=true;
AssignFile(Rede,ArqNome);
Reset(Rede);
If BotaoAcionado=2 Then // Se o grafo está contido num arquivo de grafo transformado
Repeat
ReadLn(Rede,Simbolo);
Until Simbolo = '$';
Read(Rede,M,N,NL,NC,MA,ME);
i:=0;
Repeat
Read(Rede,Simbolo);
i:=i+1;
Until (Simbolo='#') or (i>50);
If Simbolo='#'
then ReadLn(Rede,InicioRota,FimRota)
else begin
ReadLn(Rede);
InicioRota:=1;
FimRota:=1;
end;
Falha:=false;
162