данные - матрица
данные - матрица смежности A, глобальная переменная}
var S,T:set of 1..N;i,j,l:integer;
begin
FillChar(R,SizeOf(R),0);
for i:=1 to N do begin {достижимость из вершины с номером i}
T:=[i];
repeat
S:=T;
for l:=1 to N do if l in S then{по строкам матрицы A, принадлежащим множеству S}
for j:=1 to N do if A[l,j]=1 then T:=T+[j];
until S=T;{если T не изменилось, то найдены все вершины графа, достижимые из вершины с номером i}
for j:=1 to N do if j in T then R[i,j]:=1;
end;
end;
Матрицу контрдостижимостей Q определим следующим образом:
Q[v,u]=
Множеством Q(v) графа G является множество таких вершин, что из любой его вершины можно достигнуть вершину v. Из определения следует, что столбец v матрицы Q совпадает со строкой v матрицы R, то есть Q=Rt, где Rt - матрица, транспонированная к матрице достижимостей R.
Для примера на рисунке матрицы A, R и Q имеют вид:
0 1 0 0 1 0 0 1 1 0 1 1 1 1 1 1 1 0 1 0 0
1 0 0 0 0 0
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
