Реферат: Решение задачи Коши для систем обыкновенных дифференциальных уравнений методом Рунге-Кутта-Мерсо
x:=x+h/2;
ur;
for j:=1 to n do
begin
e[j]:=f[j]*H;
y[j]:=W[j]+(a[j]+4*d[j]+e[j])/6;
e2:=abs(-2*a[j]+9*c[j]-8*d[j]+e[j])/30;
if e2<=e1 then
if e2<e1/20 then d2:=d2+1 else
e3:=0;
end;
if e3<>0 then begin
x:=x-h;
for j:=1 to n do begin
y[j]:=W[j];
end;
H:=H/2;
end
else k2:=1;
if d2=n then H:=H+H;
form2.Show;
form2.edit1.text:=floattostr(y[1]);
form2.edit2.text:=floattostr(y[2]);
end;
end.
Приложение 2
|
|
|
|
|
|
|
|
|
К-во Просмотров: 319
Бесплатно скачать Реферат: Решение задачи Коши для систем обыкновенных дифференциальных уравнений методом Рунге-Кутта-Мерсо
|