Матрични процедури за умножение, транспониране и инверсия

Когато работите с матрици, често се нуждаете от "под ръка" рутини за умножение, транспониране и инверсия на матрица. Искам да ги поставя, въпреки че ако е необходимо, те могат да бъдат намерени в стандартните математически библиотеки на подпрограми и това отнема време.

Подпрограмите се предоставят на два езика: Fortran и Delphi.

един. Фортран

B (N, M) - 2-ра матрица, измерение (N, M)

С (K, K) - Матрица - резултат от умножение, измерение (K, K)

X (N, K) - 1-ва матрица, измерение (N, K)

XTR (K, N) - Транспониране на матрица, размер (K, N)

A (N, N) - Входна матрица, размер (N, N)

E (N, N) - обърната матрица, размер (N, N)

2. Делфи

A (M10, N10) - 1-ва матрица, размер (M10, N10)

B (N10, M10) - 2-ра матрица, размер (N10, M10)

С (K10, K10) - Матрица - резултат от умножение, размерност (K10, K10)

---