Algoritmos Heurísticos de Cobertura de Arcos

If ((Rota[II].Tipo = 'D') and (II < NumLink)) then
begin
Noi:=Rota[II].Noi;
Nof:=Rota[II].Nof;
For i:=II+1 to NumLink do
If ((Noi=Rota[i].Noi) and (Nof=Rota[i].Nof))
then If Rota[i].Tipo 'D'
then begin
RegTemp:= Rota[II];
Rota[II]:=Rota[i];
Rota[i]:=RegTemp;
end;
end;
end;
For II := 1 To NumLink do
begin // procurando ver quantas vezes cada link aparece no roteiro
Noi:=Rota[II].Noi;
Nof:=Rota[II].Nof;
For i:=1 to II do
begin
If (((Noi=Rota[i].Noi) and (Nof=Rota[i].Nof)) or
((Noi=Rota[i].Nof) and (Nof=Rota[i].Noi)))
then begin
Rota[II].FreqTotal := Rota[II].FreqTotal +1;
If iII Then Rota[i].FreqTotal := Rota[i].FreqTotal +1;
end;
end;
Rota[II].Ordem := Rota[II].FreqTotal;
end;
Velocidade := Form1.SpinEdit1.Value;
VelInversa:= 4000 div Velocidade; // 4000: constante para calibragem da velocidade
Demora:=Delay(10000); // demora inicial para começar o movimento
For II := 1 To NumLink do // Movimentar cada link na sequencia do roteiro
begin
x1:= No[Rota[II].Noi].cj*CompArco; // coordenada x do Noi
y1:= No[Rota[II].Noi].ci*CompArco; // coordenada y do Noi
x2:= No[Rota[II].Nof].cj*CompArco; // coordenada x do Nof
y2:= No[Rota[II].Nof].ci*CompArco; // coordenada y do Nof
If ((Rota[II].Tipo = '+') Or (Rota[II].Tipo = '-'))
Then MovimentaAresta(Rota[II].Ordem,x1,y1,x2,y2,PaintBox1);
If Rota[II].Tipo = '>'
Then MovimentaArco(Rota[II].Ordem,x1,y1,x2,y2,PaintBox1);
If Rota[II].Tipo = 'D'
Then If Rota[II].FreqTotal > 1
Then MovimentaCopia(Rota[II].Ordem,Rota[II].FreqTotal,x1,y1,x2,y2,PaintBox1)
Else begin
Freq1:=1;
Freq2:=0;
AchaCoordCopiak(Freq1,x1,y1,x2,y2,xc1,yc1,xc2,yc2);
Delay(50*VelInversa);
CriaCopia(Freq1,Freq2,xc1,yc1,xc2,yc2,PaintBox1);
Delay(50*VelInversa);
end;
Freq1:=1;
Freq2:=0;
Ordem:= Rota[II].Ordem-1;
If Ordem > 0 Then
begin
AchaCoordCopiak(Ordem,x1,y1,x2,y2,xc1,yc1,xc2,yc2);
CriaCopia(Freq1,Freq2,xc1,yc1,xc2,yc2,PaintBox1);
end;
end;
For I:=1 To NL Do // redesenha os nós
For J:=1 To NC Do
169