Текст подпрограммы и версий
amy5r_p.zip , amy5e_p.zip , amy5c_p.zip 		Тексты тестовых примеров
tamy5r_p.zip , tamy5e_p.zip , tamy5c_p.zip

Функция:  AMY5R (модуль AMY5R_p)

Назначение

Вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме.

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

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

function AMY5R(var A :Array of Real; N :Integer; I :Integer): Real; 

   Параметры
A - вещественный вектор длины N на (N + 1)/2, в котором задается симметричная матрица в компактной форме;
N - порядок матрицы (тип: целый);
I - номер строки (или столбца) (тип: целый). 
   Версии
AMY5E - вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме с расширенной (Extended) точностью.
AMY5C - вычисление суммы абсолютных значений элементов строки (или столбца) эрмитовой матрицы, заданной в компактной форме. 
   Вызываемые подпрограммы:  нет. 
   Замечания по использованию
 

В функции АМY5E вектор  А должен иметь тип Extended.

В функции АМY5С вектор  А должен иметь тип Complex.

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

Unit tamy5r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, AMY5R_p;

function tamy5r: String; 

implementation

function tamy5r: String;
var
N,I :Integer;
Y :Real;
const
A :Array [0..9] of Real = ( 1.1,2.1,2.2,3.1,3.2,3.3,4.1,4.2,4.3,4.4 );
begin
Result := '';
N := 4;
I := 3;
Y := AMY5R(A,N,I);
Result := Result + Format('%20.16f ',[Y]) + #$0D#$0A;
UtRes('tamy5r',Result);  { вывод результатов в файл tamy5r.res }
exit;
end;

end.


Результат:    Y = 13.9