Algoritmos Heurísticos de Cobertura de Arcos

M,N,NL,NC,MA,ME:Integer;
BotaoAcionado:Integer;
Velocidade,VelInversa: Integer;
Falha: Boolean;
Const MaxLink = 2000;
MaxRota = 2400;
MaxNo = 1000;
Function Delay(N:Integer):Real;
Var x:Real;
i,j:Integer;
Begin
X:=1.0;
For i:=1 to 1*N do
For j:=1 to 100+CompArco do
x:=x+0.000001;
Result:=x;
End;
Procedure CriaNo(x,y:Integer;PaintBox1:TPaintBox);
// Desenha um nó do grafo, com as coordenadas dadas
begin
PaintBox1.Canvas.Pen.Width:=PenaDiag;
PaintBox1.Canvas.Pen.Color:=clMaroon ;
PaintBox1.Canvas.Ellipse(x-Raio,y-Raio,x+Raio,y+Raio);
end;
Procedure CriaAresta(x1,y1,x2,y2:Integer;PaintBox1:TPaintBox);
// Desenha uma aresta original do grafo, com as coordenadas dadas
begin
PaintBox1.Canvas.Pen.Width:=PenaDiag;
//PaintBox1.Canvas.Pen.Color:=8400000;
PaintBox1.Canvas.Pen.Color:=40000;
If (x1 = x2) or (y1 = y2)
Then PaintBox1.Canvas.Pen.Width:=PenaNormal;
PaintBox1.Canvas.MoveTo(x1,y1);
PaintBox1.Canvas.LineTo(x2,y2);
end;
Procedure CriaArco(x1,y1,x2,y2:Integer;PaintBox1:TPaintBox);
// Desenha um arco original do grafo, com as coordenadas dadas
var i,xs,ys,dx,dy,LargSeta: Integer;
ponto1x,ponto2x,ponto3x,ponto1y,ponto2y,ponto3y:Integer;
begin
PaintBox1.Canvas.Pen.Width:=PenaDiag;
PaintBox1.Canvas.Pen.Color:=40000;
//PaintBox1.Canvas.pen.Style := psClean; Limpa a linha existente
If (x1 = x2) or (y1 = y2)
Then PaintBox1.Canvas.Pen.Width:=PenaNormal;
PaintBox1.Canvas.MoveTo(x1,y1);
PaintBox1.Canvas.LineTo(x2,y2);
xs:=Round((x2-x1)*0.85)+x1;
dx:=Round((x2-x1)/Abs(x2-x1+0.1));
dy:=Round((y2-y1)/Abs(y2-y1+0.1));
ys:=Round((y2-y1)*0.85)+y1;
LargSeta:=Round(0.02*Sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+0.0));
If dx*dy=0 Then
begin
xs:=Round((x2-x1)*0.80)+x1;
ys:=Round((y2-y1)*0.80)+y1;
LargSeta:=Round(2*LargSeta);
end;
161