Algoritmos Heurísticos de Cobertura de Arcos

Tipo: Integer;
Grau: Integer;
Linha: Integer;
Coluna: Integer;
Usado: Integer;
End;
TVet= Array[1..2000] Of Integer;
Var
I,J,M,N,Q1,Q2,Q,NoI,NoJ,M1,K,K1,K2,MAPrevisto: Integer;
NC,NL,MA,ME,I1,J1,PA,TotArc,TotLink,TipLink:Integer;
OK:Boolean;
Rede:TextFile;
P,GM:Real;
Vr:Variant;
Arq,ArqNome,NomeAbr:String;
Link: Array[1..10000] of TLink;
Node: Array[1..2000] of TNode;
Inf,Red,PAnR: Integer;
CppCost,AddCost:Integer;
ArqNomeTxt: String;
Function Rand(Num1,Num2:Integer):Integer;
Var R:Real;
Begin
//R:=Num1+(Num2-Num1)*Random;
//Rand:=Round(R);
Rand:=Num1+Trunc((Num2-Num1+1)*Random);
End;
Procedure calculeGrau(Var I,I3,Gr:Integer);
Var GMG,R1,R2:Real;
Begin
R1:=M-TotLink/2;
R2:=N-I3+1;
GMG:=R1/R2;
If Node[I].Tipo=5 then GMG:=GMG*1.2;
If Node[I].Tipo=3 then GMG:=2.0;
GMG:=GMG*(1.5+Random)/2.;
Gr:=Round(GMG);
If (Node[I].Tipo=5) And (Gr>5) then Gr:=5;
End;
Procedure DefineLink(Var I,J:Integer);
Var IL,IC,JL,JC,DL,DC,K,T:Integer;
Certo:Boolean;
Begin
T:=0;
Repeat
T:=T+1;
Certo:=true;
IL:=Node[I].Linha;
IC:=Node[I].Coluna;
DL:=Rand(-1,1);
DC:=Rand(-1,1);
If IL=1 Then DL:=Rand(0,1);
If IL=NL Then DL:=Rand(-1,0);
If IC=1 Then DC:=Rand(0,1);
If IC=NC Then DC:=Rand(-1,0);
JL:=IL+DL;
JC:=IC+DC;
J:=(JL-1)*NC+JC;
If J=I Then Certo:=false;
If Node[J].Grau=Node[J].Tipo Then Certo:=false;
138