Решение нелинейных уравнений методом итераций в visual basic

bleed_well, 642 просмотра

Помогите пожалуйста с написанием кода.Вот задание:
Создать приложение, позволяющее на заданном пользователем интервале найти все корни уравнения 1-x+sin(x)-ln(1+x)=0.Тестовый интервал [0;1.5]. Уточнение корней методом итераций.
Заранее благодарен.

Ответы:

Удачник

Здесь обязательно должна быть какая-то точность, чтобы знать, когда остановиться. Пусть будет e = 0,0001.
Dim x As Double, y As Double, z As Double, h As Double, i As Integer, a1 As Double, a2 As Double
Const n = 10, e = 0,0001
a1 = InputBox("Задайте начало интервала")
a2 = InputBox("Задайте конец интервала")
y = 1
Do While y > e
y = 1 - a1 + Sin(a1) - Log(1 + a1)
For x = a1 + h To a2 Step h
z = y
y = 1 - x + Sin(x) - Log(1 + x)
If y*z < 0 Then Exit For
Next x
a1 = x - h : a2 = x
If a2 < a1 Then x = a1: a1 = a2: a2 = x
h = (a2 - a1)/n
Loop

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

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

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.