Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

ODU2

.pdf
Скачиваний:
9
Добавлен:
20.04.2015
Размер:
681 Кб
Скачать
☆

Доказательство. Схема рассуждение здесь та же, что и в одномерном случае. Сначала

вводим полное метрическое пространство

 

X , состоящее из функций

y x C ,

удовлетворяющих условию max

 

 

 

y x y0

 

 

 

b (здесь и дальше используется макси-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

мум-норма

вектора

 

 

 

 

max

ui

).

 

 

Расстояние в X

определяется

 

по

 

формуле:

 

 

 

 

 

 

u

 

d y1, y2 max

 

 

 

y1 x y2 x

 

 

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

s, y s ds .

 

 

 

 

. Рассмотрим интегральный оператор A y x y0

 

 

 

 

 

 

f

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Оператор A действует из X в X ,

так как при всех

x . будет

 

Ay x y0

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

s, y

s ds

Mh b .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Пусть далее Ni, j

 

 

 

max

 

fi

x, y

 

и

 

N max Ni, j . Точно так же,

как и в одно-

 

 

 

 

 

 

 

 

 

 

 

 

 

y j

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x, y Q

 

 

 

 

 

 

 

 

i, j

 

 

 

 

 

 

 

 

 

 

 

мерном случае, с помощью индукции доказывается неравенство

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

N

 

x x0

 

n

 

 

 

 

 

 

Nh n

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

An y1 x An y2 x

 

 

 

 

 

 

n!

 

 

 

d y1, y2

n!

d y1, y2 , n , x ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

из которого следует, что некоторая степень оператора A является сжимающим отобра-

жением в пространстве

 

X . В таком случае теорема 2 §6 гарантирует существование и

единственность неподвижной точки интегрального оператора A , откуда следует существование и единственность решения задачи Коши (3’), а также − его гладкость.

Теорема 2. (Следствие теоремы 1).Предположим, что в условиях задачи Коши (1)

функция f и все её частные производные по переменным

y y, y

y ',..., y

n

y n 1

 

 

 

 

 

1

 

 

2

 

 

 

 

 

 

 

 

 

 

n 1

y i b, y i b .

непрерывны в параллелепипеде Q x

a, x

a

y

b, y

b

 

 

0

0

 

0

0

 

 

 

 

0

0

 

 

 

 

 

 

 

 

i 1

 

 

 

Выберем положительное число M такое, что на множестве Q будут выполняться нера-

 

 

 

 

 

 

 

M , k 1, 2,...,n . Обозначим

 

b

 

 

 

 

 

 

 

 

 

венства

f (x; y1, y2 ,..., yn )

M и

yk

h min a,

 

 

и

 

x

h, x

h

 

 

 

 

 

M

 

. Утверждается, что существует единственное решение задачи (1) сре-

0

 

0

 

 

 

 

 

 

 

 

 

ди функций класса Cn .

Замечание. Рассмотрим задачу Коши (1) для линейного уравнения вида y n p1 x y n 1 ... pn 1 x y ' pn x y F x ,

считая, что функции

p , p ,..., p и f

непрерывны на отрезке

x

, x

 

и x x , x

.

 

1 2

n

 

1

2

 

0

1

2

В этом случае задача Коши имеет единственное решение среди функций класса

 

Cn

на всём отрезке x , x

.

 

 

 

 

 

 

 

 

 

1 2

 

 

 

 

 

 

 

 

 

30

Действительно, сейчас f x; y1, y2,..., yn F x p1 x yn ... pn 1 x y2 pn x y1 и

 

f

p

 

 

x ,

 

поэтому

функции

f и

f

, j 1, 2,..., n,

непрерывны

на

 

множестве

 

 

 

 

 

 

 

 

n j 1

 

 

 

 

 

 

 

 

 

y j

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y j

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Q x , x

 

n .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

В качестве пространства

X , используемого в доказательстве теоремы 1, можно взять

множество функций y x

 

 

 

 

 

 

 

 

 

 

 

 

так как b и

C x1, x2

без дополнительных неравенств,

потому условие

 

Ay x y0

 

 

 

b выполняется автоматически и, значит, оператор A дей-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

2

x x ,x

 

 

1

 

 

2

 

 

 

 

ствует из X в X . Расстояние в X зададим формулой d

 

y , y

max

 

 

y

 

x

 

y

x

 

 

.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Заметим,

что константа N в случае линейного уравнения конечна, а константа M хоть

и бесконечна, но в рассуждении не участвует.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

31

§10. Понятие о сеточных методах решения дифференциальных уравнений.

