|
Текст подпрограммы и версий ( Фортран ) aig5r.zip aig5d.zip |
Тексты тестовых примеров ( Фортран ) taig5r.zip taig5d.zip |
|
Текст подпрограммы и версий ( Си ) aig5r_c.zip aig5d_c.zip |
Тексты тестовых примеров ( Си ) taig5r_c.zip taig5d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) aig5r_p.zip aig5e_p.zip |
Тексты тестовых примеров ( Паскаль ) taig5r_p.zip taig5e_p.zip |
Модификация обратной матрицы после изменения одного элемента исходной матрицы.
Пусть известна обратная матрица AI = A - 1, где A - вещественная квадратная матрица порядка N. Пусть матрица AM получена из матрицы A увеличением элемента ai j на величину D. Подпрограмма AIG5R выполняет такую модификацию матрицы AI, что в результате формируется матрица AIM = AM - 1 без непосредственного обращения матрицы AM.
SUBROUTINE AIG5R (AI, N, I, J, D, AIM)
Параметры
| AI - | вещественный двумерный массив размеров N на N, в котором задается известная матрица, обратная к исходной матрице A; |
| N - | порядок матрицы AI (тип: целый); |
| I, J - | заданные номера строки и столбца элемента ai j исходной матрицы A, значение которого увеличивается на величину D (тип: целый); |
| D - | заданное значение константы, на которую увеличивается элемент ai j (тип: вещественный); |
| AIM - | вещественный двумерный массив размеров N на N, в котором помещается модифицированная обратная матрица. |
Версии
| AIG5D - | модификация обратной матрицы после изменения одного элемента исходной матрицы в режиме удвоенной точности; при этом параметры AI, D и AIM должны иметь тип DOUBLE PRECISION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION AI(2,2), AIM(2,2)
DATA AI(1,1) /-2.0/, AI(1,2) /1.0/, AI(2,1) /1.5/, AI(2,2) /-0.5/
N = 2
I = 1
J = 2
D = 3.0
CALL AIG5R (AI, N, I, J, D, AIM)
Результаты:
| -0.363636 0.454545 |
AIM = |
| 0.272727 -0.0909091 |