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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

110
Writeln(f,'Коэффициент теплообмена kapa1 = ',kapa1:6:4);
Writeln(f,'Коэффициент теплообмена kapa2 = ',kapa2:6:4);
Writeln(f,'Температура внешней среды Te1 = ',Te1:6:4);
Writeln(f,'Температура внешней среды Te2 = ',Te2:6:4);
Writeln(f,'Приведенная степень черноты eps1 = ',eps1:6:4);
Writeln(f,'Приведенная степень черноты eps2 = ',eps2: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.
Получены следующие распределения температуры:
Рис. 23. Распределения температуры по толщине пластины в различные
моменты времени

Страницы