|
Текст подпрограммы и версий ( Фортран ) am00r.zip , am00d.zip , am00c.zip |
Тексты тестовых примеров ( Фортран ) tam00r.zip , tam00d.zip , tam00c.zip |
|
Текст подпрограммы и версий ( Си ) am00r_c.zip , am00d_c.zip , am00c_c.zip |
Тексты тестовых примеров ( Си ) tam00r_c.zip , tam00d_c.zip , tam00c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) am00r_p.zip , am00e_p.zip , am00c_p.zip |
Тексты тестовых примеров ( Паскаль ) tam00r_p.zip , tam00e_p.zip , tam00c_p.zip |
Вычисление евклидовой нормы квадратной матрицы.
Для заданной квадратной матрицы А порядка N вычисляется евклидова норма
N N
|| A || E = ( ∑ ∑ | a k m | 2 )1/2
k =1 m =1
REAL FUNCTION AM00R (A, N)
Параметры
| A - | двумерный массив размера N на N, в котором задается исходная матрица А (тип: вещественный); |
| N - | порядок матрицы А (тип: целый). |
Версии
| AM00D - | вычисление евклидовой нормы вещественной квадратной матрицы, заданной с удвоенной точностью; |
| AM00C - | вычисление евклидовой нормы комплексной квадратной матрицы; |
Вызываемые подпрограммы: нет.
Замечания по использованию
| 1. |
В функции АМ00D параметр А имеет тип DОUВLЕ РRЕСISIОN. | |
| 2. | В функции AM00C параметр А имеет тип СОМРLЕХ. |
DIMENSION A(4, 4)
DATA A /1., 2., 3., 4., 1., 0., 3*1., 2*0., 1., 2., 3., 4., 0./
N = 4
Z = AM00R (A, N)
Результат: Z = 8.