# Вторая пачка часть 47

Результат корректировки с точностью до ошибок округления совпал с точ-ным решением . Замечание. Интересно, что исходной ал-го¬ритм [Hern¬don, 1961] проверялся дополнительно Р. Георгом (1962) для мат¬риц порядка n = 2, 3, ..., 10 при про¬из¬воль¬¬¬ных зна-че¬ни¬ях i, j и случайных при¬¬ращениях эле¬мен¬¬¬та m[i, j] прямой мат¬рицы M: -1.0 < d << 1.0. По ре-зультатам корректировки рас¬счи¬ты¬ва¬лось про¬из-ве¬де¬ние C = B*M ' и вы¬чис¬ля¬лась по¬греш¬¬ность каждого опы¬¬та по фор¬му¬ле , при этом во всех произведенных опытах зна¬че-ние ? не превышало 2e-8. 4.9. МАТРИЦА ПРИЧИННО-СЛЕДСТВЕННЫХ ОТНОШЕНИЙ Задача построения матрицы причинно-след¬ст¬вен¬¬ных связей возникает при исследовании се¬те¬вых диаграмм и в этом смысле стоит несколько осо¬б¬няком в ряду рас-смат¬ри¬ва¬емого в настоящем параграфе алгебры матриц. Тем не менее всле¬д¬¬с¬т¬вие того, что данный логический ал¬го¬ритм, суть которого описана в этом пункте, оперирует с мат¬рич¬ны¬ми объектами, мы посчитали це¬ле¬со¬об¬раз¬ным рас-смот¬реть его именно здесь. Пусть задана матрица M размером n?n, в ко¬¬торой каж¬дый элемент mij = true, если ин¬ди-ви¬ду¬ум i является не¬по¬сред¬ственной причиной ("ро¬ди¬те¬¬лем") индивидуума j, в про¬¬ти¬в¬ном слу-чае mij = false. Тогда, если существует по¬сле¬до-ва¬тель¬ность чисел k, l, ..., p такая, что в матрице M все mik, mkl, ..., mpj эквивалентны true, т.е. если ин¬ди¬ви¬ду¬ум i яв¬¬ляется косвенной причиной ("пра¬ро¬ди¬те¬лем") ин¬ди¬ви¬ду¬у¬ма j, то элементы пре¬об¬ра¬зо¬ван¬ной мат¬ри¬цы M - mij = true. Данный алгоритм реализован в процедуре ANCES. Формальные параметры про¬цедуры. Входные: m[1:n, 1:n] (тип boolean) - исходная мат¬рица M; n (тип in¬te¬¬ger) - порядок матрицы M. Вы¬ходные: m [1:n, 1:n] (тип bo¬o¬¬lean) - пре-образованная матрица M. PROCEDURE ANCES (N:INTEGER; VAR M : ARRAY [1..N,1..N] OF BOOLEAN); VAR I, J, K : INTEGER; BEGIN FOR I:=1 TO N DO FOR J:=1 TO N DO IF M[J,I] THEN FOR K:=1 TO N DO IF M[I,K] THEN M[J,K]:=TRUE END {ANCES}; Процедура ANCES является переводом с языка ALGOL на язык PASCAL стереотипного пе¬ре¬из¬да¬ния [Аге¬ев и др

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