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.
Label18: TLabel;<br />
GroupBox5: TGroupBox;<br />
SpinEdit1: TSpinEdit;<br />
Label19: TLabel;<br />
CheckBox5: TCheckBox;<br />
Visualizar: TButton;<br />
Button9: TButton;<br />
Edit11: TEdit;<br />
Edit12: TEdit;<br />
Label20: TLabel;<br />
Label21: TLabel;<br />
GroupBox6: TGroupBox;<br />
Edit13: TEdit;<br />
Edit14: TEdit;<br />
Edit15: TEdit;<br />
Edit10: TEdit;<br />
Label17: TLabel;<br />
Label22: TLabel;<br />
Label23: TLabel;<br />
Label24: TLabel;<br />
Label25: TLabel;<br />
CheckBox4: TCheckBox;<br />
Edit16: TEdit;<br />
Label26: TLabel;<br />
procedure Button1Click(Sen<strong>de</strong>r: TObject);<br />
procedure Button2Click(Sen<strong>de</strong>r: TObject);<br />
procedure RadioGroup1Click(Sen<strong>de</strong>r: TObject);<br />
procedure Button3Click(Sen<strong>de</strong>r: TObject);<br />
procedure Button4Click(Sen<strong>de</strong>r: TObject);<br />
procedure Button5Click(Sen<strong>de</strong>r: TObject);<br />
procedure Button6Click(Sen<strong>de</strong>r: TObject);<br />
procedure Button7Click(Sen<strong>de</strong>r: TObject);<br />
procedure BitBtn1Click(Sen<strong>de</strong>r: TObject);<br />
procedure Button8Click(Sen<strong>de</strong>r: TObject);<br />
procedure VisualizarClick(Sen<strong>de</strong>r: TObject);<br />
procedure Button9Click(Sen<strong>de</strong>r: TObject);<br />
private<br />
{ Private <strong>de</strong>clarations }<br />
public<br />
{ Public <strong>de</strong>clarations }<br />
end;<br />
var<br />
Form1: TForm1;<br />
implementation<br />
uses TransformaGrafo, GTSP, NegCircuit, CriaGrafo, LowerBound, Help,<br />
TransfSimples,AnimaGrafo, ConstRe<strong>de</strong>;<br />
{$R *.DFM}<br />
Type<br />
TLink = Record<br />
From: Integer;<br />
Too: Integer;<br />
Tipo: Integer;<br />
ArcContra: Integer;<br />
Cost: Integer;<br />
ModCost: Integer;<br />
ProxSuc: Integer;<br />
ProxPrd: Integer;<br />
NumUsed: Integer;<br />
End;<br />
TNo<strong>de</strong> = Record<br />
FirstSuc: Integer;<br />
FirstPrd: Integer;<br />
137