Algoritmos Heurísticos de Cobertura de Arcos

AchaCaminhoMinimo(N2,N1,CMin,CardCad,Cadeia);
AtualizaCustosCadeia(CardCad,Cadeia);
AchaCaminhoMinimo(N1,N2,CMin,CardCad,Cadeia);
AtualizaCustosCadeia(CardCad,Cadeia);
End;
End;
End;
Procedure CalculaCusto;
Var I,J,Vezes:Integer;
Begin
CppCost:=0;
AddCost:=0;
For J:=1 To M Do
Begin
I:=2*J-1;
Vezes:=Link[I].NumUsed+Link[I+1].NumUsed;
If Vezes>0 Then
Begin
CppCost:=CppCost+Vezes*Link[I].Cost;
AddCost:=AddCost+(Vezes-1)*Link[I].Cost;
End;
End;
End;
Procedure ReduzCustoLinksDuplicados;
Var I,J,Vezes:Integer;
V:Real;
Begin
For J:=1 To M Do
Begin
I:=2*J-1;
Vezes:=Link[I].NumUsed+Link[I+1].NumUsed;
If Vezes>1 Then
Begin
V:=Link[I].Cost;
V:=V*(100-Red);
V:=V/100;
Link[I].Cost:=Round(V);
Link[I+1].Cost:=Round(V);
End;
End;
End;
Function Distancia(i,j:integer):Real;
begin
Result:=Sqrt((Node[i].Linha-Node[j].Linha)*
(Node[i].Linha-Node[j].Linha)+
(Node[i].Coluna-Node[j].Coluna)*
(Node[i].Coluna-Node[j].Coluna));
end;
Procedure VerifiqueConsistencia(Var GrafoNaoConsistente:Boolean);
Var I,J:Integer;
Certo:Boolean;
Begin
GrafoNaoConsistente:=true;
Certo:=true;
For I:=1 To 2*M Do
If (Link[I].Tipo=-1) and (Link[I].NumUsed>0) Then Certo:=false;
If Certo=true Then GrafoNaoConsistente:=false;
End;
145