Algoritmos Heurísticos de Cobertura de Arcos

If Node[J].Grau>GM+1 Then Certo:=false;
K:=Node[J].FirstPrd;
While K0 Do
Begin
If (Link[K].From=I) And (Link[K].Too=J)
Then Certo:=false;
K:=Link[K].ProxPrd;
End;
If T>50 Then Certo:=true;
Until Certo;
If T>20 Then J:=-J;
End;
Procedure InicializaVet;
// Inicialização de vetores de encadeamento de nós e Links
Var I,J,I1:Integer;
Begin
For I:=1 To NL Do
For J:=1 To NC Do
Begin
I1:=(I-1)*NC+J;
Node[I1].Linha:= I;
Node[I1].Coluna:= J;
Node[I1].firstSuc:= 0;
Node[I1].firstPrd:= 0;
Node[I1].Grau:= 0;
Node[I1].Usado:= 0;
Node[I1].Tipo:= 8; {Tipo: No de canto=3, 'no de borda=5, no de meio=8}
If (I-1)*(I-NL)*(J-1)*(J-NC)=0
Then Node[I1].Tipo:= 5;
If ((I-1)*(I-NL)=0) And ((J-1)*(J-NC)=0)
Then Node[I1].Tipo:= 3;
End;
// Inicialização dos vetores de encadeamento dos Links
For J:=1 To M Do
Begin
I:=J*2-1;
Link[I].From:= 0;
Link[I].Too:= 0;
Link[I].Tipo:= 0;
Link[I].ArcContra:= I+1;
Link[I].Cost:= Rand(Q1,Q2);
Link[I].ModCost:= 0;
Link[I].ProxSuc:= 0;
Link[I].ProxPrd:= 0;
Link[I].NumUsed:= 0;
I:=I+1;
Link[I].From:= 0;
Link[I].Too:= 0;
Link[I].Tipo:= 0;
Link[I].ArcContra:= I-1;
Link[I].Cost:= Link[I-1].Cost;
Link[I].ModCost:= 0;
Link[I].ProxSuc:= 0;
Link[I].ProxPrd:= 0;
Link[I].NumUsed:= 0;
End;
End;
Procedure geraGrafo;
Var I,J,I1,J1,I2,I3,Gr:Integer;
S,R:Real;
Begin
N:=NC*NL;
139