Текст подпрограммы и версий
amm6r_p.zip , amm6e_p.zip 		Тексты тестовых примеров
tamm6r_p.zip , tamm6e_p.zip

Подпрограмма:  AMM6R (модуль AMM6R_p)

Назначение

Умножение симметричной матрицы, заданной в компактной форме, на прямоугольную матрицу.

Математическое описание

AMM6R вычисляет произведение симметричной матрицы А порядка N, заданной в компактной форме, на прямоугольную матрицу B размера N на М. Результатом этого произведения является прямоугольная матрица C размера N на М.

Использование 

procedure AMM6R(var A :Array of Real; N :Integer;
                var B :Array of Real; M :Integer;
                var C :Array of Real); 

   Параметры
A - вещественный вектор длины N * (N + 1)/2, в котором задается симметричная матрица А в компактной форме;
N - заданный порядок матрицы А (тип: целый);
B - вещественный двумерный массив размера N*М, в котором задается прямоугольная матрица B;
M - заданное число столбцов матрицы B (тип: целый);
C - вещественный двумерный массив размера N*М, в котором запоминается матрица произведения. 
   Версии
AMM6E - умножение с расширенной (Extended) точностью симметричной матрицы, заданной в компактной форме, на прямоугольную матрицу. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  В подпрограмме АММ6E параметры А, B и С должны иметь тип Extended.

Пример использования 

Unit tamm6r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, AMM6R_p;

function tamm6r: String; 

implementation

function tamm6r: String;
var
N,M,_i :Integer;
C :Array [0..11] of Real;
const
A :Array [0..9] of Real = ( 1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0 );
B :Array [0..11] of Real = ( 1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0 
);
begin
Result := '';
N := 4;
M := 3;
AMM6R(A,N,B,M,C);
Result := Result + #$0D#$0A;
for _i:=0 to 11 do
 begin
  Result := Result + Format('%20.16f ',[C[_i]]);
  if ( ((_i+1) mod 3)=0 )
   then Result := Result + #$0D#$0A;
 end;
Result := Result + #$0D#$0A;
UtRes('tamm6r',Result);  { вывод результатов в файл tamm6r.res }
exit;
end;

end.


Результаты:

                    |  4.   4.   4.  |
         C  =    |  4.   4.   4.  |
                    |  4.   4.   4.  |