Algoritmos Heurísticos de Cobertura de Arcos

Procedure CalculaCustoConversao(N1,N2,N3:Integer ; Var Penal:Integer);
var V1L,V1C,V2L,V2C,SenoTeta,CosTeta,A: Real;
PenalFrente,PenalDireita,PenalEsquerda:Integer;
begin
PenalFrente:=StrToInt(Form1.Edit13.Text);
PenalDireita:=StrToInt(Form1.Edit14.Text);
PenalEsquerda:=StrToInt(Form1.Edit15.Text);
V1L:= Node[N2].Linha-Node[N1].Linha;
V1C:= Node[N2].Coluna-Node[N1].Coluna;
V2L:= Node[N3].Linha-Node[N2].Linha;
V2C:= Node[N3].Coluna-Node[N2].Coluna;
A:=Sqrt((V1L*V1L+V1C*V1C)*(V2L*V2L+V2C*V2C));
SenoTeta:= (V1L*V2C-V1C*V2L)/A;
CosTeta:= (V1L*V2L+V1C*V2C)/A;
If CosTeta>0.866 then penal:=PenalFrente; // Em frente (Angulo -30 a 30)
If SenoTeta>=0.5 then penal:=PenalEsquerda; // Para Esquerda (Angulo 30 a 150)
If CosTeta0 Then
begin
//WriteLn(Rede,N1,' ',N2,' ',N3,' 0');
WriteLn(Rede,N1,' ',N2,' ',N3,' ',Penal);
Linha :='';
Linha := Linha + IntToStr(N1) + ' ';
Linha := Linha + IntToStr(N2) + ' ';
Linha := Linha + IntToStr(N3) + ' ';
Linha := Linha + IntToStr(Penal) + ' ';
ListBox1.Items.Add (Linha);
end;
L:=Link[L].ProxSuc;
end;
K:=Link[K].ProxSuc;
end;
End;
CloseFile(Rede);
end;
146