Текст подпрограммы и версий
av04r_p.zip  av04e_p.zip  av04c_p.zip  		Тексты тестовых примеров
tav04r_p.zip  tav04e_p.zip  tav04c_p.zip 

Функция:  AV04R (модуль AV04R_p)

Назначение

Вычисление скалярного произведения векторов.

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

Для заданных векторов U и V длины N вычисляется скалярное произведение 

     (U,V) = U1*V1 + U2*V2 + ... + UN*VN.

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

function AV04R(var U :Array of Real; var V :Array of Real;
                N :Integer): Real;

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

В функции АV04E параметры U и V имеют тип Extended.

  2. 

В функции АV04С параметры U и V имеют тип Complex.

  3. 

В функции АV04С скалярное произведение вычисляется по формуле

(U,V) = U1*V*1 + U2*V*2 +... + UN*V*N
где " * " - знак комплексного сопряжения.

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

Unit tAv04r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, AV04R_p;

function tAv04r: String;

implementation

function tAv04r: String;
var
N :Integer;
S :Real;
const
U1 :Array [0..3] of Real = ( 3.0,2.0,1.0,1.0 );
U2 :Array [0..3] of Real = ( 1.0,2.0,0.0,1.0 );
begin
ReSULt := '';
N := 4;
S := AV04R(U1,U2,N);
Result := Result + Format(' %20.16f',[S]);
UtRes('tAv04r',Result);  { вывод результатов в файл tAv04r.res }
exit;
end;

end.

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