Итерации

Форум пользователей пакета Mathematica

Модератор: Admin

zz07
Сообщения: 18
Зарегистрирован: Сб окт 20, 2007 7:04 pm
Откуда: Москва

Итерации

Сообщение zz07 » Пн фев 13, 2012 10:22 pm

Здравствуйте!
Возможно ли как-нибудь автоматизировать процесс итерации?
У меня три функции A[t]=B[t]+C[t,A[t]]
На первом шаге известна B[t] (которая в последствии не меняется), я нахожу функцию С[t,B[t]], после чего нахожу A1[t]=B[t]+С[t,B[t]]
На втором шаге нахожу С[t,A1[t]], после чего опять A2[t]=B[t]+С[t,A1[t]]
На третьем шаге нахожу С[t,A2[t]], после чего A3[t]=B[t]+С[t,A2[t]] ... и т.д.
Можно ли это автоматизировать и задать допустимую погрешность (Ai[t])-(Ai+1[t]) для остановки вычисления.

deniraa
Сообщения: 1
Зарегистрирован: Чт фев 16, 2012 12:46 am

Сообщение deniraa » Чт фев 16, 2012 1:20 am

а я вот http://www.house812.ru/glued_brick нашла статью о домах из клееного бруса... так понравилось... не знаете это дорого ?

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Вс фев 19, 2012 2:17 am

Код: Выделить всё

Afun0[t_] := Bfun[t] + Cfun[t, Bfun[t]]
Bfun[t_] := 2 t
Cfun[t_, a_] := t Sqrt[a]
Afun[t_] :=
 NestWhileList[Bfun[t] + Cfun[t, #] &, Afun0[t],
   Abs[#1 - #2] > 0.01 &, 2][[2 ;;]]

Afun0[t]
NestList[Bfun[t] + Cfun[t, #] &, Afun0[t], 5]
Afun[5.]
ListPlot[Afun[10]]

cferaa
Сообщения: 1
Зарегистрирован: Пт мар 02, 2012 11:29 pm

Сообщение cferaa » Пт мар 02, 2012 11:36 pm

http://sigarets-e.ru/ может это поможет...