Численные методы решения дифференциальных уравнений вида y'=f(x,y)

Главная Создать свой сайт и продвинуть его Программирование Численные методы решения дифференциальных уравнений вида y'=f(x,y)
4 ответ(ов) в теме
Tyr0I{
не в сети давно
На сайте с 09.03.2014
Участник
0
06:44

Иногда уравнение y'=f(x,y) решается аналитически, чаще же - нет, и тут на помощь приходят численные методы.
Начну с небольшого "экскурса в историю". Когда где-то 40 лет назад я был студентом, компьютеров не было (были только ЭВМ, занимавшие целые залы и, в общем, практически недоступные), а потому основным методом численного решения задачи был т.н. "метод изоклин". Суть его в том, что (тут и далее мы будем держать в голове геометрическую интерпретацию), зная производную y' в любой точке плоскости XY, мы можем изрисовать эту самую плоскость коротенькими отрезками прямой, такими, что тангенс угла наклона каждого из них есть f(x,y), а потом, вооружившись карандашом и опираясь на интуицию, изобразить семейство кривых-решений задачи так, чтобы эти отрезки были касательными в каждой точке и чтобы не было изломов.
Сегодня, ясное дело, такое привидится лишь в страшном сне, у всех есть компьютеры, все студенты блестяще владеют языками программирования и... ой, что это я? Ну ладно. В общем, вспомнили о численных методах, разработанных столетия назад великими математиками Эйлером, Рунге, Куттой и др. Основное достоинство этих методов - простота алгоритмизации. Вот их и рассмотрим.
Но прежде - очень важное замечание.
Для того, чтобы можно было применять указанные методы, одного уравнения мало. Обязательно требуется "опорная точка х0", в которой должно быть известно значение искомой функции y0(x0). Кроме того, следует задать шаг h, с которым мы будем двигаться вдоль оси Х. В общем случае этот шаг не обязательно должен быть константой, может быть и переменным, но мы ограничимся случаем постоянного шага.
Ну вот, теперь можно и приступать.

Метод Эйлера

Самый простой, грубый, но, в то же время, самый наглядный. Итак, представьте себе, что мы стартуем из точки х0, значение функции у0 в которой мы знаем. Знаем также и значение производной в точке (х0,у0), равное f(x0,y0). Но производная - это ни что иное, как тангенс угла наклона касательной в точке (х0,у0), а потому, предполагая, что на участке от x0 до x1=(x0+h) искомая функция не слишком сильно отклоняется от этой самой касательной, легко, просто из школьной геометрии, находим приращение функции при переходе от x0 к x1, или, окончательно,
y1 = y0 + h*f(x0,y0).
Дальше "опорной" становится точка (х1,у1), по которой мы находим у2, ну и т.д.
Разумеется, "ежу понятно", что здесь более, чем вероятно, накопление ошибки из-за слишком грубых допущений, а потому был изобретен т.н. "модифицированный" метод Эйлера с пересчетом (он же метод Рунге-Кутты второго порядка), несколько более сложный, но зато существенно повышающий точность. Как выяснилось (для меня недавно), есть несколько вариантов этого метода, различающихся способом внесения коррекций в процессе вычислений. Итак:

Модифицированный метод Эйлера с пересчетом (Рунге-Кутты второго порядка)

Вариант 1
Начинаем, как и в методе Эйлера, с определения у1, соответствующего искомой функции в точке x1=x0+h, но здесь рассматриваем y1, как предварительное значение. Обозначим его у1a.
Находим производную в точке (x1,y1a), которая, естественно, равна f(x1,y1a). Далее берем среднее арифметическое производных в точках (х0,у0) и (х1,у1а) и его-то и считаем "истинным" тангенсом угла наклона хорды, проведенной через точки (х0,у0) и искомую (х1,у1). Отсюда
y1a = x0 + h*f(x0,y0)
y1 = x0 + h*(f(x0,y0) + f(x1, y1a))/2
Дальше, естественно, по цепочке находим у2, у3 и т.д.

Хочу отметить, что именно этот алгоритм и рассматривается в учебниках и руководствах, как метод Рунге-Кутты с коррекцией, однако, как выяснилось, некоторые преподы под этим подразумевают несколько иной способ, который мы и рассмотрим. Итак,

Вариант 2
Здесь в качестве y1a выступает значение искомой функции для точки, находящейся на середине интервала между х0 и х1, т.е. для х0+h/2, каковое определяется, естественно, по производной f(x0,y0), т.е.
y1a = x0 + h/2*f(x0,y0)
Далее значение f(x0+h/2,y1a) мы принимаем в качестве "истинного" тангенса, и отсюда
y1 = x0 + h*f(x0+h/2,y1а)
Дальше - всё та же цепочка.

Итак, со вторым порядком вроде как разобрались. Но далеко не всегда точности, даваемой даже применением методов "с коррекцией", достаточно. И тогда следует применить метод Рунге-Кутты четвертого порядка. Он, конечно, существенно сложнее, и предполагает использование некоей четырехступенчатой рекурсивной процедуры, но зато резко повышает точность. Не будем пытаться понять, почему значения вспомогательных функций и коэффициентов именно такие, а не другие - просто поверим выдающимся умам, которые это изобрели. Итак

Метод Рунге-Кутты четвертого порядка

Здесь для получения у1 следует предварительно сосчитать 4 вспомогательных параметра K1, K2, K3 и K4, причем каждый следующий получается из предыдущего:
K1 = f(x0, y0)
K2 = f(x0+h/2, y0+h/2*K1)
K3 = f(x0+h/2, y0+h/2*K2)
K4 = f(x0+h, y0+h*K3)
И тогда у1 вычисляется, как
y1 = y0 + h/6*(K1 + 2*K2 + 2*K3 + K4)
Дальше, как и в предыдущих методах, идем по цепочке.

В следующем сообщении будет показана работа всех рассмотренных алгоритмов на конкретном примере с приложением программы на Паскале.

В качестве примера рассмотрим уравнение
y' = x + y +1
y(1) = 1
Оно имеет точное решение:
y = 4*Exp(x-1) - x - 2
каковое мы используем для сравнения с численными.
Ниже приведен листинг программы и результат. Столбцы соответствуют результатам решения по рассмотренным алгоритмам, в последнем даны точные значения.

Const<br> h=0.1;<br> N=10;<br><br>Var<br> X,Y1,Y2,Y3,Y4:Array[0..N] of Real;<br> i:Integer;<br><br>Function F(Xf,Yf:Real):Real;<br>begin<br> F:=1.0+Xf+Yf;<br>end;<br><br>Function Y_acc(X_acc:Real):Real;<br>begin<br> Y_acc:=4.0*Exp(X_acc-1)-(X_acc+2);<br>end;<br><br>Procedure Euler;<br>begin<br> X[0]:=1;<br> Y1[0]:=1;<br> for i:=1 to N do<br> begin<br> X[i]:=X[i-1]+h;<br> Y1[i]:=Y1[i-1]+h*F(X[i-1],Y1[i-1]);<br> end;<br>end;<br><br>Procedure Runge_Kutt_2ord_Var1;<br>var Z:real;<br>begin<br> X[0]:=1;<br> Y2[0]:=1;<br> for i:=1 to N do<br> begin<br> X[i]:=X[i-1]+h;<br> Z:=Y2[i-1]+h*F(X[i-1],Y2[i-1]);<br> Y2[i]:=Y2[i-1]+h*(F(X[i-1],Y2[i-1])+F(X[i],Z))/2;<br> end;<br>end;<br><br>Procedure Runge_Kutt_2ord_Var2;<br>var Z:real;<br>begin<br> X[0]:=1;<br> Y3[0]:=1;<br> for i:=1 to N do<br> begin<br> X[i]:=X[i]+h;<br> Z:=Y3[i-1]+h/2*F(X[i-1],Y3[i-1]);<br> Y3[i]:=Y3[i-1]+h*F(X[i-1]+h/2,Z);<br> end;<br>end;<br><br>Procedure Runge_Kutt_4ord;<br>var K1,K2,K3,K4:Real;<br><br>function fK1(Xk,Yk:Real):Real;<br>begin<br> fK1:=F(Xk,Yk);<br>end;<br><br>function fK2(Xk,Yk,Hk,Q:Real):Real;<br>begin<br> fK2:=F(Xk+Hk/2,Yk+Hk/2*Q);<br>end;<br><br>function fK3(Xk,Yk,Hk,Q:Real):Real;<br>begin<br> fK3:=F(Xk+Hk/2,Yk+Hk/2*Q);<br>end;<br><br>function fK4(Xk,Yk,Hk,Q:Real):Real;<br>begin<br> fK4:=F(Xk+Hk,Yk+Hk*Q);<br>end;<br><br>begin<br> X[0]:=1;<br> Y4[0]:=1;<br> for i:=1 to N do<br> begin<br> X[i]:=X[i-1]+h;<br> K1:=fK1(X[i-1],Y4[i-1]);<br> K2:=fK2(X[i-1],Y4[i-1],h,K1);<br> K3:=fK3(X[i-1],Y4[i-1],h,K2);<br> K4:=fK4(X[i-1],Y4[i-1],h,K3);<br> Y4[i]:=Y4[i-1]+h/6*(K1+2.0*K2+2.0*K3+K4);<br> end;<br>end;<br><br>Begin<br> Euler;<br> Runge_Kutt_2ord_Var1;<br> Runge_Kutt_2ord_Var2;<br> Runge_Kutt_4ord;<br> Writeln(' X Euler R-K_2_V1 R-K_2_V2 R_K_4 Accur.');<br> for i:=0 to N do<br> begin<br> write(X[i]:3:1);<br> write(Y1[i]:12:5);<br> write(Y2[i]:12:5);<br> write(Y3[i]:12:5);<br> write(Y4[i]:12:5);<br> writeln(Y_acc(X[i]):12:5);<br> end;<br> ReadLn;<br>End.

Видно, что процедура Рунге-Кутты четвертого порядка дает практически точный результат.

Форум

Редакции сообщения
0
Snake
не в сети давно
На сайте с 20.06.2014
Участник
0
20:15

не так давно все это было)

Редакции сообщения
0
rew
не в сети давно
На сайте с 16.10.2012
Участник
0
19:16

Это тема теория, или просьба о помощи? Взрыв мозгов какой то...

Редакции сообщения
0
Snake
не в сети давно
На сайте с 20.06.2014
Участник
0
22:30

Скорее не теория, а практика 🙂

Редакции сообщения
0

Ваше имя *

Ваш E-mail *

не публикуется

Текст сообщения *