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.
Eliminar = False<br />
End If<br />
Next k<br />
End If<br />
If Eliminar = True Then<br />
Salir = False<br />
For k = 1 To UBound(NodosAdyMST(i).Mady)<br />
If NodosAdyMST(i).Mady(k).Nodo 0 Then<br />
For j = 1 To UBound(NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).Mady)<br />
If NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).Mady(j).Nodo = i Then<br />
NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).Mady(j).Nodo = 0<br />
<strong>Anexos</strong>.<br />
NodosAdyMST(NodosAdyMST(i).Mady(k).Nodo).numero = NodosAdyMST(NodosAdyMST(i).Mady(k).<br />
Nodo).numero - 1<br />
End If<br />
Next j<br />
End If<br />
Next k<br />
NodosAdyMST(i).numero = 0<br />
End If<br />
Eliminar = False<br />
Next i<br />
Wend<br />
For i = 1 To UBound(SolucionMST)<br />
For k = 1 To UBound(NodosAdyMST)<br />
If NodosAdyMST(k).numero = 0 Then<br />
If SolucionMST(i).Origen = k Or SolucionMST(i).Destino = k Then<br />
SolucionMST(i).Inactivo = True<br />
End If<br />
End If<br />
Next k<br />
Next i<br />
j = 1<br />
Tamano = 1<br />
ReDim Solucion(Tamano)<br />
For i = 1 To UBound(SolucionMST)<br />
33