В предыдущих параграфах для получения приближенного решения ДУ мы уже использовали сначала изоклины затем − метод последовательных приближений.

Суть сеточных методов состоит в том, что пространство гладких функций на от-

резке

x , x

L

заменяется пространством функций, заданных на сетке

 

x

n

,

 

 

 

 

0

0

 

 

 

 

 

i i 0

 

где x

x

ih,

h

L

, т.е. пространством векторов

n 1 . Оператор дифференцирова-

 

 

i

 

 

0

 

 

 

n

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ния

dy

 

заменяется разностным оператором y , а дифференциальное уравнение − раз-

 

 

dx

 

 

 

 

 

x

 

 

 

 

 

n

 

ностным уравнением (системой уравнений). Если yi i 0

− решение системы раз-

ностных уравнений, а u x − точное решение исходной задачи Коши, следует доби-

ваться того, чтобы норма погрешности i ui yi , т.е. величина

 

 

 

 

 

max

i

, была

 

 

 

мала.

 

 

 

 

0 i n

 

 

 

 

 

 

 

 

 

Рассмотрим более подробно простейшую и самую старую из разностных схем − схему Эйлера (метод Эйлера) приближенного решения задачи Коши y ' f x, y , y x0 y0 :

yi 1 yi

fi

f xi , yi ,

y0 y x0 или yi 1 yi hfi ,

y0 y x0 .

 

h

 

 

 

С геометрической точки зрения на i-м шаге вычислений отрезок интегральной кривой заменяется отрезком касательной к той интегральной кривой, которая проходит через

точку xi , yi , а вся искомая кривая − ломанной. Данный метод обычно называют методом ломанных Эйлера.

32

Применим сначала эту схему к функции u x , являющейся точным решением задачи Коши, считая, что правая часть уравнения f x, y непрерывно дифференцируема в некоторой замкнутой области G , заведомо содержащей графики точного и при-

ближённого

решений.

Мы

имеем

ui 1

u xi h

u xi

hu ' xi

h2

u '' i ,

где

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

x , x

.

 

Так

как

u ''(x)

d

u '(x)

d

 

f (x,u(x))

f

 

(x,u(x)) f

 

(x,u(x)) f (x,u(x)) ,

 

то

i

 

 

 

x

y

 

 

i

i 1

 

 

 

 

 

 

 

 

 

 

dx

 

dx

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

u '' i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Nx Ny N , где N ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Nx ,

N y − максимумы функций

 

f , f x , f y на множестве G .

Таким образом,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

u

 

u x hu ' x

 

 

C h2 ,

где C C f

 

1

N

x

N

y

N ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i 1

 

i

 

i

 

 

 

1

 

 

 

1

1

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

иначе говоря,

 

схема Эйлера имеет порядок аппроксимации O h2 на точном реше-

нии задачи Коши.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Дальше нам понадобится следующее утверждение.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Лемма. Пусть 0 0 и пусть при всех целых i 0

 

i 1

 

 

 

i

 

1 . Тогда будет

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

k

 

 

ek

1 , k .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Доказательство. Отметим, прежде всего, что функция x ex 1 x имеет при x 0

единственную точку минимума, причём 0 0 и, следовательно, 1 x ex при x 0 .

Применим для доказательства леммы метод математической индукции. При k=0 доказываемое неравенство является очевидным. Предположим, что при некотором целом

k 0

выполняется

неравенство

 

k

 

ek 1 .

 

 

В таком случае

будем

 

иметь

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ek 1 1

 

ek 1

1

 

ek

1 1

 

k 1

 

 

 

 

 

k 1

 

 

 

 

 

 

1 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Согласно принципу математической индукции неравенство

 

k

 

ek

1

справедли-

 

 

во при любом натуральном k .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Оценим скорость сходимости приближенного решения yk к точному решению на

сетке xk . С учётом ошибки округления i имеем: yi 1

yi h f xi yi i . Следовательно,

i 1

i

 

 

 

 

 

 

h2

u '' i i . При этом,

 

f xi ,ui f xi , yi

 

Ny

 

i

 

,

 

 

 

 

 

 

 

h f xi ,ui

f xi , yi

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Предположим еще, что ошибка округления при вычислениях удовлетворяет условию

 

 

 

 

C2h2 .

 

 

 

 

 

i

 

h

 

i

 

Ny C1 C2 h2

1

 

i

 

, где

 

 

max

i

 

Тогда будет

i 1

 

 

 

 

 

 

 

 

1 i n

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

hN y , C1 C2 h2 , кроме того,

0

0 . Отсюда с помощью леммы получаем

 

 

 

 

 

 

 

 

 

k

 

C1 C2

