|
Текст подпрограммы и версий ( Фортран ) av05c.zip |
Тексты тестовых примеров ( Фортран ) tav05c.zip |
|
Текст подпрограммы и версий ( Си ) av05c_c.zip |
Тексты тестовых примеров ( Си ) tav05c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) av05c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav05c_p.zip |
Вычисление суммы покомпонентных произведений двух комплексных векторов.
Для заданных комплексных векторов U и V длины N вычисляется сумма
N
S = ∑ UK*VK .
K=1
COMPLEX FUNCTION AV05C (U, V, N)
Параметры
| U, V - | одномерные массивы длины N, в которых задаются исходные векторы (тип: комплексный); |
| N - | размерность векторов U и V (тип: целый). |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION U(4), V(4)
COMPLEX U, V, S
DATA U /(1., 0.), (2., 0.), (3., 0.), (4., 1.)/,
* V /(1., 0.), (1., 0.), (1., 0.), (1., 1.)/
N = 4
S = AV05C (U, V, N)
Результат: S = (9., 5.)