# данные - матрица

данные - матрица смежности 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

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа