Контрольная работа: Решение нелинейных уравнений методом интераций

procedure TForm2.Timer1Timer(Sender: TObject);

begin

y:=form1.fn(x1);

series2.AddXY(x1,y-x1,'',clgreen);

d:=abs(y-x1);

x1:=y;

if d<eps then timer1.Enabled:=false;

end;

Здесь строится итерационная кривая, показывающая последовательное приближение к корню уравнения до определенной точности. Основой кода построения итерационной кривой является блок – схема из теоретической части.

2.4 Вычислительный эксперимент

Запуская программу, появляется заставка:

Рис.5. Заставка

Спустя 2 секунды окно заставки закрывается и появляется главное окно программы:

Рис.6. Главное окно

На нем, как и задумывалось, обозначены: главное меню состоящее из пунктов «Визуализация», «Титульный лист», «Выход», а также поля «Начало промежутка», «Конец промежутка», «Точность», а также поле «Корень», в которое после нажатия кнопки «Решение» будет выводится ответ.

Выбирая «Титульный лист», открывается окно, из которого узнаем о назначении программы, ее разработчике, а так же о проверяющем преподавателе.

Рис. 7 Титульный лист.

В поля, расположенные в главном окне вводим соответствующие их названию данные, после чего нажимаем кнопку «Решение» и получаем результат. В программном коде предусмотрена обработка исключительных ситуаций, при возникновении которых выводится информационное окно с рекомендациями по устранению возникших неполадок.

Выбирая пункт меню «Исследование», мы открываем окно, где приведены результаты решения уравнения в математическом пакете Mathcad 14 и в созданной мной программе, а также разность этих значений:

Рис.16. Исследование

Результаты записываются в текстовый Файл «issled.txt»

Выбирая пункт меню «Визуализация», отображается график уравнения и при нажатии кнопки итнрации отображается итерационная кривая:

Рис. 8 Визуализация.

Заключение

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

Спроектирован интерфейс программы и написан программный код на языке высокого уровня.