марта
31
0

Вычисление обратной матрицы размерности n

Author K_E_V_in    Category UIPI     Tags , , , , , , , , ,

Пусть имеется матрица obr размерности kol. Для нахождения матрицы, обратной obr, требуется выполнить следующий код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var k, i, j: integer;
b: array[0..300, 0..300] of real;
begin
for k:=0 to kol - 1 do
begin
for i:=0 to kol - 1 do
for j:=0 to kol - 1 do
begin
if (i=k) and (j=k) then
b[i,j] := 1/obr[i,j];
if (i=k) and (j<>k) then
b[i,j] := -obr[i,j]/obr[k,k];
if (i<>k) and (j=k) then
b[i,j] := obr[i,k]/obr[k,k];
if (i<>k) and (j<>k) then
b[i,j] := obr[i,j] - obr[k,j] * obr[i,k]/obr[k,k];
end;
for i:= 0 to kol - 1 do
for j:= 0 to kol - 1 do obr[i, j]:= b[i, j];
end;
end;

В результате матрица obr и есть искомая обратная матрица.

  • Ваш неэффективен? комплексная раскрутка сайтов – вот решение этой проблемы!
  • «Курс является программой Константина Каширина, у нас с ним есть договоренность о названии семинаров, – говорит Моисеев Вениамин. – Так как не стоит на месте, необходимо постоянно убирать неактуальную информацию и добавлять новый материал. Я считаю, что это обязательное условие, для того что бы курсы были актуальными и интересными для слушателей. В данной программе курса есть ряд изменений, касающихся поисковых систем».
  • Самые модные стрижки и прически и огромное количество советов по уходу за волосами

Прокомментировать

Рубрики

Облако меток

На волнах твиттера

В прямом эфире