Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Математика    >>    matr_op
   
 
 Matrix Operation Unit   Ilya Pinaeff 17.02.1999

Модуль работы с матрицами. Включает в себя функции:
- Вычисление определителя
- Транспонирование
- Вычисление ранга матрицы
- Нахождение следа матрицы
- Умножение матриц
- Сложение матриц
- Вычитание матриц
- Тензорное произведение
- Умножение матрицы на число
- Объединение двух матриц (справа и снизу)
- Обращение матрицы
- Псевдообращение методом Фадеева
- Псевдообращение методом Гревиля
- Выделение из матрицы столбцов с k0 по k1
- Cравнение матриц
- Превращение матрицы в вектор
- Превращение вектора в матрицу



3k 
 

(******************************************************************** ** Пример работы с матрицами. ** ** (c) S&s aKa Ilya Pinaeff (syn@crhefr.hptula.mednet.com) ** ** DeN Tatyanin (2:5036/10.19@Fidonet aKa 345:8188/3@RANet) ** ********************************************************************) {$N+} uses Matr_op; var A,B:Mp; procedure Read_(A:Mp); var l,j:integer; begin with A^ do for l:=1 to n do for j:=1 to m do read(e(l,j)^); end; begin A:=NIL; B:=NIL; A:=new(Mp,Init(3,3)); Read_(A); writeln('Матpица A:'); Print(A); writeln('Матpица A тpанспониp.:'); Print(A^.T); SetM(B,Grevil(A)); writeln('Матpица A+.:'); Print(B); writeln('Матpица A*A+.:'); Print({MMul(A,}MMul(B,A){)}); end. ------------- Cut here ----------- (******************************************************************** ** Модуль работы с матрицами. ** ** (c) S&s aKa Ilya Pinaeff (syn@crhefr.hptula.mednet.com) ** ** DeN Tatyanin (2:5036/10.19@Fidonet aKa 345:8188/3@RANet) ** ********************************************************************) {$N+} unit Matr_Op; interface type Rl=^extended; TArray=array[0..3000] of extended; Arl=^TArray; Mp=^Matr; Matr=objec