Текст подпрограммы и версий
av01r_p.zip  av01e_p.zip  av01c_p.zip  		Тексты тестовых примеров
tav01r_p.zip  tav01e_p.zip  tav01c_p.zip 

Функция:  AV01R (модуль AV01R_p)

Назначение

Вычисление бесконечной нормы вектора.

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

Вычисляется бесконечная норма вектора А длины N, определяемая формулой 

     || A ||∞ = maxK = 1,2,...,N | aK |  .

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

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

   Параметры
A - одномерный массив длины N, в котором задается исходный вектор (тип: вещественный);
N - длина вектора А (тип: целый). 
   Версии
AV01E - вычисление бесконечной нормы вектора с расширенной (Extended) точностью.
AV01C - вычисление бесконечной нормы комплексного вектора. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  1. 

В функции АV01E параметр А имеет тип Extended.

  2.  В функции АV01С параметр А имеет тип Complex.

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

Unit Tav01r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, Av01r_p;

function Tav01r: String;

implementation

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

end.

Результат:    Z = 8.