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

UptoLike

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

Рубрика:

121

Writeln(f,'Предэкспонент P0 = ',P0:6:4);

Writeln(f,'Начальная температура T0 = ',T0: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]-273):8:5);

close(g);

end.

Получены следующие распределения температуры:

Рис. 24. Распределения температуры по толщине пластины в различные

моменты времени