графа методом поиска
графа методом поиска в ширину.
procedure Tree_Width(v:integer);
{A, Tree, yk - глобальные структуры данных}
var Nnew:array[1..N] of boolean;
Turn:array[1..N] of integer;yr,yw,i:integer;
begin
FillChar(Nnew,SizeOf(Nnew),true);
FillChar(Turn,SizeOf(Turn),0);yr:=0;yw:=0;
Inc(yw); Turn[yw]:=v;Nnew[v]:=false;
while yw<>yr do begin
Inc(yr);v:=Turn[yr];
for i:=1 to N do if (A[v,i]<>0) and Nnew[i] then begin
Inc(yw);Turn[yw]:=i;Nnew[i]:=false;
Inc(yk);Tree[1,yk]:=v;Tree[2,yk]:=i;
end;
end;
end;
Пример. Граф и его каркасы, построенные методами поиска в глубину и в ширину. В круглых скобках указана очередность просмотра вершин графа при соответствующем поиске.
3.3.2. Порождение всех каркасов графа
Дано. Связный неориентированный граф G=<V,E>. Найти. Все каркасы графа.
Каркасы не запоминаются. Их необходимо перечислить. Для порождения очередного каркаса ранее построенные не привлекаются, используется только последний. Множество
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
