9. Anexos.

CosteTotal = CosteTotal + Vector(Solucion(i).Posicion).Longitud
Next i
End Sub
Public Sub Calcular_Flujo(ByRef Solucion() As Reg_Arcos, ByRef Xij() As Double)
Dim NodosAdyReC() As Lista_Ady
Dim Trafico() As Long
Dim Salir As Boolean, Eliminar As Boolean, Encontrado As Boolean
Dim i As Integer, j As Integer, k As Integer, h As Integer
Dim Destino As Integer
ReDim Xij(UBound(Solucion))
For h = 1 To UBound(NodosOrigen) 'Este for lo he añadido para calcular tráfico con broadcasting
Calcular_Adyacentes Solucion(), NodosAdyReC(), True
ReDim Trafico(UBound(NodosAdyReC))
Salir = False
While Salir = False
Salir = True
For i = 1 To UBound(NodosAdyReC)
If NodosAdyReC(i).numero = 1 And i NodosOrigen(h) Then
Eliminar = True
For k = 1 To UBound(NodosOrigen)
If i = NodosOrigen(k) Then
Trafico(i) = Trafico(i) + 1
End If
Next k
End If
If Eliminar = True Then
For k = 1 To UBound(NodosAdyReC(i).Mady)
If NodosAdyReC(i).Mady(k).Nodo 0 Then
Anexos.
41