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

UptoLike

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

Show@p411, p412, p413, p414, p415, PlotRange Æ 88-1.2, 1.3<, 8-1.2, 1.5<<D
-1 -0.5 0.5 1
x
-1
-0.5
0.5
1
1.5
y
Graphics
Проверим точность найденного решения, например, для j=1. Для этого
вначале проверим выполнение начальных условий
8x40@1D@0D - w41@1D, y40@1D@0D - w42@1D<
80., 0.<
а затем подсчитаем максимальную величину модуля разности между
правой и левой частями первого и второго уравнений. Поскольку проверка
выполнения уравнения может занять довольно много времени,
следует для контроля включить счётчик времени выполнения команды.
<< Utilities`ShowTime`
r401 = Max@Table@t401 = Random@Real, 8-1.9, 4.75<D;
Chop@Abs@Evaluate@eq40@x40@1D, y40@1D,1D@@1DD
ê
.tÆ t401DD,
1 * 10^-6D, 8100<DD
48.28 Second
0.000019898
z
ad ok7bis.nb 18
zad ok7bis.nb                                                                    18




    Show@p411, p412, p413, p414, p415, PlotRange Æ 88-1.2, 1.3<, 8-1.2, 1.5<