44
Подпрограмма определения простого алгебраического
дополнения
ab
матрицы М
Cofactor M a, b,( ) A Minor M a
b
()
1−()
ab+
A⋅
:=
Подпрограмма удаления из матрицы М a-ой и c-ой строк,
b-го и d-го столбцов
MinorDouble M a, b, c, d
( ) A Minor M a
b
()
pc1− ac<if
cotherwise
←
qd1− bd<if
dotherwise
←
Minor A p, q,()
:=
Подпрограмма определения двухкратного алгебраического
дополнения
cdab,
матрицы М
CofactorDouble M a
b
c, d,( ) A MinorDouble M a
b
c
d
()
ε 0ac<()bd<()∧ ac>()bd>()∧∨if
1otherwise
←
1−()
ab+ c+ d+ε+
A⋅
:=
Подпрограмма преобразования матрицы W в соответствии с
преобразующими векторами
и
SumMinor W th, lam,()WrW
T
←
Wr
th
i
1−
()
〈〉
Wr
th
i
1−
()
〈〉
Wr
th
1
1−
()
〈〉
+← ith
0
>if
Wr
th
i
1−
()
〈〉
Wr
th
i
1−
()
〈〉
Wr
th
1
1−
()
〈〉
−← otherwise
i 2 length th() 1−..∈for length th() 2>if
Wr Wr
T
←
Wr
lam
i
1−
()
〈〉
Wr
lam
i
1−
()
〈〉
Wr
lam
1
1−
()
〈〉
+← ilam
0
>if
Wr
lam
i
1−
()
〈〉
Wr
lam
i
1−
()
〈〉
Wr
lam
1
1−
()
〈〉
−← otherwise
i 2 length lam()1−..∈for length lam()2>if
Wr
:=