|
Текст подпрограммы и версий ( Фортран ) av01r.zip av01d.zip av01c.zip |
Тексты тестовых примеров ( Фортран ) tav01r.zip tav01d.zip tav01c.zip |
|
Текст подпрограммы и версий ( Си ) av01r_c.zip av01d_c.zip av01c_c.zip |
Тексты тестовых примеров ( Си ) tav01r_c.zip tav01d_c.zip tav01c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) av01r_p.zip av01e_p.zip av01c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav01r_p.zip tav01e_p.zip tav01c_p.zip |
Вычисление бесконечной нормы вектора.
Вычисляется бесконечная норма вектора А длины N, определяемая формулой
|| A ||Ґ = maxK = 1,2,...,N | aK | .
REAL FUNCTION AV01R (A, N)
Параметры
| A - | одномерный массив длины N, в котором задается исходный вектор (тип: вещественный); |
| N - | длина вектора А (тип: целый). |
Версии
| AV01D - | вычисление бесконечной нормы вектора с повышенной точностью; |
| AV01C - | вычисление бесконечной нормы комплексного вектора. |
Вызываемые подпрограммы: нет
Замечания по использованию
| 1. |
В функции АV01D параметр А имеет тип DОUВLЕ РRЕСISIОN. | |
| 2. | В функции АV01С параметр А имеет тип СОМРLЕХ. |
DIMENSION A(4)
DATA A /1., 3., 8., 6./
N = 4
Z = AV01R (A, N)
Результат: Z = 8.