Текст подпрограммы и версий ( Фортран ) amy6r.zip , amy6d.zip |
Тексты тестовых примеров ( Фортран ) tamy6r.zip , tamy6d.zip |
Текст подпрограммы и версий ( Си ) amy6r_c.zip , amy6d_c.zip |
Тексты тестовых примеров ( Си ) tamy6r_c.zip , tamy6d_c.zip |
Текст подпрограммы и версий ( Паскаль ) amy6r_p.zip , amy6e_p.zip |
Тексты тестовых примеров ( Паскаль ) tamy6r_p.zip , tamy6e_p.zip |
Нахождение максимального по модулю элемента строки (или столбца) симметричной матрицы, заданной в компактной форме.
REAL FUNCTION AMY6R ( A, N, I, J )
Параметры
A - | вещественный вектор длины N на (N + 1)/2, в котором задается симметричная матрица в компактной форме; |
N - | заданный порядок матрицы (тип: целый); |
I - | заданный номер строки (или столбца) (тип: целый); |
J - | целая переменная, содержащая второй (или первый) индекс максимального по модулю элемента исходной матрицы в предположении, что она задана в виде квадратной матрицы, а не в компактной форме. |
Версии
AMY6D - | нахождение максимального по модулю элемента строки (или столбца) симметричной матрицы, заданной в компактной форме с удвоенной точностью. |
Вызываемые подпрограммы: нет.
Замечания по использованию
В функции АМY6D вектор А должен иметь тип DОUВLЕ РRЕСISIОN. |
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 I = 3 Y = AMY6R (A, N, I, J) Результаты: Y = 4.3 , J = 4