2.2.3. Описание схемы процедуры koren

Схема процедуры KOREN приведена на рис.5.

Вначале определяется, является ли корнем уравнения левая граница интервала поиска l1 (блок 2). Если да, то число корней уравнения Z становится равным 1, а корень Х=l1 (блок 6).

Иначе проверяется, не является ли корнем уравнения правая граница интервала поиска l2 (блок 3). Если да, то, то число корней уравнения Z становится равным 1, а корень Х=l2 (блок 7) .

Иначе проверяется, имеет ли функция на концах интервала [l1,l2] разные знаки. Если нет, то число корней уравнения Z становится равным 0 (блоки 4 и 8).

Иначе начинается поиск корня на интервале [l1,l2] методом дихотомии.

Значение Х определяется как середина интервала [l1,l2] (блок 5), и до тех пор, пока значение кубического трехчлена в точке Х не станет равно 0 с точностью Е, или пока интервал [l1,l2] не сузится до единицы разрядной сетки, выполняется цикл (блоки 10 - 15).В цикле определяется, имеет ли кубический трехчлен разные знаки на концах интервала [l1,Х]. Если да, то дальнейший поиск корня будет осуществляться именно на этом интервале, то есть принимается l2=Х (блок 11). Если же нет, то дальнейший поиск будет осуществляться на интервале [Х,l2], то есть принимается l1=Х (блок 13). Вычисляется новое значение Х как середина интервала [l1,l2] (блок 14), и так продолжается до тех пор, пока не будет найдено значение корня с заданной точностью, после чего количество корней принимается равным 1 и процедура заканчивает работу.

2.3. Текст программы

Текст программы в соответствии с ГОСТ 19.101-77 (СТ СЭВ 1626-79) и ГОСТ 19.401-79 (СТ СЭВ 3746-82) представляет собой запись программы на исходном языке программирования с необходимыми комментариями. Текст программы представляет собой документ, выполненный машинным способом, и приведен в приложении 2.

Основной модуль программы. (Схема программы).