Напишите программу для нахождения корней системы нелинейных уравнений с точностью 1.0e-5 и 1.0e-6, используя программу NEQNF и NEQNJ из библиотеки IMSL. Напечатайте точность, значение корней, невязки и количество итераций, выполненных программой, количество вычислений функций и матрицы Якоби.
Указание. Если прогамма не выдаёт количество количество вычислений функций и матрицы Якоби, то организуйте подсчёт «вручную». Для этого создайте модуль
Module counter
Integer count_fun, count_jac
End module counter
в головной программе добавьте оператор
use counter
и задайте начальные значения count_fun и count_jac
count_fun=0
count_jac=0
В подпрогаммах вычисления функций и матрицы Якоби вcтавьте в соответствующие места операторы
use counter
и
count_fun= count_fun+1
count_jac= count_jac +1
Таблица 3. Вид нелинейных систем уравнений.
N | Система уравнений | N | Система уравнений |
|
|