e

L N y

 

1 h при k n, и

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

k

 

e

 

1

2N

y

 

 

 

 

 

 

 

 

 

 

O h

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Таким образом, скорость сходимости для схемы Эйлера равна O h (в предполо-

жении, что ошибка округления имеет порядок O h2 ).

33

Существует множество разностных схем с более высокой скоростью сходимости.

Схемы Рунге – Кутта. )

Построим схему вида yi 1 yi h f xi , yi f xi h, yi f xi , yi h , имеющую на точном решении задачи Коши u x порядок аппроксимации, равный O h3 . Если

функция

f x, y имеет непрерывные производные второго рядка, то по условию долж-

но быть

 

 

 

 

 

 

 

 

ui 1

ui h f xi ,ui h2 fx xi ,ui f y xi ,ui f xi ,ui O h3 .

(1)

С другой стороны, ui 1 ui

hu ' xi

h2

u '' xi O h3 или

 

 

 

 

 

 

 

2

 

 

 

ui 1 ui hf xi , yi

 

h2

fx xi , yi f y xi , yi f xi , yi O h3

.

(2)

 

 

 

2

 

 

 

 

 

Сравнивая разложения (1) и (2), видим, нужный порядок аппроксимации мы получим,

если будет 1,

 

1

, например, если 0, 1,

 

1

или

1

, 1.

2

2

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

h

 

h

 

 

 

 

 

 

В первом случае получаем схему

yi 1 yi

hf xi

 

 

, y

 

f xi

, yi

, во втором − схе-

2

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

му y

y

 

h

f x , y

f x

h, y

hf x

, y

 

. Обе эти схемы Рунге – Кутта по

 

i 1

i

 

2

i i

i

i

i

i

 

 

построению имеют порядок аппроксимации

O h3 на точном решении и точность

(скорость сходимости) − O h2 , если погрешность вычислений не превосходит

O h3 .

Так,

 

 

 

 

 

для

 

 

 

 

 

 

 

 

 

 

второй

 

 

 

из

 

 

 

схем

 

 

 

 

 

h

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

 

3

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i 1

 

i

 

 

Ny

 

i

Ny

i

hNy

 

i

 

 

 

O h

 

1

2Nyh

 

O h

 

, если

h

 

 

. При-

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

 

 

 

 

N

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

менение леммы даёт в таком случае

 

 

 

 

 

O h2 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приведем схему Рунге – Кутта, имеющую четвёртый порядок точности:

yi 1 yi h6 k1 2k2 2k3 k4 , где

k1 f xi , yi , k2 f xi h2 , yi h2 k1 , k3 f xi h2 , yi h2 k2 , k4 f xi h, yi hk3 .

Априорные оценки точности в последнем случае слишком громоздки, поэтому в прак-

тических расчётах эти оценки не используются. Удобнее сравнивать между собой ре-

зультаты, полученные при разной величине шага расчета h . Можно вместо этого для приближенного решения задачи Коши обратиться и к некоторым другим методам.

_____________________________________________________

) Рунге (Runge - Tolmé, Carl David) − немецкий математик: 1856 – 1927. Кутта (Kutta, Martin Wilhelm) – немецкий инженер: 1867 – 1944.

34

Методы прогноза и коррекции.

Простейший из методов прогноза и коррекции состоит в том, что сначала для

“прогноза” используется формула

 

 

 

 

 

 

 

 

yi 01 yi 1 2hf xi , yi ,

 

(3)

затем применяется следующий итерационный процесс “коррекции”:

 

k 1

 

 

 

h

 

k

 

 

yi 1

yi

 

 

f xi , yi

f xi 1, yi 1

.

(4)

2

 

 

 

 

 

 

 

 

Эти итерации по существу − метод решения нелинейного уравнения

 

yi 1 yi

h

 

 

 

 

 

2 f xi , yi f xi 1, yi 1

 

 

относительно yi 1 . Если требуется более двух-трёх итераций, вместо этого приходится уменьшать шаг расчёта.

Замечание 1. Для того чтобы начать вычисления, требуется знать, кроме y0 , ещё и y1 .

Вычисление y1 с приемлемой точностью можно выполнить, например, методом Рунге – Кутта 4-го порядка.

Этот метод удобен ещё и тем, что при достаточной гладкости правой части уравнения, т.е. функции f x, y , оценка погрешности может быть оценена с помощью следующей приближенной формулы:

 

u xi yi 0

 

 

1

 

 

yi 0 yi m

 

.

 

 

 

 

 

 

5

 

 

 

 

 

 

y m

 

 

 

Здесь u x − точное решение задачи Коши,

 

 

