Текст подпрограммы и версий ( Фортран )
av16r.zip  av16d.zip  av16c.zip  		Тексты тестовых примеров ( Фортран )
tav16r.zip  tav16d.zip  tav16c.zip 
Текст подпрограммы и версий ( Си )
av16r_c.zip  av16d_c.zip  av16c_c.zip  		Тексты тестовых примеров ( Си )
tav16r_c.zip  tav16d_c.zip  tav16c_c.zip 
Текст подпрограммы и версий ( Паскаль )
av16r_p.zip  av16e_p.zip  av16c_p.zip  		Тексты тестовых примеров ( Паскаль )
tav16r_p.zip  tav16e_p.zip  tav16c_p.zip 

Функция:  AV16R

Назначение

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

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

Функция АV16R вычисляет сумму модулей компонент   n - мерного вектора  x = ( x1, x2, ..., xn ) по формуле: 

                          N 
               S   =   ∑   | x i |
                         i =1

Вектор  x  не обязательно должен занимать последовательные слова памяти машины и может располагаться в памяти с некоторыми постоянными интервалами между компонентами, которые называются параметром приращения. Этот параметр может быть меньше нуля, если обработка компонент вектора должна проводиться в обратном порядке.

В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 6.

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

    FUNCTION  AV16R (N, SX, INCX, IERR) 
   Параметры
N - размерность вектора (тип: целый);
SX - вещественный одномерный массив длины  N, содержащий заданный вектор;
INCX - параметр приращения, задающий расположение вектора в массиве SХ (тип: целый);
IERR - целая переменная, указывающая характер ошибки; при этом:
IЕRR=65 - когда N ≤ 0 . 
   Версии
AV16D - вычисление суммы модулей компонент вектора, заданного с удвоенной точностью.
AV16C - вычисление суммы модулей компонент комплексного вектора. 
   Вызываемые подпрограммы
UTAV10 - подпрограмма выдачи диагностических сообщений при работе подпрограмм АV16R и АV16С.
UTAV11 - подпрограмма выдачи диагностических сообщений при работе подпрограммы АV16D. 
   Замечания по использованию
 

В функции АV16D одномерный массив, содержащий вектор, обозначен DХ и имеет тип DОUВLЕ РRЕСISIОN.

В функции АV16С одномерный массив, содержащий вектор, обозначен СХ и имеет тип СОМРLЕХ.

В функции АV16С сумма модулей компонент вычисляется по формуле: 

                       N 
          W   =   ∑   [ | Re ( x i ) |  +  | Im ( x i ) | ]
                     i =1

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

       DIMENSION  SX(11)
       DATA  SX /2., 0., 2., 0., 2., 0., 2., 0., 2., 0., 2./
       N = 6
       INCX = - 2
       IERR = 0
       SW = AV16R (N, SX, INCX, IERR)

Результаты:     SW  =  12.  ,   IERR  =  0