Algoritmos Heurísticos de Cobertura de Arcos

o arco artificial no final da lista
WriteLn(Rede,'$ Arquivo Original (Links Requeridos)');
AssignFile(RedeOrig,ArqTemp);
Reset(RedeOrig);
II:=0;
Read(RedeOrig,M1Orig,N,NL,NC,i,i);
Write(Rede,M1,' ',N,' ',NL,' ',NC,' ',MA,' ',ME,' ');
ReadLn(RedeOrig,Linha);
WriteLn(Rede,Linha);
For JJ:= 1 To M1Orig do
begin
Readln(RedeOrig,a,Tip,Noi,I,J,Nof,I1,J1,d,Requerido);
If Requerido = 1 then
begin
II:=II+1;
Writeln(Rede,II,' ',Tip,' ',Noi,' ',I,' ',J,' ',Nof,' '
,I1,' ',J1,' ',d);
end;
end;
CloseFile(Rede);
CloseFile(RedeOrig);
End;
procedure Tform2.Button1Click(Sender: TObject);
Var NomeAbr:String;
TempoInicio,TempoFinal:TDateTime;
begin
Inf:=99999;
MenosInf:=-StrToInt(Form1.Edit8.Text);
Penalidade:=StrToInt(Form1.Edit10.Text);
Form1.StatusBar1.SimpleText := 'Escolhe o Grafo a ser lido';
Form1.ListBox1.Enabled :=true;
Form1.ListBox1.Items.Clear;
//OpenDialog1.InitialDir := 'C:\Arquivos de programas\Borland\Delphi4\Projects\DadosMcpp\';
OpenDialog1.InitialDir := 'C:\Meus documentos\Doutorado\MCPPgls Demo\';
If OpenDialog1.Execute
Then ArqNome := OpenDialog1.FileName
Else Exit;
Form1.StatusBar1.SimpleText := 'Transformando o grafo';
DefineInicioEFimDoRoteiro(Form1.Edit11,Form1.Edit12);
LerArq;
Form1.GroupBox2.Enabled:=true;
NomeAbr:=ArqNome;
If Length(ArqNome)>20
Then NomeAbr := Copy(ArqNome,Length(ArqNome)-19, 16);
Form1.GroupBox2.Caption := 'Grafo ativo : ...'+NomeAbr;
Form1.Label9.Caption := 'Nós: '+IntToStr(N);
Form1.Label10.Caption := 'Arcos: '+IntToStr(MA);
Form1.Label11.Caption := 'Arestas: '+IntToStr(ME);
Form1.GroupBox2.Update;
TempoInicio:=Time;
ArqErrado:=false;
Transform;
If ArqErrado Then exit;
Form1.StatusBar1.SimpleText := 'O Grafo já foi transformado. Calculando agora a matriz de distâncias';
Floyd;
AjusteGTSP;
TempoFinal:= Time;
Form1.Label15.Caption:='Tempo CPU: '+TimeToStr(TempoFinal-TempoInicio);
Form1.StatusBar1.SimpleText := 'Salve o grafo transformado com um nome diferente';
If Rural then ReduzirRuralPostman;
GravaArq(SaveDialog1,OpenDialog1,Form1.ListBox1);
NomeAbr := ArqNomeTxt;
If Length(NomeAbr) > 20
Then Delete(NomeAbr,1,Length(NomeAbr)-20);
158