УРЧП, ММФ+ Delphi/C. Вопрос по методу конечных разностей.

tramway5

Помогите плиз, скажите как концептуально запрогать в Дельфях или Си, например явную схему для уранения скажем параболического типа, вроде ур-я теплопроводности:
Ut=(A^2)*Uxx
где маленькие буквы- частные производные по соответствующим переменным.
Я понимаю как точки получаются на сетке и схему понимаю в теории, ток не догоняю в какие циклы загнать это построение чтоб получить график в программе. Если не сложно, отпишите плиз в общих чертах как цикл выглядеть будет .
Спасибо
:(

toxin

var
previousData:array[0..M] of extended;
nextData:array[0..M] of extended;
i:integer;
step:integer;
dt:extended;
dx:extended;
begin
{initialize previousData}
dt:=AllTime/Steps;
dx:=AllLength/M;
for step:=0 to N do
begin
for i:=0 to M do
begin
write(previousData[i],' ');
//writeln(i*dx,' ',step*dt,' ',previousData[i]); for Surfer program.
end;
writeln;
{calculate nextData by previousData using your scheme}
for i:=0 to M do
previousData[i]:=nextData[i];
end;
end;

tramway5

Ох, весьма подробно ) спасибо большое.
Оставить комментарий
Имя или ник:
Комментарий: