Текст подпрограммы и версий av05c_p.zip |
Тексты тестовых примеров tav05c_p.zip |
Вычисление суммы покомпонентных произведений двух комплексных векторов.
Для заданных комплексных векторов 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.)