Современное программное обеспечение в пользовательском процессе: Сборник заданий по курсу. Глушко А.В - 4 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

y10 = y ê. First@NDSolve@g10@yD@@1DD, y, g10@yD@@2DDDD
InterpolatingFunction@88-5., 5.<<, <>D
pl10 = Plot@y10@xD, 8x, -5, 5<, PlotPoints Æ 100, AxesLabel Æ 8"x", "y"<D
-4 -2 2 4
x
-1
-0.5
0.5
1
1.5
2
y
Ü Graphics Ü
Перейдём к проверке построенного решения. Вначале проверим выполнение
начального условия
y10@0D - w10
0.
Для проверки выполнения уравнения будем подсчитывать разность между
левой и правой частями уравнения
eq10@yD@@1DD == f10
в точках (в данном случае 500), выбранных случайным образом на
интервале (-5,5). Затем после округления (с помощью команды Chop)
находится максимальная по абсолютной величине разность между правой и
левой частями уравнения. Поскольку проверка выполнения уравнения
может занять довольно много времени (которое зависит, конечно, от типа
ПК), следует для контроля включить счётчик времени выполнения команды.
<< Utilities`ShowTime`
z
ad ok7bis.nb 4
zad ok7bis.nb                                                                   4




    y10 = y ê. First@NDSolve@g10@yD@@1DD, y, g10@yD@@2DDDD
    InterpolatingFunction@88-5., 5.<<, <>D

    pl10 = Plot@y10@xD, 8x, -5, 5<, PlotPoints Æ 100, AxesLabel Æ 8"x", "y"

Страницы