Algoritmos Heurísticos de Cobertura de Arcos

egin
No[Noi].ci := I1;
No[Noi].cj := J1;
end;
If No[Nof].ci = 0 Then
begin
No[Nof].ci := I2;
No[Nof].cj := J2;
end;
end;
CloseFile(Rede);
AssignFile(Roteiro,ArqSol); //Arquivo solução
Reset(Roteiro);
For II := 1 To 12 do
Readln(Roteiro,Tipo); //
II:=0;
While Not EoF (Roteiro) do
Begin
II:=II+1;;
Read(Roteiro,Noi);
Read(Roteiro,Nof);
Repeat Read(Roteiro,Tipo) Until Tipo > ' ';
Readln(Roteiro,a);
Rota[II].Arc := a; //Rota é o vetor que contem a
Rota[II].Tipo:=Tipo; //sequencia dos links na solucao
Rota[II].Noi:=Noi; //Tipo= + :aresta percorrido no sentido normal
// - :aresta percorrido no sentido contrário
// > :arco
// D :trecho duplicado que pode ser uma cadeia
Rota[II].Nof:=Nof;
Rota[II].Ordem:=0; // numero das vezes que até o momento o link apareceu no roteiro
Rota[II].FreqTotal:=0; // numero total das vezes que o link é percorrido no roteiro
end;
Rota[II+1] := Rota[1];
CloseFile(Roteiro);
NumLink:=II; // NumLink: numero total de link / cadeias duplicadas
II:=0;
If InicioRotaFimRota
Then
begin
Repeat // procurando o link que começa depois
II:=II+1; // do Arco artificial (FimRota, InicioRota)
If II>NumLink then Exit;
Rota[NumLink+II]:=Rota[II];
Until (Rota[II].Noi = FimRota) and
(Rota[II].Nof = InicioRota) and
(Rota[II].Tipo = '>');
NumLink:=NumLink-1; // Excluindo o arco artificial
For i:= 1 to NumLink do // Reordenando a rota, para começar do nó InicioRota
Rota[i]:=Rota[i+II];
end
else
begin
Repeat // procurando o link que começa com o nó InicioRota
II:=II+1;
If II>NumLink then Exit;
Rota[NumLink+II]:=Rota[II];
Until Rota[II].Noi = InicioRota;
For i:= 1 to NumLink do // Reordenando a rota, para começar do nó InicioRota
Rota[i]:=Rota[i+II-1];
end;
For II := 1 to NumLink do // tracando um trecho duplicado pelo link original
begin // de modo que primeiro o trecho original seja percorrido
168