9. Anexos.
9. Anexos. 9. Anexos.
Conj_Mst(Indice + 1).Conjunto = J2 Cargar_Arco_Kruskal i, Entrada(), SolucionMST() Else If J1 J2 Then For k = 1 To UBound(Conj_Mst()) If Conj_Mst(k).Conjunto = J2 Then Conj_Mst(k).Conjunto = J1 End If Next Cargar_Arco_Kruskal i, Entrada(), SolucionMST() End If End If End If End If End Sub Public Sub Depura_MST(ByRef Solucion() As Reg_Arcos) Dim i As Integer, j As Integer, k As Integer Dim Tamano As Integer Dim NumAdyacentes As Integer Dim Salir As Boolean, Eliminar As Boolean Dim NodosAdyMST() As Lista_Ady Dim SolucionMST() As Reg_Arcos SolucionMST = Solucion Calcular_Adyacentes SolucionMST(), NodosAdyMST(), False Salir = False While Salir = False Salir = True For i = 1 To UBound(NodosAdyMST) If NodosAdyMST(i).numero = 1 Then Eliminar = True For k = 1 To UBound(NodosOrigen) If i = NodosOrigen(k) Then Anexos. 32
Eliminar = False End If Next k End If If Eliminar = True Then Salir = False For k = 1 To UBound(NodosAdyMST(i).Mady) If NodosAdyMST(i).Mady(k).Nodo 0 Then For j = 1 To UBound(NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).Mady) If NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).Mady(j).Nodo = i Then NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).Mady(j).Nodo = 0 Anexos. NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).numero = NodosAdyMST(NodosAdyMST(i).Mady(k). Nodo).numero - 1 End If Next j End If Next k NodosAdyMST(i).numero = 0 End If Eliminar = False Next i Wend For i = 1 To UBound(SolucionMST) For k = 1 To UBound(NodosAdyMST) If NodosAdyMST(k).numero = 0 Then If SolucionMST(i).Origen = k Or SolucionMST(i).Destino = k Then SolucionMST(i).Inactivo = True End If End If Next k Next i j = 1 Tamano = 1 ReDim Solucion(Tamano) For i = 1 To UBound(SolucionMST) 33
- 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: Esta1 = False Esta2 = False j = 1 W
- 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 and 42: CosteTotal = CosteTotal + Vector(So
- Page 43 and 44: indic = 1 ReDim Xij0(UBound(Solucio
- 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
Conj_Mst(Indice + 1).Conjunto = J2<br />
Cargar_Arco_Kruskal i, Entrada(), SolucionMST()<br />
Else<br />
If J1 J2 Then<br />
For k = 1 To UBound(Conj_Mst())<br />
If Conj_Mst(k).Conjunto = J2 Then<br />
Conj_Mst(k).Conjunto = J1<br />
End If<br />
Next<br />
Cargar_Arco_Kruskal i, Entrada(), SolucionMST()<br />
End If<br />
End If<br />
End If<br />
End If<br />
End Sub<br />
Public Sub Depura_MST(ByRef Solucion() As Reg_Arcos)<br />
Dim i As Integer, j As Integer, k As Integer<br />
Dim Tamano As Integer<br />
Dim NumAdyacentes As Integer<br />
Dim Salir As Boolean, Eliminar As Boolean<br />
Dim NodosAdyMST() As Lista_Ady<br />
Dim SolucionMST() As Reg_Arcos<br />
SolucionMST = Solucion<br />
Calcular_Adyacentes SolucionMST(), NodosAdyMST(), False<br />
Salir = False<br />
While Salir = False<br />
Salir = True<br />
For i = 1 To UBound(NodosAdyMST)<br />
If NodosAdyMST(i).numero = 1 Then<br />
Eliminar = True<br />
For k = 1 To UBound(NodosOrigen)<br />
If i = NodosOrigen(k) Then<br />
<strong>Anexos</strong>.<br />
32
Change language