|
Текст подпрограммы и версий ( Фортран ) am01r.zip , am01d.zip , am01c.zip |
Тексты тестовых примеров ( Фортран ) tam01r.zip , tam01d.zip , tam01c.zip |
|
Текст подпрограммы и версий ( Си ) am01r_c.zip , am01d_c.zip , am01c_c.zip |
Тексты тестовых примеров ( Си ) tam01r_c.zip , tam01d_c.zip , tam01c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) am01r_p.zip , am01e_p.zip , am01c_p.zip |
Тексты тестовых примеров ( Паскаль ) tam01r_p.zip , tam01e_p.zip , tam01c_p.zip |
Вычисление евклидовой нормы симметричной матрицы, заданной в компактной форме.
Для симметричной матрицы А порядка N, заданной в компактной форме, вычисляется евклидова норма
N N
|| A || E = ( ∑ ∑ | a k m | 2 )1/2
k =1 m =1
REAL FUNCTION AM01R (A, N)
Параметры
| A - | вектор длины N * (N + 1)/2, в котором задается симметричная матрица А в компактной форме (тип: вещественный); |
| N - | порядок матрицы А (тип: целый). |
Версии
| AM01D - | вычисление евклидовой нормы вещественной симметричной матрицы, заданной в компактной форме с удвоенной точностью; |
| AM01C - | вычисление евклидовой нормы комплексной симметричной или эрмитовой матрицы, заданной в компактной форме; |
Вызываемые подпрограммы: нет.
Замечания по использованию
| 1. |
В функции АМ01D параметр А имеет тип DОUВLЕ РRЕСISIОN. | |
| 2. | В функции AM01C параметр А имеет тип СОМРLЕХ. |
DIMENSION A(6)
DATA A /0., 2., 3., 1., 1., 2./
N = 3
Z = AM01R (A, N)
Результат: Z = 5.