Найти число реберной связности графа

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

SergeyZuzic
Новичок
Новичок
 
Сообщения: 28
Зарегистрирован: 20.03.2009 (Пт) 14:36

Найти число реберной связности графа

Сообщение SergeyZuzic » 04.12.2012 (Вт) 19:38

Кто сталкивался с данной проблемой? Пробовал делать через max flow, но программа вылетает, при поиске потока из 0 вершины в 2.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 04.12.2012 (Вт) 21:03

Ну и чё?

SergeyZuzic
Новичок
Новичок
 
Сообщения: 28
Зарегистрирован: 20.03.2009 (Пт) 14:36

Re: Найти число реберной связности графа

Сообщение SergeyZuzic » 04.12.2012 (Вт) 21:21

Пока использую решение "в лоб":
Код: Выделить всё
Sub Rec(ByVal Z As Integer, ByVal arr1 As Array)
         TR(Z) = True
         For i = 0 To N
             If Arr1(i, Z) = 1 And Not TR(i) Then
                 Rec(i, Arr1)
                 ZZ += 1
             End If
         Next
     End Sub
     Sub DeleteR(ByVal Arr1 As Array, ByVal JJ As Integer)
         For i = 1 To N
             For j = i - 1 To N - 1
                 If Arr1(i, j) = 1 And JJ < 3 Then
                     Arr1(i, j) = 0
                     DeleteR(Arr1, JJ + 1)
                     Arr1(i, j) = 1
                 End If
             Next
         Next
         If JJ < DD Then
             For i = 0 To N
                 TR(i) = 0
             Next
             ZZ = 0
             Rec(0, Arr1)
             If ZZ <> N Then
                 DD = JJ
             End If
         End If
     End Sub

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 04.12.2012 (Вт) 22:52

Это не в лоб, а через одно место. И абсолютно нечитаемо.

SergeyZuzic
Новичок
Новичок
 
Сообщения: 28
Зарегистрирован: 20.03.2009 (Пт) 14:36

Re: Найти число реберной связности графа

Сообщение SergeyZuzic » 06.12.2012 (Чт) 19:45

Бывает, а предложения по существу есть?

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 06.12.2012 (Чт) 20:52

Есть. Написать нормально. Искать поток алгоритмом Эдмондса-Карпа, например. Ну и по циклу для истока и стока. Устраивает?


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15

    TopList