Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Связность графа 
V
    Опции темы
Elfet
  Дата 10.12.2006, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Белый и Пушистый
****


Профиль
Группа: Awaiting Authorisation
Сообщений: 3776
Регистрация: 2.4.2003

Репутация: нет
Всего: 16



У меня есть матрица смежности орграфа. Как определить связанный или нет?  smile 


--------------------
PM MAIL WWW Skype   Вверх
comp
Дата 10.12.2006, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.11.2006

Репутация: 1
Всего: 1



1.обходиш граф.
2.смотриш, все ли вершины помеченны.
PM MAIL   Вверх
Elfet
Дата 10.12.2006, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Белый и Пушистый
****


Профиль
Группа: Awaiting Authorisation
Сообщений: 3776
Регистрация: 2.4.2003

Репутация: нет
Всего: 16



smile Я помню был какой то способ с перемножением матриц смежности. Меня он более всего интересует smile


--------------------
PM MAIL WWW Skype   Вверх
maxim1000
Дата 10.12.2006, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 33
Всего: 110



ну тогда можно рассмотреть такую операцию:
берём вектор, в котором будем хранить, до каких вершин уже добрались
под умножением матрицы будем понимать вектор, показывающий до каких вершин можно добраться если иметь возможность делать один шаг по рёбрам (будем считать, что по главной диагонали матрицы стоят 1)
тогда получается, что каждый элемент нового вектора:
Y[n]=OR[i=1..N] ( X[i] and M[n,i] )
эта операция задаёт "умножение" матрицы на вектор - Y=M*X
большинство нужных свойств выводятся из ассоциативности, дистрибутивности и коммутативности операций or/and аналогично операциям +/*

так что берём вектор с одной 1-цей, действуем на него N раз матрицей M и проверяем в нём наличие нулей, если есть - значит, это изолированные вершины (от первой), если нет - весь граф связный

P.S.
подозреваю, можно перевести это всё просто на умножение матриц
потом посмотреть, что это просто возведение в N-ю степень
в том виде, в котором оно представлено выше - количество умножений N
но само по себе возведение в степень можно сделать за log N шагов:
(в качестве иллюстрации)
Код

CMatrix Power(CMatrix m,int degree)
{
    if(degree==1)
        return m;
    CMatrix sqrmatrix=m*m;
    if(degree%2==0)
        return Power(sqrmatrix,degree/2);
    else
        return Power(sqrmatrix,degree/2)*m;
}



--------------------
qqq
PM WWW   Вверх
Elfet
Дата 10.12.2006, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Белый и Пушистый
****


Профиль
Группа: Awaiting Authorisation
Сообщений: 3776
Регистрация: 2.4.2003

Репутация: нет
Всего: 16



Ок! smile Спасибо! smile  smile 


--------------------
PM MAIL WWW Skype   Вверх
FireSnake
Дата 12.12.2006, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: нет
Всего: 1



Граждане! А вам знакомы такие алгоритмы как обход в ширину и глубину?!! Выкладываю вам текст из Окулова:

3.2.2. Поиск в ширину
Идея метода. Суть (в сжатой формулировке) заключается в том, чтобы рассмотреть все вершины, связанные с текущей. Принцип выбора следующей вершины - выбирается та, которая была раньше рассмотрена. Для реализации данного принципа необходима структура данных “очередь”. 
 
    Пример. Исходный граф на левом рисунке. На правом рисунке рядом с вершинами в скобках указана очередность просмотра вершин графа.

    Приведем процедуру реализации данного метода обхода вершин графа.
    Логика просмотра вершин.
Код

procedure PW(v:integer);
  var    Og:array[1..N] of 0..N;    {очередь}
    yk1,yk2:integer;    {указатели очереди, yk1 - запись; yk2 - чтение}
    j:integer;    
   begin
    FillChar(Og,SizeOf(Og),0);yk1:=0;yk2:=0;{начальная инициализация}
    Inc(yk1);Og[yk1]:=v;Nnew[v]:=false;{в очередь - вершину v}
    while yk2<yk1 do begin    {пока очередь не пуста}
     Inc(yk2);v:=Og[yk2];write(v:3);{“берем” элемент из очереди}
     for j:=1 to N do {просмотр всех вершин, связанных с вершиной v}
       if (A[v,j]<>0) and Nnew[j] then begin{если вершина ранее не просмотрена}
         Inc(yk1);Og[yk1]:=j;Nnew[j]:=false;{заносим ее в очередь}
        end;
    end;
   end;
    


А вот сам алгоритм, который определяет связан граф или нет обходом в ширину:
Код

program Sviaznost_v_shiriny;
const dl=50;
var a:array[1..dl,1..dl]of integer;
    c,b:array[1..dl]of integer;
    i,j,t,v,m,d,n:integer;
procedure SHIRina;
begin
     b[1]:=1;
     c[1]:=1;
     d:=1;
     m:=1;
     while (m<=d)and(d<n) do
     begin
          v:=c[m];
          t:=1;
          while (t<=n)and(d<n)do
          begin
               if(b[t]=0)and(a[v,t]=1)then
               begin
                    inc(d);
                    b[d]:=1;
                    c[d]:=t;
               end;
               inc(t);
          end;
          inc(m);
     end;
end;

begin
     assign(input,'in.txt');
     reset(input);
     fillchar(a,sizeof(a),0);
     fillchar(b,sizeof(b),0);
     fillchar(c,sizeof(c),0);
     readln(n);
     for i:=1 to n do
     begin
          for j:=1 to n do read(a[i,j]);
          readln;
     end;
     SHIRINA;
     for i:=1 to n do write(c[i],' ');
     writeln;
end.


Это сообщение отредактировал(а) maxim1000 - 12.12.2006, 01:12
PM MAIL ICQ   Вверх
Elfet
Дата 12.12.2006, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Белый и Пушистый
****


Профиль
Группа: Awaiting Authorisation
Сообщений: 3776
Регистрация: 2.4.2003

Репутация: нет
Всего: 16



Построение ПВГ для каждой вершины? smile Вроде с момощью перемножения проще smile


--------------------
PM MAIL WWW Skype   Вверх
XbiT
Дата 12.12.2006, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 9.2.2006

Репутация: 1
Всего: 1



Не проще это точно. dfs легче для понимания имхо. рекурсия в пару строчек выходит. Единственное, может умножением быстрее...


PM MAIL   Вверх
esperant0
Дата 12.12.2006, 22:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 714
Регистрация: 20.5.2005

Репутация: 4
Всего: 14



Цитата(XbiT @ 12.12.2006,  22:46)
Не проще это точно. dfs легче для понимания имхо. рекурсия в пару строчек выходит. Единственное, может умножением быстрее...

ДФС, не катит в данном случае.


Самый простой алгоритм - это случайное блуждание по графу. Но он работает хорошо только неа не направленных графах


--------------------
 
 Student->Teacher Assistant ->Research assistant->Microsoft Software Development Engineer 

Пользователь получил наказание за то, что проигнорировал замечание которое было написано модератором  а затем стерто и которое он - пользователь не мог видеть. 
PM MAIL   Вверх
comp
Дата 13.12.2006, 08:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.11.2006

Репутация: 1
Всего: 1



Цитата(esperant0 @ 12.12.2006,  22:56)
Самый простой алгоритм - это случайное блуждание по графу. Но он работает хорошо только неа не направленных графах

Ну блин, для орграфов, вообще-то, существует совершенной другой алгоритм для определения компонент сильной связности. И вопрос ветки, совершенно этого не касался. Да, и в глубь, намнооого медленнее, в любом случае, надо идти в ширь!!!
PM MAIL   Вверх
Elfet
Дата 13.12.2006, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Белый и Пушистый
****


Профиль
Группа: Awaiting Authorisation
Сообщений: 3776
Регистрация: 2.4.2003

Репутация: нет
Всего: 16



Странно, а у меня в ширь сложнее получился чем в глубь smile


--------------------
PM MAIL WWW Skype   Вверх
comp
Дата 13.12.2006, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.11.2006

Репутация: 1
Всего: 1



Хех... не может быть. Если идти в глубь, то теряется много времени при возврате из рекурсии, чего собственно не наблюдается, если идти в ширину.
PM MAIL   Вверх
Elfet
Дата 13.12.2006, 23:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Белый и Пушистый
****


Профиль
Группа: Awaiting Authorisation
Сообщений: 3776
Регистрация: 2.4.2003

Репутация: нет
Всего: 16



Ну да? В шируну тоже есть возврат из рекурсии  smile  Но это уже оффтоп smile 

А можно ещё про перемножение матриц? N раз перемножить раз. А дальше что?


--------------------
PM MAIL WWW Skype   Вверх
maxim1000
Дата 13.12.2006, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 33
Всего: 110



Цитата(Elfet @  13.12.2006,  22:09 Найти цитируемый пост)
А можно ещё про перемножение матриц? N раз перемножить раз. А дальше что?

если не ошибаюсь, то вполне достаточно проверить, что в каком-нибудь столбце все элементы- единицы (если граф неориентированный)


--------------------
qqq
PM WWW   Вверх
esperant0
Дата 13.12.2006, 23:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 714
Регистрация: 20.5.2005

Репутация: 4
Всего: 14



И все же самый простой алг, это случайный обход


--------------------
 
 Student->Teacher Assistant ->Research assistant->Microsoft Software Development Engineer 

Пользователь получил наказание за то, что проигнорировал замечание которое было написано модератором  а затем стерто и которое он - пользователь не мог видеть. 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Алгоритмы"

maxim1000

Форум "Алгоритмы" предназначен для обсуждения вопросов, связанных только с алгоритмами и структурами данных, без привязки к конкретному языку программирования и/или программному продукту.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, maxim1000.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Алгоритмы | Следующая тема »


 




[ Время генерации скрипта: 0.0562 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.