Текст подпрограммы и версий
av01r_c.zip  av01d_c.zip  av01c_c.zip  		Тексты тестовых примеров
tav01r_c.zip  tav01d_c.zip  tav01c_c.zip 

Функция:  av01r_c

Назначение

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

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

Вычисляется бесконечнaя нopма вектора А длины N, определяемая формулой 

     || A ||∞ = maxK = 1,2,...,N | aK |  .

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

    real av01r_c (real *a, integer *n)

   Параметры
a - одномерный массив длины n, в котором задается исходный вектор (тип: вещественный);
n - длина вектора a (тип: целый). 
   Версии
av01d_c - вычисление бесконечной нормы вектора с повышенной точностью;
av01c_c - вычисление бесконечной нормы комплексного вектора. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  1. 

В функции av01d_c параметр a имеет тип double.

  2.  В функции av01c_c параметр a имеет тип complex.

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

int main(void)
{
    /* Initialized data */
    static float b[4] = { 1.f,3.f,8.f,6.f };

    /* Local variables */
    extern float av01r_c(float *, int *);
    static int n;
    static float z__;

    n = 4;
    z__ = (float)av01r_c(b, &n);

    printf("\n  %12.4e \n", z__);
    printf("\n  %12.4e %12.4e %12.4e %12.4e \n",
           b[0], b[1], b[2], b[3]);
    return 0;
} /* main */


Результат:    z__ = 8.