− результат последней “коррекции”.

 

 

 

 

 

 

 

i

 

 

 

Приведем более точную схему прогноза и коррекции − схему Адамса: )

прогноз

yi 01 yi

 

 

h

9 fi 3 37 fi 2

59 fi 1 55 fi ,

 

 

 

 

24

 

fi 2

 

 

.

 

 

 

 

 

h

 

0

коррекция

yi 1 yi

 

 

5 fi 1 19 fi 9 fi 1

24

 

 

 

 

 

 

 

 

 

_________________________________________________________

) Адамс (Adams, John Couch) − английский астроном: 1819 – 1892.

35

Замечание 2. Все упомянутые методы легко приспособить для решения нормальных систем дифференциальных уравнений, нужно только перейти к их векторной записи.

Замечание 3. Для решения уравнения, разрешенного относительно старшей производной, можно заменить уравнение нормальной системой уравнений первого порядка.

Пример. На отрезке 0; 3 с шагом 0.1 найти приближённое решение задачи Коши

y '' e 2 y ; y 0 0, y ' 0 0

с помощью упомянутой выше схемы прогноза и коррекции. Решение. Данная задача эквивалентна задаче Коши для системы

 

dy1

 

y ,

y

0 0

 

 

 

 

2

1

 

 

dx

 

 

, где y1 x y x .

(5)

 

 

 

 

dy2

e 2 y1 ,

y

0 0

 

 

 

 

 

2

 

 

dx

 

 

 

 

Приведём простую программу ode, где для решения данной задачи на первом шаге используется метод Рунге – Кутта, а на остальных шагах − схема прогноз - коррекция (в виде обращения к подпрограммам rk и prcor). Вычисление вектора

 

 

 

f

 

 

правых частей

 

 

 

1

осуществляет подпрограмма-функция p. Текст подпрограмм

P

 

 

 

 

 

f

2

 

 

 

 

 

 

 

помещен в приложении к параграфу.

program ode

dimension y0(2),y1(2),y(2),f1(2),f(2) external p

open(unit=1, file='ode.res', mode='write',status='unknown') eps=0.1e-03

y1(1)=0.

y1(2)=0.

y0(1)=0.

y0(2)=0.

x=0.

h=0.1

call rk(2,x,y0,h,p,f) write(1,2) x,(y0(j) , j=1,2) do 1 k=1,29

call prcor(2,x,y1,y0,h,p,f,eps,f1,y) write(1,2) x,(y0(j) ,j=1,2)

1continue

2format(2x,f5.2,2x,f9.6,2x,f9.6)

close(1)

stop

end program ode

Таблица, образовавшаяся в файле ‘ode.res’ и содержащая три столбца результатов

работы программы

x , y , Dy

y

, представлена здесь в графической форме. Отметим

 

k k

k

k

 

ещё, что точным решением задачи является функция ln ch x . Её график в рассматриваемом диапазоне значений аргумента полностью сливается с графиком построенного приближенного решения.

36

Приложение. Подрограммы rk, prcor и p.

subroutine rk(n,x,y,h,p,f) dimension f(1),y(1),y1(10),fk(4,10) call p(x,y,f)

do 1 i=1,n fk(1,i)=h*f(i)

1y1(i)=y(i)+0.5*fk(1,i)

x=x+0.5*h call p(x,y1,f) do 2 i=1,n fk(2,i)=h*f(i)

2y1(i)=y(i)+0.5*fk(2,i) call p(x,y1,f)

do 3 i=1,n fk(3,i)=h*f(i)

3y1(i)=y(i)+fk(3,i)

x=x+0.5*h call p(x,y1,f) do 4 i=1,n fk(4,i)=h*f(i)

d=fk(1,i)+2.*fk(2,i)+2.*fk(3,i)+fk(4,i) d=d/6.

4y(i)=y(i)+d

return end

37

subroutine prcor(n,x,y1,y0,h,p,f,eps,f1,y) dimension y0(1),y1(1),y(1),f1(1),f(1) call p(x,y0,f)

x=x+h

h2=0.5*h do 1 j=1,n

y(j)=y1(j)+2.*h*f(j)

1y1(j)=y0(j)

3err=0.

call p(x,y,f1) do 2 j=1,n

y0(j)=y1(j)+h2*(f(j)+f1(j)) ex=abs(y0(j)-y(j)) if(ex.gt.err) err=ex

2y(j)=y0(j)

if(err.gt.eps) go to 3 return

end

subroutine p(x,y,f) dimension y(2),f(2) f(1)=y(2) f(2)=exp(-2*y(1)) return

end

38

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]