|
Текст подпрограммы и версий ( Фортран ) av02r.zip av02d.zip av02c.zip |
Тексты тестовых примеров ( Фортран ) tav02r.zip tav02d.zip tav02c.zip |
|
Текст подпрограммы и версий ( Си ) av02r_c.zip av02d_c.zip av02c_c.zip |
Тексты тестовых примеров ( Си ) tav02r_c.zip tav02d_c.zip tav02c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) av02r_p.zip av02e_p.zip av02c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav02r_p.zip tav02e_p.zip tav02c_p.zip |
Вычисление евклидовой нормы вектора.
Для заданного вектора А длины N вычисляется евклидова норма
|| A ||E = ( | a1 |2 + | a2 |2 + ... + | aN |2 )1/2
REAL FUNCTION AV02R (A, N)
Параметры
| A - | одномерный массив длины N, в котором задается исходный вектор (тип: вещественный); |
| N - | размерность вектора А (тип: целый). |
Версии
| AV02D - | вычисление евклидовой нормы вектора с повышенной точностью; |
| AV02C - | вычисление евклидовой нормы комплексного вектора; |
Вызываемые подпрограммы: нет
Замечания по использованию
| 1. |
В функции АV02D параметр А имеет тип DОUВLЕ РRЕСISIОN. | |
| 2. |
В функции АV02С параметр А имеет тип СОМРLЕХ. | |
| 3. | Функция АV02R и ее версии могут быть использованы для вычисления евклидовой нормы матрицы (см. пример 2). |
1. DIMENSION A(5)
DATA A /1., 1., 2., 3., 1./
N = 5
Z = AV02R (A, N)
Результат: Z = 4.
2. DIMENSION A(3, 3)
DATA A /1., 1., 1., 2., 2., 2., 3., 3., 3./
N = 3
N1 = N*N
Z = AV02R (A, N1)
Результат: Z = 6.48