Текст подпрограммы и версий
av05c_p.zip 
Тексты тестовых примеров
tav05c_p.zip 

Функция:  AV05C (модуль AV05C_p)

Назначение

Вычисление суммы покомпонентных произведений двух комплексных векторов.

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

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

                N
       S  =  ∑  UK*VK  .
              K=1 

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

function AV05C(var U :Array of Complex; var V :Array of Complex;
                N :Integer): Complex;

Параметры

U, V - одномерные массивы длины N, в которых задаются исходные векторы (тип: комплексный);
N - размерность векторов U и V (тип: целый).

Версии: нет

Вызываемые подпрограммы: нет

Замечания по использованию: нет

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

Unit TAV05C_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, AV05C_p;

function TAV05C: String;

implementation

function TAV05C: String;
var
N :Integer;
S :Complex;
const
U1 :Array [0..3] of Complex = ( ( re:1.0; im:0.0 ),( re:2.0; im:0.0 ),( re:3.0; 
im:0.0 ),( re:4.0; im: 1.0 ) );
U2 :Аrray [0..3] of Complex = ( ( re:1.0; im:0.0 ),( re:1.0; im:0.0 ),( re:1.0; 
im:0.0 ),( re:1.0; im: 1.0 ) );
begin
Result := '';  { результат функции }
N := 4;
S := AV05C(U1,U2,N);
Result := Result + Format(' %20.16f %20.16f ',[S.re,S.im]) + #$0D#$0A;
UtRes('TAV05C',Result);  { вывод результатов в файл TAV05C.res }
exit;
end;

end.

Результат:    S = (9., 5.)