Algoritmos Heurísticos de Cobertura de Arcos

end;
Procedure Transform;
var Pro:Boolean;
Begin
M2:=M1+ME;
//Cria‡Æo de Arcos de ConexÆo ************************
For a:=1 To M2 Do
Begin
For b:=1 To M2 Do
If Link[a].Too = Link[b].From Then
begin
L[Link[a].Arc.Nof, Link[b].Arc.Noi] := 0;
// Checando para ver se o arco de conexão é de um retorno U
If (Link[a].From = Link[b].Too) And (Form1.CheckBox1.Checked)
Then L[Link[a].Arc.Nof, Link[b].Arc.Noi] := Penalidade;
// Checando para ver se o arco de conexão é uma Conversão diferente
If (Link[a].From Link[b].Too) And (Form1.CheckBox3.Checked)
Then L[Link[a].Arc.Nof, Link[b].Arc.Noi] :=
CustoConversao(Link[a].From, Link[a].Too, Link[b].Too);
If ArqErrado Then Exit
end;
End;
End;
Procedure Floyd;
Begin
Form1.ProgressBar1.Enabled:=true;
Form1.ProgressBar1.Position:=0;
For K:=1 To 2*M2 Do
Begin
For I:=1 To 2*M2 Do
If (IK) And (L[I,K]Inf) Then
For J:=1 To 2*M2 Do
If (JK) And (L[K,J]Inf) Then
If L[I,K]+L[K,J]