Algoritmos Heurísticos de Cobertura de Arcos

egin
Form10.Image1.Visible:=false;
If Form1.CheckBox5.Checked = false Then Exit;
BotaoAcionado:=2;
ArqNome:= FrmPrincipal.OpenDialog1.FileName;
DesenhaGrafo(ArqNome,PaintBox1);
ArqSol:= FrmPrincipal.SaveDialog2.FileName;
DesenhaGrafoSolucaoGLS(ArqNome,ArqSol,PaintBox1);
end;
procedure TForm10.Button3Click(Sender: TObject);
// Desenha Solução da NegCircuit
begin
Form10.Image1.Visible:=false;
If Form1.CheckBox5.Checked = false Then Exit;
BotaoAcionado:=3;
ArqNome:= Form4.SaveDialog1.FileName;
DesenhaGrafo(ArqNome,PaintBox1);
DesenhaGrafoSolucao(ArqNome,PaintBox1);
end;
procedure TForm10.Button4Click(Sender: TObject);
// Esta rotina identifica o tipo de arquivo, se ele é um grafo,
// se ele é uma solução de MCPP gerada pela rotina NegCircuit,
// ou se é uma solução de MCPP gerada pela Busca Local.
// Depois da identificação, desenha o grafo e mostra a solução.
var St:String;
begin
BotaoAcionado:=4;
Form10.Image1.Visible:=false;
//OpenDialog1.InitialDir := 'C:\Arquivos de programas\Borland\Delphi4\Projects\DadosMcpp\';
OpenDialog1.InitialDir := 'C:\Meus documentos\Doutorado\MCPPgls Demo\';
If OpenDialog1.Execute
Then ArqNome := OpenDialog1.FileName
Else Exit;
St:=Copy(ArqNome,Length(ArqNome)-6,3);
If (St='KXS') or (St='KUS') or (St='KCS') or (St='KNS')
then begin
// Anima solução sobre um mapa
BotaoAcionado:=0;
CalculaCompArco;
ArqSol:=ArqNome;
ArqMapa:=ArqNome;
Delete (ArqNome,Length(ArqNome)-4,1);
Delete (ArqMapa,Length(ArqMapa)-6,7);
ArqMapa:=ArqMapa+'.bmp';
DesenhaGrafoSolucaoMapa(ArqMapa,ArqNome,ArqSol,PaintBox1);
Exit;
end;
If Copy(ArqNome,Length(ArqNome)-4,1)'S'
then begin
If Copy(ArqNome,Length(ArqNome)-4,1)='L'
then begin
// Desenha solução de Lower Bound
BotaoAcionado:=3;
DesenhaGrafo(ArqNome,PaintBox1);
DesenhaGrafoSolucao(ArqNome,PaintBox1);
end
else begin
// Desenha um grafo
BotaoAcionado:=1;
DesenhaGrafo(ArqNome,PaintBox1)
end;
end
173