Вычислительная математика: Методические указания к практическим и лабораторным работам, страница 14

          KM – количество итераций за которое определены оценки корней системы уравнений для заданного EPS.

          В подпрограмме N1YNTM производится обращение к подпрограммам N1YVUR, N1YPR1 и N1YGAS.

          В подпрограмме

SUBROUTINE N1YVUR (NV, N, X, F)

вычисляются значения нелинейных функций системы уравнений для требуемых значений аргумента по вариантам.

          Входные параметры подпрограммы:

          NV – номер варианта;

          N – порядок системы уравнений;

          X(N) – N–мерный вещественный массив оценок корней системы уравнений на k–той итерации;

          Выходные параметры подпрограммы:

          F(N) – N–мерный вещественный массив значений нелинейных функций системы уравнений на k–той итерации.

          Подпрограмма

SUBROUTINE N1YPR1 (NV, NN, N, X, DF)

реализует вычисление частных производных функций нелинейной системы уравнений для требуемых значений аргумента по вариантам.

          Входные параметры подпрограммы:

          NV – номер варианта;

          NN – параметр, определяющий количество частных производных нелинейных функций системы уравнений;

          N – порядок системы уравнений;

          X(N) – N–мерный вещественный массив оценок корней системы уравнений на k–той итерации;

          Выходные параметры подпрограммы:

          DF(NN)– NN–мерный вещественный массив значений частных производных нелинейных функций системы уравнений на k–той итерации.

          Подпрограмма

SUBROUTINE N1YGAS (NN, A, N, B, X)

реализует метод Гаусса решения системы линейных алгебраических уравнений.

          Входные параметры подпрограммы:

          NN – параметр, определяющий количество элементов в матрице линейной системы уравнений;

          A(NN) – NN–мерный вещественный массив элементов матрицы линейной системы уравнений;

          N – порядок линейной системы уравнений;

          B(N) – N–мерный вещественный массив элементов правой части линейной системы уравнений.

          Выходные параметры подпрограммы:

          X(N) – N–мерный вещественный массив корней линейной системы уравнений.

          Подпрограмма

SUBROUTINE N1YNSM (NV, N, X, EPS, DF, KM)

реализует метод  наискорейшего спуска решения нелинейной системы алгебраических уравнений.

          Входные параметры подпрограммы:

          NV – номер варианта;

          N – порядок системы уравнений;

          X(N) – N–мерный вещественный массив начальных значений корней системы уравнений;

          EPS – параметр останова.

          Промежуточные параметры:

          DF(N) – N–мерный вещественный массив значений частных производных функционала;

          Выходные параметры подпрограммы:

          X(N) – N–мерный вещественный массив найденных оценок корней системы уравнений;

          KM – количество итераций за которое определены оценки корней системы уравнений для заданного EPS.

          В подпрограмме N1YNSM производится обращение к подпрограммам N1YFNC, N1YPRF.

          Подпрограмма

SUBROUTINE N1YFNC (NV, N, X, F)

реализует алгоритм вычисления значения функционала.

          Входные параметры подпрограммы:

          NV – номер варианта;

          N – порядок системы уравнений;

          X(N) – N–мерный вещественный массив оценок корней системы уравнений на k–той итерации.

          Выходные параметры подпрограммы:

          F – значение функционала на k–той итерации.

          Подпрограмма

SUBROUTINE N1YPRF (NV, N, X, DF)

реализует вычисление частных производных функционала.

          Входные параметры подпрограммы:

          NV – номер варианта;

          N – порядок системы уравнений;

          X(N) – N–мерный вещественный массив оценок корней системы уравнений на k–той итерации.

          Выходные параметры подпрограммы:

          DF(N) – N–мерный вещественный массив частных производных функционала на k–той итерации.

          В подпрограмме

SUBROUTINE N1YPGR (N, XI, X, EM, EMO, ESO)