Курсовая работа: Отыскание корня уравнения методом половинного деления
aur = afix: bur = bfix: cur = (aur + bur) / 2
PRINT TAB(15); "Promezhutochnie dannie pri poiske kornya"
PRINT TAB(12); "a b f(a) f(b) b-a"
DO UNTIL bur - aur <= E
IF integr(afix, cur, E) * integr(afix, bur, E) < 0 THEN aur = cur ELSE bur = cur
PRINT USING " ##.### ##.### ##.### ##.### ##.###"; aur; bur; integr(afix, aur, E); integr(afix, bur, E); bur - aur
cur = (aur + bur) / 2
LOOP
uravn = cur
END FUNCTION
8. Полученные результаты
9. Проверка результатов в MathCAD
Полученные в MathCAD и с помощью программы по заданию результаты совпадают
10. Основные выводы
1. Обоснованы и выбраны численные методы:
- интегрирования по методу Симпсона
- отыскания корня уравнения (метод половинного деления)
2. Разработаны, протестированы модули, реализующие следующие методы:
- численное интегрирование по методу Симпсона с оценкой погрешности по правилу Рунге
- отыскание корня уравнения по методу половинного деления
3. Программа модульная, содержит следующие модули:
- основной модуль, принимающий исходные данные, передающий их на обработку и выводящий конечный и промежуточный результаты