Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Программа, вычисляющая обратную матрицу

Автор: Des666 7.1.2007, 19:01

к матрице nxn где n - задается отдельно (3<n<21) написать программу, вычисляющую обратную матрицу. Все.
Могу добавить тем, кто забыл как вычисляется обратная матрица:
для начала создается союзная матрица. Затем каждый элемент союзной матрицы умножается на 1/определитель (детерминант) (в примере детерминант = 10 т.е. на 1/10)
Союзная матрица вычисляется так:
каждй элемент - определитель от минора этой же матрицы.
Процедура нахождения определителя(детерминант) написана

Код


function Minor(x,y:integer):mat;
var a : mat; n,i,j:integer;
begin
for i:=x to n do
for j:=1 to n do 
a[i,j]:=a[i+1,j];
 
for j:=y to n do
for i:=1 to N do
a[i,j]:=a[i,j+1];
dec(n)
end;

Автор: Sunvas 7.1.2007, 20:13

Des666, если бы это была матрица 3x3, я бы еще взялся. А так это куча работы. Поищи в нете я уверен на 100 % что есть модули по работе с матрицами

Добавлено @ 20:18
http://www.megalib.com/books/478/1584.htm

Автор: Rodman 7.1.2007, 21:17

Des666, изучи http://www.delphisources.ru/files/sources/raznoe/2006_year/tmatrix.zip... и поиском работай чаще

Автор: VICTAR 8.1.2007, 03:11

http://forum.vingrad.ru/topic-130661.html