Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://www.srcc.msu.ru/num_anal/lib_na/cat/av/av05c.htm
Дата изменения: Tue Nov 15 11:46:25 2011 Дата индексирования: Mon Feb 4 02:30:05 2013 Кодировка: Windows-1251 |
Текст подпрограммы и версий ( Фортран ) 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.)