|
Текст подпрограммы и версий ( Фортран ) amy1r.zip , amy1d.zip , amy1c.zip |
Тексты тестовых примеров ( Фортран ) tamy1r.zip , tamy1d.zip , tamy1c.zip |
|
Текст подпрограммы и версий ( Си ) amy1r_c.zip , amy1d_c.zip , amy1c_c.zip |
Тексты тестовых примеров ( Си ) tamy1r_c.zip , tamy1d_c.zip , tamy1c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amy1r_p.zip , amy1e_p.zip , amy1c_p.zip |
Тексты тестовых примеров ( Паскаль ) tamy1r_p.zip , tamy1e_p.zip , tamy1c_p.zip |
Вычисление ∞ - нормы матрицы.
АМY1R вычисляет ∞ - норму матрицы А порядка N:
N
max ∑ | a i j | , i = 1, 2, ..., N .
i j =1
REAL FUNCTION AMY1R (A, N)
Параметры
| A - | вещественный двумерный массив размера N на N, в котором задается исходная матрица; |
| N - | порядок матрицы (тип: целый). |
Версии
| AMY1D - | вычисление ∞ - нормы матрицы, заданной с удвоенной точностью. |
| AMY1C - | вычисление ∞ - нормы комплексной матрицы. |
Вызываемые подпрограммы
|
AVZ1R - AVZ1D AVZ1C | вычисление суммы абсолютных значений компонент вектора или заданного подмножества компонент этого вектора для случаев, когда вектор задан с обычной или удвоенной точностью и комплексного вектора соответственно. Используются в АМY1R, АМY1D и АМY1С соответственно. |
Замечания по использованию
|
В функции АМY1D массив А должен иметь тип DОUВLЕ РRЕСISIОN. В функции АМY1С массив А должен иметь тип СОМРLЕХ. |
DIMENSION A(4, 4)
DATA A /1., 2., 3., 5., 2., 3., 4., 1., 3., 4., 1., 2., 4., 1., 2., 3./
N = 4
Y = AMY1R (A, N)
Результат: Y = 11.