Algoritmos Heurísticos de Cobertura de Arcos

NumUsed:=NumUsed+1;
Link[ArcContra].ModCost:=-Cost;
End;
If (NumUsado=0) And (NumContra>1) Then
Begin
Link[ArcContra].NumUsed:=Link[ArcContra].NumUsed-1;
If (Link[ArcContra].NumUsed=1) Then
Begin
If Tipo=0 Then ModCost:=Cost;
If Tipo=-1 Then ModCost:=Inf-1;
End;
End;
If (NumUsado=1) And (NumContra=1) Then
Begin
ModCost:=Cost;
Link[ArcContra].NumUsed:=0;
Link[ArcContra].ModCost:=Cost;
End;
End;
End;
Procedure OrientaGrafo;
Var I,N1,N2,NNU,CMin,CardCad:Integer;
ExisteNoNaoUsado:Boolean;
VetNU,Cadeia: TVet;
Texto:String;
Begin
NNU:=-1;
ExisteNoNaoUsado:=true;
While ExisteNoNaoUsado Do
Begin
EscolhaDoisNosNaoUsados(N1,N2,NNU,VetNU);
Form1.StatusBar1.SimpleText := 'Orientando links a partir de nós não usados '+IntToStr(N1)+' '+
IntToStr(N2);
If NNU1 Then
Begin
Form1.StatusBar1.SimpleText := 'Re-Orientando links a partir do linke usado '+IntToStr(I);
N1:=Link[I].From;
N2:=Link[I].Too;
AchaCaminhoMinimo(N1,N2,CMin,CardCad,Cadeia);
AtualizaCustosCadeia(CardCad,Cadeia);
AchaCaminhoMinimo(N2,N1,CMin,CardCad,Cadeia);
AtualizaCustosCadeia(CardCad,Cadeia);
144