Algoritmos Heurísticos de Cobertura de Arcos
Algoritmos Heurísticos de Cobertura de Arcos
Algoritmos Heurísticos de Cobertura de Arcos
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Anexo II – Código em Object Pascal do Algoritmo Proposto<br />
// URandGraf gera um grafo aleatório, na forma pseudo-Manhattan, com uma solução<br />
// próxima a ótima <strong>de</strong> MCPP conhecida.<br />
// Versão 3, Setembro <strong>de</strong> 2002<br />
unit URandGraf;<br />
interface<br />
uses<br />
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br />
StdCtrls, ComCtrls, ExtCtrls, UPrincipal, Buttons, Spin;<br />
type<br />
TForm1 = class(TForm)<br />
Button1: TButton;<br />
StatusBar1: TStatusBar;<br />
ListBox1: TListBox;<br />
Button2: TButton;<br />
GroupBox1: TGroupBox;<br />
Edit1: TEdit;<br />
Edit2: TEdit;<br />
Edit3: TEdit;<br />
Label1: TLabel;<br />
Label2: TLabel;<br />
Label3: TLabel;<br />
EDit4: TEdit;<br />
Label4: TLabel;<br />
Edit5: TEdit;<br />
Label6: TLabel;<br />
Edit6: TEdit;<br />
Label7: TLabel;<br />
Label5: TLabel;<br />
Label12: TLabel;<br />
SaveDialog1: TSaveDialog;<br />
RadioGroup1: TRadioGroup;<br />
RadioButton1: TRadioButton;<br />
RadioButton2: TRadioButton;<br />
RadioButton3: TRadioButton;<br />
Button3: TButton;<br />
GroupBox2: TGroupBox;<br />
Label9: TLabel;<br />
Label10: TLabel;<br />
Label11: TLabel;<br />
ProgressBar1: TProgressBar;<br />
Button4: TButton;<br />
Button5: TButton;<br />
Label8: TLabel;<br />
Label13: TLabel;<br />
Edit7: TEdit;<br />
GroupBox3: TGroupBox;<br />
Label15: TLabel;<br />
Button6: TButton;<br />
Button7: TButton;<br />
BitBtn1: TBitBtn;<br />
Button8: TButton;<br />
GroupBox4: TGroupBox;<br />
Edit8: TEdit;<br />
Label14: TLabel;<br />
CheckBox1: TCheckBox;<br />
CheckBox2: TCheckBox;<br />
CheckBox3: TCheckBox;<br />
Edit9: TEdit;<br />
Label16: TLabel;<br />
136