Algoritmos Heurísticos de Cobertura de Arcos

More documents

Recommendations

Info

Esta Unidade contém as rotinas de representação gráfica // dos grafos manhattan, e a animação dos roteiros. // Versão 2. Junho de 2003. unit AnimaGrafo; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Math, ExtDlgs; type TForm10 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; OpenDialog1: TOpenDialog; OpenPictureDialog1: TOpenPictureDialog; Image1: TImage; PaintBox1: TPaintBox; Button5: TButton; procedure Button1Click(Sender: TObject); procedure PaintBox1Paint(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form10: TForm10; implementation uses Urandgraf, NegCircuit, UPrincipal, ConstRede; {$R *.DFM} Type TLink = Record Tipo: Integer; // Tipo de Link no arquivo original: // 0: aresta 1: arco Noi: Integer; Nof: Integer; End; TNo = Record ci:Integer; // coordenada i cj:Integer; // coordenada j End; TRota = Record Noi: Integer; Nof: Integer; Tipo: String[1]; // Tipo de link no arquivo rota: + - > D Arc: Integer; Ordem:Integer; FreqTotal:Integer; end; Var Raio:Integer; Rede,Roteiro:TextFile; ArqNome,ArqSol,ArqMapa:String; CompArco,PenaNormal,PenaDiag: Integer; 160
M,N,NL,NC,MA,ME:Integer; BotaoAcionado:Integer; Velocidade,VelInversa: Integer; Falha: Boolean; Const MaxLink = 2000; MaxRota = 2400; MaxNo = 1000; Function Delay(N:Integer):Real; Var x:Real; i,j:Integer; Begin X:=1.0; For i:=1 to 1*N do For j:=1 to 100+CompArco do x:=x+0.000001; Result:=x; End; Procedure CriaNo(x,y:Integer;PaintBox1:TPaintBox); // Desenha um nó do grafo, com as coordenadas dadas begin PaintBox1.Canvas.Pen.Width:=PenaDiag; PaintBox1.Canvas.Pen.Color:=clMaroon ; PaintBox1.Canvas.Ellipse(x-Raio,y-Raio,x+Raio,y+Raio); end; Procedure CriaAresta(x1,y1,x2,y2:Integer;PaintBox1:TPaintBox); // Desenha uma aresta original do grafo, com as coordenadas dadas begin PaintBox1.Canvas.Pen.Width:=PenaDiag; //PaintBox1.Canvas.Pen.Color:=8400000; PaintBox1.Canvas.Pen.Color:=40000; If (x1 = x2) or (y1 = y2) Then PaintBox1.Canvas.Pen.Width:=PenaNormal; PaintBox1.Canvas.MoveTo(x1,y1); PaintBox1.Canvas.LineTo(x2,y2); end; Procedure CriaArco(x1,y1,x2,y2:Integer;PaintBox1:TPaintBox); // Desenha um arco original do grafo, com as coordenadas dadas var i,xs,ys,dx,dy,LargSeta: Integer; ponto1x,ponto2x,ponto3x,ponto1y,ponto2y,ponto3y:Integer; begin PaintBox1.Canvas.Pen.Width:=PenaDiag; PaintBox1.Canvas.Pen.Color:=40000; //PaintBox1.Canvas.pen.Style := psClean; Limpa a linha existente If (x1 = x2) or (y1 = y2) Then PaintBox1.Canvas.Pen.Width:=PenaNormal; PaintBox1.Canvas.MoveTo(x1,y1); PaintBox1.Canvas.LineTo(x2,y2); xs:=Round((x2-x1)*0.85)+x1; dx:=Round((x2-x1)/Abs(x2-x1+0.1)); dy:=Round((y2-y1)/Abs(y2-y1+0.1)); ys:=Round((y2-y1)*0.85)+y1; LargSeta:=Round(0.02*Sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+0.0)); If dx*dy=0 Then begin xs:=Round((x2-x1)*0.80)+x1; ys:=Round((y2-y1)*0.80)+y1; LargSeta:=Round(2*LargSeta); end; 161
Page 1 and 2:
UNIVERSIDADE FEDERAL DE SANTA CATAR
Page 3 and 4:
Dedico este trabalho à memória de
Page 5 and 6:
Resumo Nos problemas de roteamento
Page 7 and 8:
Algoritmos Heurísticos de Cobertur
Page 9 and 10:
Glossário das Abreviaturas Usadas
Page 11 and 12:
Como um exemplo específico, pode s
Page 13 and 14:
- Problema do Carteiro Chinês - PC
Page 15 and 16:
- distribuição de alguns produtos
Page 17 and 18:
II - Problemas de Roteamento de Arc
Page 19 and 20:
2.2 Definições A maioria das defi
Page 21 and 22:
conexo, então ele é formado por u
Page 23 and 24:
2.4 Problema de Carteiro Chinês Da
Page 25 and 26:
5) Construa um circuito euleriano e
Page 27 and 28:
A menção do PCV aqui foi devido a
Page 29 and 30:
subida de uma ladeira, e o outro a
Page 31 and 32:
grande, comparado com o custo total
Page 33 and 34:
Se o grafo misto G é euleriano, o
Page 35 and 36:
O PCCM é a versão mais difícil d
Page 37 and 38:
9 a 84 segundos num NORSK DATA ND-5
Page 39 and 40:
um número maior de pseudo-arestas
Page 41 and 42:
Sujeito a − ∑ x ij ( v i , v j
Page 43 and 44:
com ganho. Os algoritmos existentes
Page 45 and 46:
c) coloque Yij cópias do arco (i,
Page 47 and 48:
d) coloque Ykl cópias do arco (k,
Page 49 and 50:
problemas aleatoriamente gerados, n
Page 51 and 52:
Os testes computacionais foram feit
Page 53 and 54:
soluções aproximadas para o PCCM,
Page 55 and 56:
Heurística de Eiselt et al. [Eis95
Page 57 and 58:
usando os métodos apresentados por
Page 59 and 60:
A alternância entre os dois movime
Page 61 and 62:
O PCVA resultante foi resolvido usa
Page 63 and 64:
O trabalho apresenta testes computa
Page 65 and 66:
produziram soluções com desvio ab
Page 67 and 68:
V - Contribuições ao Problema de
Page 69 and 70:
(a) dois nós il n , n jl em N 1; (
Page 71 and 72:
As operações efetuadas nessa tran
Page 73 and 74:
últimos autores, tem encontrado so
Page 75 and 76:
Tabela 5.1. Testes Computacionais n
Page 77 and 78:
O método pode ser aplicado eficien
Page 79 and 80:
Quanto à eficiência comparativa d
Page 81 and 82:
negligenciadas na formulação dess
Page 83 and 84:
arco de conexão. Além do mais, o
Page 85 and 86:
subconjunto de arestas e um subconj
Page 87 and 88:
is, it ∈ Pi , criar o arco ( i s,
Page 89 and 90:
6.4 Testes Computacionais para o PC
Page 91 and 92:
C/C2: Razão entre a solução prop
Page 93 and 94:
Tabela 6.1. Continuação INST. |N|
Page 95 and 96:
Tabela 6.1. Continuação INSTÂN C
Page 97 and 98:
Page 99 and 100:
Page 101 and 102:
Tabela 6.2. Resumo dos testes compu
Page 103 and 104:
Tempo de Proc. 600 500 400 300 200
Page 105 and 106:
∑ M = ( T − f( a , e)) . i i i
Page 107 and 108:
ao tempo de processamento, quando a
Page 109 and 110: VII - Aplicação do PGR ao Problem
Page 111 and 112: Com estas considerações, pode-se
Page 113 and 114: distintos s e t em N, que contenha
Page 115 and 116: 7.3 Experiência de Aplicação a u
Page 117 and 118: Figura 7.2 Planta do Setor de Colet
Page 119 and 120: Com objetivo de fazer uma comparaç
Page 121 and 122: soluções de boa qualidade, quando
Page 123 and 124: IX - Referências [App95] Applegate
Page 125 and 126: [Edm73] Edmonds, J. and Johnson, E.
Page 127 and 128: [Lap97] Laporte, G. , Modeling and
Page 129 and 130: [Pet77] J. P. Petersen, A Manual Pr
Page 131 and 132: Anexo I - Algoritmo de Busca Local
Page 133 and 134: Retorne s* ; Fim. Procedimento BLR
Page 135 and 136: Anexo II Código em Object Pascal (
Page 137 and 138: Label18: TLabel; GroupBox5: TGroupB
Page 139 and 140: If Node[J].Grau>GM+1 Then Certo:=fa
Page 141 and 142: Procedure GravaArq(ListBox1:TListBo
Page 143 and 144: End; K:=Link[K].ProxSuc; X:=Link[K]
Page 145 and 146: AchaCaminhoMinimo(N2,N1,CMin,CardCa
Page 147 and 148: procedure TForm1.Button1Click(Sende
Page 149 and 150: GroupBox4.enabled := false; End; en
Page 151 and 152: Rede,RedeOrig,RedeTemp:TextFile; Ar
Page 153 and 154: MA1:=0; ME1:=0; For II:=1 To M1 Do
Page 155 and 156: ,InicioRota,' ',InicioRotaCoordI,'
Page 157 and 158: End; End; For I:= 1 To M1 Do Begin
Page 159: NomeAbr := Copy(NomeAbr,1, Length(N
Page 163 and 164: If ((M=0) Or (MMA+ME)) Then begin F
Page 165 and 166: egin AssignFile(Rede,ArqNome); Rese
Page 167 and 168: xs:=x1; ys:=y1; PaintBox1.Canvas.Mo
Page 169 and 170: If ((Rota[II].Tipo = 'D') and (II <
Page 171 and 172: AssignFile(Roteiro,ArqSol); //Arqui
Page 173 and 174: egin Form10.Image1.Visible:=false;
show all

Algoritmos Heurísticos de Cobertura de Arcos

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?