Додаток Б

Програма зображення структури мінімального покриваючого дерева графа

Public Sub MinTreePainter()

' - Специфікація змінних і масивів

Const N = 7 ' <-- це кількість вершин графа

Dim I, J, До, Im, Jm, YSdvig, Rec As Integer

Dim S As String

Dim Vert(N), Sh As Shape

Dim Dis(N, N), Tree(N, N), Xvert(N), Yvert(N), Vlink(N) As Integer

YSdvig = 60 '<-- це зрушення малюнка по вертикалі

' -- Введення і формування матриці вагів ребер і координат вершин

For I = 1 To N

    Xvert(I)= ActiveSheet.Cells(I + 2, N + 2)

    Yvert(I)= ActiveSheet.Cells(I + 2, N + 3)

    For J = 1 To N

        Dis(I, J)= ActiveSheet.Cells(I + 2, J + 1)

    Next J

Next I

' -- Підготовка початкових масивів

For I = 1 To N

   Vlink(I)= 0  '<- цей масив зберігає номери вершин, що додаються до

' дереву

   For J = 1 To N

     Tree(I, J)= 0 '<-- цей масив зберігає структуру оптимального

' дерева

   Next J

Next I

До = 1

Vlink(1)= 1