9. Anexos.

For i = 2 To UBound(Entrada())
Buscar_En_Conjunto i, Entrada(), SolucionMST()
Next i
Depura_MST SolucionMST()
Entrada = SolucionMST
End Sub
Private Function Partition(ByRef A() As Reg_Arcos, ByVal Lb As Long, ByVal Ub As Long) As Long
Dim Temp As Reg_Arcos
Dim pivot As Reg_Arcos
Dim i As Long
Dim j As Long
Dim p As Long
p = Lb + (Ub - Lb) \ 2
pivot = A(p)
A(p) = A(Lb)
i = Lb + 1
j = Ub
Do
Do While i < j
If pivot.Longitud = i
If A(j).Longitud = j Then Exit Do
Temp = A(i)
A(i) = A(j)
A(j) = Temp
j = j - 1
i = i + 1
Loop
Anexos.
29