9. Anexos.
9. Anexos.
9. Anexos.
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>Anexos</strong>.<br />
En concreto, se abren dos hojas Excel. Una de ellas con tiene la evolución del Coste de la Solución<br />
en cada una de las iteraciones del algoritmo, mientras que la otra únicamente muestra una fila por<br />
cada problema y muestra:<br />
• El nombre del problema.<br />
• El número de nodos del mismo.<br />
• El número de arcos.<br />
• El número de terminales.<br />
• El tiempo total de la ejecución (en segundos).<br />
• El tiempo empleado en converger a la solución final (en segundos).<br />
• El número de iteraciones empleadas en encontrar la solución.<br />
• El coste óptimo de la solución.<br />
• El coste de la solución de la optimización implementada.<br />
• El error (%) de la solución.<br />
<strong>9.</strong>2.2. El Código.<br />
<strong>9.</strong>2.2.1. El Bucle Principal.<br />
Módulo: bucle principal.bas<br />
Option Explicit<br />
Option Base 1<br />
Public Sub Bucle_Iterativo(ByRef Problema As String, ByRef IndiceFila As Integer)<br />
Dim VectorRecal() As Reg_Arcos<br />
Dim Solucion() As Reg_Arcos<br />
Dim CosteSolucion() As Long<br />
Dim Iteracion As Integer<br />
Dim CosteActual As Long<br />
Dim TiempoSim As Single<br />
Figura <strong>9.</strong>2.1 Interfaz del programa<br />
26