Тема: 2 ДаникQQ
Показать сообщение отдельно
Старый 20.01.2021, 10:35   #1 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию 2 ДаникQQ

Так-так, уважаемый...
По всему видать, взяли Вы курс на "получил задание на семестр"-"вывалил на форум"-"скатал"-"сдал".
НЕ ПОЙДЁТ!
Потому как в задачи нашего форума не входит плодить лоботрясов, а посему мой Вам совет: пока не поздно, беритесь за ум (собственный!) и осваивайте азы прикладной математики и программирования. А упустите время — и пойдёт обычное "спасите! помогите! отчисляют! сделайте мне за ночь курсовик!!!". Знаем. Проходили.
Но всё же попытаюсь Вам несколько облегчить жизнь.

1. Численное интегрирование. Задача рассматривалась неоднократно, например, здесь, правда, требуется поменять функцию и пределы. И ещё. Чтобы перейти от краевых к средним прямоугольникам, нужно в процедуре Rectangle заменить строку
Sum:=Sum+h*F(a+h*i);
на
Sum:=Sum+h*F(a+h*i+h/2);

2. Методы решения ОДУ 1-го порядка рассмотрены здесь. Подставляйте Вашу функцию и — вперёд!

3. Программу решения системы алгебраических уравнений можете взять отсюда. Отлажена и оттестирована.

4. В принципе, основные методы численного решения нелинейных алгебраических уравнений рассмотрены здесь, правда, Вегстейна там нет. Вообще, самостоятельное значение этого метода математиками оспаривается. Но Вы можете воспользоваться формулой, приведённой в данной ссылке, и, взяв за основу, например, "метод простой итерации", легко доработать программу. Замечу, что сначала нужно преобразовать исходное уравнение к виду
x = ψ(x),
затем построить график y(x), чтобы выбрать интервал с заведомо единственным корнем.

Дерзайте!
Vladimir_S вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Daniellos (20.01.2021), prima (20.01.2021)
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070