|
Текст подпрограммы и версий ( Фортран ) amy3r.zip , amy3d.zip , amy3c.zip |
Тексты тестовых примеров ( Фортран ) tamy3r.zip , tamy3d.zip , tamy3c.zip |
|
Текст подпрограммы и версий ( Си ) amy3r_c.zip , amy3d_c.zip , amy3c_c.zip |
Тексты тестовых примеров ( Си ) tamy3r_c.zip , tamy3d_c.zip , tamy3c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) amy3r_p.zip , amy3e_p.zip , amy3c_p.zip |
Тексты тестовых примеров ( Паскаль ) tamy3r_p.zip , tamy3e_p.zip , tamy3c_p.zip |
Вычисление первой нормы симметричной матрицы, заданной в компактной форме.
АМY3R вычисляет первую норму симметричной матрицы А порядка N, заданной в компактной форме
N
max ∑ | a i j | , j = 1, 2, ..., N .
j i =1
REAL FUNCTION AMY3R (A, N)
Параметры
| A - | вещественный вектор длины N на (N + 1)/2, в котором задается исходная симметричная матрица в компактной форме; |
| N - | заданный порядок матрицы (тип: целый). |
Версии
| AMY3D - | вычисление первой нормы симметричной матрицы, заданной в компактной форме с удвоенной точностью. |
| AMY3C - | вычисление первой нормы эрмитовой матрицы, заданной в компактной форме. |
Вызываемые подпрограммы
|
AMY5R - AMY5D AMY5C | вычисление суммы абсолютных значений элементов строки (или столбца) симметричной матрицы, заданной в компактной форме с обычной и удвоенной точностью, и эрмитовой матрицы, заданной в компактной форме, соответственно. Используются в АМY3R, АМY3D и АМY3С соответственно. |
Замечания по использованию
|
В функции АМY3D вектор А должен иметь тип DОUВLЕ РRЕСISIОN. В функции АМY3С вектор А должен иметь тип СОМРLЕХ. |
DIMENSION A(10)
DATA A /1.1, 2.1, 2.2, 3.1, 3.2, 3.3, 4.1, 4.2, 4.3, 4.4/
N = 4
Y = AMY3R (A, N)
Результат: Y = 17.