Текст подпрограммы и версий ( Фортран )
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

Функция:  AMY6R

Назначение

Нахождение максимального по модулю элемента строки (или столбца) симметричной матрицы, заданной в компактной форме.

Математическое описание: нет.

Использование

    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