Разностные методы решения задач теплопроводности. Кузнецов Г.В - 40 стр.

UptoLike

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

Рубрика:

T[i]:=alfa[i]*T[i+1]+beta[i];

end; {цикл с предусловием окончен}

{выводим результат в файл}

Assign(f,'res.txt');

Rewrite(f);

Writeln(f,'Толщина пластины L = ',L:6:4);

Writeln(f,'Число узлов по координате N = ',N);

Writeln(f,'Коэффициент теплопроводности материала пластины lamda =

',lamda:6:4);

Writeln(f,'Плотность материала пластины ro = ',ro:6:4);

Writeln(f,'Теплоемкость материала пластины с = ',c:6:4);

Writeln(f,'Начальная температура T0 = ',T0:6:4);

Writeln(f,'Плотность теплового потока q = ',q:6:4);

Writeln(f,'Коэффициент теплообмена kapa = ',kapa:6:4);

Writeln(f,'Температура внешней среды Te = ',Te:6:4);

Writeln(f,'Результат получен с шагом по координате h = ',h:6:4);

Writeln(f,'Результат получен с шагом по времени tau = '

,tau:6:4);

Writeln(f,'Температурное поле в момент времени t = ',t_end:6:4);

close(f);

Assign(g,'tempr.txt');

Rewrite(g);

for i:=1 to N do

writeln(g,' ',h*(i-1):10:8,' ',T[i]:8:5);

close(g);

end.