Algoritmos Heurísticos de Cobertura de Arcos

egin
II:=II+1;
JJ:=0;
For J:=1 to M2 do
begin
If Link[J].ArcContraReq 0 Then
begin
JJ:=JJ+1;
Cont[JJ]:=L[I,J];
end;
end;
For J:=1 to JJ do
L[II,J]:=Cont[J];
Link[II].ArcContra:=Link[I].ArcContraReq
end;
end;
M1:=M1R;
M2:=M2R;
MA:=MAR;
ME:=MER;
End;
Procedure LerArq;
// Este procedimento lê o arquivo temporário ArqTemp, gerado na rotina
// DefineInicioEFimRoteiro. Este arquivo é identico ao arquivo original
// exceto um arco artificial que tem a mais (FimRota, InicioRota).
// A transformação é feita sobre o ArqTemp.
var Tip,I,J,I1,J1,II:Integer;
NoFinalAresta: Integer;
NoFinalArco: Integer;
NoAux: Integer;
NoInicioLink: Integer;
MA1,ME1: Integer;
Simbolo: String[1];
Requerido: Integer;
Begin
{Leitura de Arquivo / Inicializa‡Æo de Vetores ***************}
// M1: Número de links do grafo original M1= MA+ME
// MA: Número de Arcos " "
// ME: Numero de Arestas " "
// M2: Número de nós (dimensão da matriz) na forma final transformada
// M2= M1+ME
AssignFile(Rede,ArqTemp);
Reset(Rede);
Read(Rede,M1,N,NL,NC,MA,ME);
Repeat
Read(Rede,Simbolo);
Until Simbolo='#';
ReadLn(Rede,InicioRota,FimRota);
If 2*(M1+ME)>NumMaxNos Then
Begin
Application.messagebox('Dimensão da Matriz Ultrapassa a Estabelecida no Programa.','Atualize o
Programa',MB_OK);
Halt;
End;
M2:=M1+ME;
For I:=1 To 2*M2 Do
Begin
Link[I].ArcContra:=-Inf;
For J:=1 To 2*M2 Do
L[I,J]:=Inf;
End;
NoFinalAresta:=M1;
NoFinalArco:=M1+ME;
NoAux:=2*M1;
152