Algoritmos Heurísticos de Cobertura de Arcos

Programa para transformar um grafo misto num grafo completo
// no formato exigido pelos programas GTSP e UCityList (SCR9)
// Este módulo permite a inserção de restrições nos vértices
// e especificação dos nós de inicio e fim do roteiro.
// Se o nó inicio da rota for diferente do nó final, um arco
// artificial na forma de (FimRota, InicioRota) é acrescido,
// antes de efetuar a transformação.
// A transformação pode ser efetuada para o Problema do carteiro
// Rural- RPP. Se o problema é RPP, automaticamente é identificado
// e acionada a rotina ReduzirRuralPostman que reduz a matriz final
// para os link requeridos.
// Versão 4, Agosto de 2003.
unit TransformaGrafo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
Tform2 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
form2: Tform2;
implementation
uses URandGraf,TransfSimples;
{$R *.DFM}
Type
TArc = Record
Noi: Integer;
Nof: Integer;
end;
TLink = Record
From: Integer; // Nó inicial do Link
Too: Integer; // Nó final do Link
Custo: Integer; // Custo Original do Link
Arc: TArc; // Arco transformado associado, com novos nós terminais
ArcContra: Integer; // Correspondencia com Arco no sentido opsto
// Link[i].ArcContra = k, então aresta i é representada pelo
// par de arcos i , k. Se =-1, então i originalmente é arco
Tipo: Integer; // 1:Arco, 0:Aresta, 2: Aresta sentido oposto
Req: Integer; // 1:Link Requerido 0: Link não requerido
ArcContraReq: Integer; // É a mesma ArcContra, calculada na base de apenas Links
// requeridos. para os não requeridos seu valor é zero.
end;
Var
Link: Array[1..4000] of TLink;
UmLink: TLink;
L:array[1..4000,1..4000] of Integer;
I,J,K,I1,J1,d,Noi,Nof,N,M,M1,M2,NL,NC,MA,ME,a,b: Integer;
150