Текст подпрограммы и версий
amy1r_p.zip , amy1e_p.zip , amy1c_p.zip 		Тексты тестовых примеров
tamy1r_p.zip , tamy1e_p.zip , tamy1c_p.zip

Функция:  AMY1R (модуль AMY1R_p)

Назначение

Вычисление  ∞ - нормы матрицы.

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

AMY1R вычисляет  ∞ - норму матрицы  А порядка  N: 

                    N
         max    ∑    | a i j |  ,      i = 1, 2, ..., N .
            i      j =1

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

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

   Параметры
A - вещественный двумерный массив размера N на N, в котором задается исходная матрица;
N - порядок матрицы (тип: целый). 
   Версии
AMY1E - вычисление  ∞ - нормы матрицы, заданной с расширенной (Extended) точностью.
AMY1C - вычисление  ∞ - нормы комплексной матрицы. 
   Вызываемые подпрограммы
AVZ1R -
AVZ1E  
AVZ1C   		вычисление суммы абсолютных значений компонент вектора или заданного подмножества компонент этого вектора для случаев, когда вектор задан с обычной или расширенной (Extended) точностью и комплексного вектора соответственно. Используются в АМY1R, АМY1E и АМY1С соответственно. 
   Замечания по использованию
 

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

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

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

Unit tamy1r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, AMY1R_p;

function tamy1r: String; 

implementation

function tamy1r: String;
var
N :Integer;
Y :Real;
const
A :Array [0..15] of Real = ( 1.0,2.0,3.0,5.0,2.0,3.0,4.0,1.0,3.0,4.0,1.0,2.0,
4.0,1.0,2.0,3.0 );
begin
Result := '';
N := 4;
Y := AMY1R(A,N);
Result := Result + Format(' %20.16f ',[Y]) + #$0D#$0A;
UtRes('tamy1r',Result);  { вывод результатов в файл tamy1r.res }
exit;
end;

end.


Результат:    Y = 11.