9. Anexos.
9. Anexos.
9. Anexos.
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Trafico(NodosAdyReC(i).Mady(k).Nodo) = Trafico(NodosAdyReC(i).Mady(k).Nodo) + Trafico(i)<br />
For j = 1 To UBound(NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady)<br />
If NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady(j).Nodo = i Then<br />
<strong>Anexos</strong>.<br />
NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).numero = NodosAdyReC(NodosAdyReC(i).Mady(k).<br />
Nodo).numero - 1<br />
NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady(j).Nodo = 0<br />
Destino = NodosAdyReC(i).Mady(k).Nodo<br />
End If<br />
Next j<br />
NodosAdyReC(i).numero = NodosAdyReC(i).numero - 1<br />
Xij(NodosAdyReC(i).Mady(k).Posicion) = Xij(NodosAdyReC(i).Mady(k).Posicion) + Trafico(i)<br />
End If<br />
Next k<br />
Salir = False<br />
End If<br />
Eliminar = False<br />
Encontrado = False<br />
Next i<br />
Wend<br />
Next h<br />
End Sub<br />
Public Sub PrimeraSolucion(ByRef Solucion() As Reg_Arcos, ByRef Problema As String)<br />
Dim Xij0() As Double<br />
Dim Xij() As Double<br />
Dim NodosAdyReC() As Lista_Ady<br />
Dim Salir As Boolean<br />
Dim i As Integer, j As Integer, k As Integer<br />
Dim Destino As Integer<br />
Dim indic As Integer<br />
Dim nFile As Integer<br />
Dim sFile As String<br />
sFile = "PrimeraSol.txt"<br />
nFile = FreeFile<br />
42