9. Anexos.

More documents

Recommendations

Info

Trafico(NodosAdyReC(i).Mady(k).Nodo) = Trafico(NodosAdyReC(i).Mady(k).Nodo) + Trafico(i) For j = 1 To UBound(NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady) If NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady(j).Nodo = i Then <strong>Anexos</strong>. NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).numero = NodosAdyReC(NodosAdyReC(i).Mady(k). Nodo).numero - 1 NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady(j).Nodo = 0 Destino = NodosAdyReC(i).Mady(k).Nodo End If Next j NodosAdyReC(i).numero = NodosAdyReC(i).numero - 1 Xij(NodosAdyReC(i).Mady(k).Posicion) = Xij(NodosAdyReC(i).Mady(k).Posicion) + Trafico(i) End If Next k Salir = False End If Eliminar = False Encontrado = False Next i Wend Next h End Sub Public Sub PrimeraSolucion(ByRef Solucion() As Reg_Arcos, ByRef Problema As String) Dim Xij0() As Double Dim Xij() As Double Dim NodosAdyReC() As Lista_Ady Dim Salir As Boolean Dim i As Integer, j As Integer, k As Integer Dim Destino As Integer Dim indic As Integer Dim nFile As Integer Dim sFile As String sFile = "PrimeraSol.txt" nFile = FreeFile 42
indic = 1 ReDim Xij0(UBound(Solucion), 3) ReDim Xij(UBound(Solucion)) 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(1) Then For k = 1 To UBound(NodosOrigen) If i = NodosOrigen(k) Then Trafico(i) = Trafico(i) + 1 End If Next k For k = 1 To UBound(NodosAdyReC(i).Mady) If NodosAdyReC(i).Mady(k).Nodo 0 Then Trafico(NodosAdyReC(i).Mady(k).Nodo) = Trafico(NodosAdyReC(i).Mady(k).Nodo) + Trafico(i) For j = 1 To UBound(NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady) If NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady(j).Nodo = i Then <strong>Anexos</strong>. NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).numero = NodosAdyReC(NodosAdyReC(i).Mady(k). Nodo).numero - 1 NodosAdyReC(NodosAdyReC(i).Mady(k).Nodo).Mady(j).Nodo = 0 Destino = NodosAdyReC(i).Mady(k).Nodo End If Next j NodosAdyReC(i).numero = NodosAdyReC(i).numero - 1 Xij(NodosAdyReC(i).Mady(k).Posicion) = Xij(NodosAdyReC(i).Mady(k).Posicion) + Trafico(i) Xij0(indic, 1) = i 'Xij0 solo se utiliza en MATLAB Xij0(indic, 2) = Destino 43
Page 1 and 2: 9. Anexos. 9.1. Anexo A: La optimiz
Page 3 and 4: steinb6.txt 6 12 1 9 36 1 10 17 1 1
Page 5 and 6: X j , N − X N , j= { 1 if j∈T
Page 7 and 8: ∂ c1 ∂ c 1 ∂ x 1 ∂c 2 ∂ x
Page 9 and 10: obliga a usar algoritmos del tipo m
Page 11 and 12: %Vector -> Array (Vx3) con arcos no
Page 13 and 14: Código. Preparación de las restri
Page 15 and 16: end DCeq(i,i)=Xij(i+size(Xij,1)/2);
Page 17 and 18: Nodo Inicial VectorDir Nodo Final C
Page 19 and 20: Anexos. viceversa. Esto es así deb
Page 21 and 22: CN XM 1 2 3 4 5 6 7 8 9 10 11 12 13
Page 23 and 24: Constraints Number of nonlinear ine
Page 25 and 26: Anexos. que dependerá del tipo de
Page 27 and 28: Dim TiempoSol As Single Dim Iteraci
Page 29 and 30: For i = 2 To UBound(Entrada()) Busc
Page 31 and 32: Esta1 = False Esta2 = False j = 1 W
Page 33 and 34: Eliminar = False End If Next k End
Page 35 and 36: Else End If Origen = Origen + 1 Ori
Page 37 and 38: j = j + 1 Wend ReDim Mat_L(NumeroNo
Page 39 and 40: Wend AnadirArco Vector, Solucion, O
Page 41: CosteTotal = CosteTotal + Vector(So
Page 45 and 46: If bFileExists(sFile) = True Then O
Page 47 and 48: Else ReDim ListaArchivos(UBound(Aux
Page 49 and 50: .Columns.AutoFit Next i .Columns.Au
Page 51: Public Vector() As Reg_Arcos Public

9. Anexos.

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

Delete template?

Save as template?