ВУЗ:
Составители:
140
Writeln(f,'Теплота фазового перехода',Qfr:6:4);
Writeln(f,'Влагосодержание грунта',w:6:4);
Writeln(f,'Результат получен с шагом по координате h = ',h:6:4);
Writeln(f,'Температурное поле в момент времени t = ',time:6:4);
close(f);
close(f1);
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.
Получены следующие распределения температуры:
Рис. 27. Распределения температуры по глубине грунта
3.6. ДВУМЕРНОЕ УРАВНЕНИЕ ТЕПЛОПРОВОДНОСТИ С
ИЗЛУЧЕНИЕМ НА ГРАНИЦАХ
Проанализируем процесс теплопереноса в пластине, на двух
границах которой осуществляется теплообмен с внешней средой за счет
излучения и конвекции. Область решения имеет вид аналогичный рис.
17.
Пластина с размерами м3.0
=
=
H
L
. Материал пластины –
твердая резина (λ = 0.16 Вт/(м⋅ºC), ρ = 1190 кг/м
3
, с = 1900 Дж/(кг⋅ºC)).
Страницы
- « первая
- ‹ предыдущая
- …
- 138
- 139
- 140
- 141
- 142
- …
- следующая ›
- последняя »