|
Текст подпрограммы и версий ( Фортран ) amy2r.zip , amy2d.zip , amy2c.zip |
Тексты тестовых примеров ( Фортран ) tamy2r.zip , tamy2d.zip , tamy2c.zip |
|
Текст подпрограммы и версий ( Си ) amy2r_c.zip , amy2d_c.zip , amy2c_c.zip |
Тексты тестовых примеров ( Си ) tamy2r_c.zip , tamy2d_c.zip , tamy2c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amy2r_p.zip , amy2e_p.zip , amy2c_p.zip |
Тексты тестовых примеров ( Паскаль ) tamy2r_p.zip , tamy2e_p.zip , tamy2c_p.zip |
Вычисление первой нормы матрицы.
АМY2R вычисляет первую норму матрицы А порядка N:
N
max ∑ | a i j | , j = 1, 2, ..., N .
j i =1
REAL FUNCTION AMY2R (A, N)
Параметры
| A - | вещественный двумерный массив размера N на N, в котором задается исходная матрица; |
| N - | заданный порядок матрицы (тип: целый). |
Версии
| AMY2D - | вычисление первой нормы матрицы, заданной с удвоенной точностью. |
| AMY2C - | вычисление первой нормы комплексной матрицы. |
Вызываемые подпрограммы
|
AVZ1R - AVZ1D AVZ1C | вычисление суммы абсолютных значений компонент вектора или заданного подмножества компонент этого вектора для случаев, когда вектор задан с обычной или удвоенной точностью и комплексного вектора соответственно. Используются в АМY2R, АМY2D и АМY2С соответственно. |
Замечания по использованию
|
В функции АМY2D массив А должен иметь тип DОUВLЕ РRЕСISIОN. В функции АМY2С массив А должен иметь тип СОМР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 = AMY2R (A, N)
Результат: Y = 11.