Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.11.2007, 00:01   #1
SPQR
Пользователь
 
Регистрация: 23.10.2007
Сообщений: 30
По умолчанию Уравнение метода итераций

Доброе время суток. Вот тут встала задача: Найти решения уравнения 1-x+sin(x)-1n(1+x)=0 методом итераций на отрезке (0; 1.5) включительно с точностью 0.1, 0.01, 0.001.
Метод итераций мне не совсем понятен и желаельно еще узнать каковым это должно выглядеть в кодировке. Программа на Delphi
SPQR вне форума Ответить с цитированием
Старый 11.11.2007, 09:08   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Сначала уравнение f(x)=0 приводят к виду удобному для итерации x=ff(x).
В вашем случае: x:=1+sin(x)-ln(1+x). Далее берут начальное приближение, подставляют в формулу, получают новый x и сравнивают с предыдущим. Если разница > eps то полученный x принимают за новое приближение и расчет повторяют
Код:
var
  x0,x,eps: real;
begin
  x:=1; {начальное приближение}
  eps:=0.001; {точность}
  repeat
    x0:=x;
    x:=1+sin(x0)-ln(1+x0);
  until abs(x0-x) <= eps;
  writeln('x=',x);
  readln;
end.
Да, еще нужно сказать, что метод простой итерации сходится только тогда, когда выполняется условие:
|dff(x)/dx| < 1. Поэтому иногда нужно еще подумать откуда из уравнения f(x)=0 выдернуть x.

Последний раз редактировалось _Dmitry; 11.11.2007 в 09:32.
_Dmitry вне форума Ответить с цитированием
Старый 12.11.2007, 01:26   #3
SPQR
Пользователь
 
Регистрация: 23.10.2007
Сообщений: 30
По умолчанию

Большое спасибо Дмитрий, теперь понятно.
SPQR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
текст программы для решения нелинейного уравнения методом простых итераций Dyst Помощь студентам 2 14.05.2008 22:00
Численные метода на паскале Колян Помощь студентам 7 27.03.2008 20:08
Вызов Метода из др. модуля Mickle Общие вопросы Delphi 2 10.05.2007 23:41