|
Текст подпрограммы и версий ( Фортран ) avz1r.zip avz1d.zip avz1c.zip |
Тексты тестовых примеров ( Фортран ) tavz1r.zip tavz1d.zip tavz1c.zip |
|
Текст подпрограммы и версий ( Си ) avz1r_c.zip avz1d_c.zip avz1c_c.zip |
Тексты тестовых примеров ( Си ) tavz1r_c.zip tavz1d_c.zip tavz1c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) avz1r_p.zip avz1e_p.zip avz1c_p.zip |
Тексты тестовых примеров ( Паскаль ) tavz1r_p.zip tavz1e_p.zip tavz1c_p.zip |
Вычисление суммы абсолютных значений компонент вектора или заданного подмножества компонент этого вектора.
Для заданного вектора V длины N вычисляется сумма абсолютных значений всех его компонент. Кроме того, может быть вычислена сумма абсолютных значений тех его компонент, индексы которых последовательно отстают друг от друга на величину ISТЕР.
REAL FUNCTION AVZ1R (V, N, ISTEP)
Параметры
| V - | вещественный одномерный массив длины N, в котором задаются компоненты вектора; |
| N - | число компонент вектора (тип: целый); |
| ISTEP - | заданный шаг изменения индексов тех компонент, сумма абсолютных значений которых вычисляется (тип: целый). |
Версии
| AVZ1D - | вычисление суммы абсолютных значений компонент вектора, заданного с удвоенной точностью, или заданного подмножества компонент этого вектора. |
| AVZ1C - | вычисление суммы абсолютных значений компонент комплексного вектора или заданного подмножества компонент этого вектора. |
Вызываемые подпрограммы: нет
Замечания по использованию
|
В функции АVZ1D вектор V должен иметь тип DОUВLЕ РRЕСISIОN. В функции АVZ1С вектор V должен иметь тип СОМРLЕХ. |
DIMENSION V(10)
DATA V /1., 2., 3., 4., 5., 6., 7., 8., 9., 10./
N = 10
ISTER = 1
Y = AVZ1R (V, N, ISTEP)
Результат: Y = 55.