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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

30
Writeln(f,'Теплоемкость материала пластины с = ',c:6:4);
Writeln(f,'Начальная температура T0 = ',T0:6:4);
Writeln(f,'Температура на границе r = R, Th = ',Th: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):6:3,' ',T[i]:8:5);
close(g);
end.
В результате были получены следующие распределения
температуры
Рис. 9. Распределения температуры по радиусу цилиндра в различные
моменты времени
2.2. КОНЕЧНО-РАЗНОСТНАЯ АППРОКСИМАЦИЯ
ГРАНИЧНЫХ УСЛОВИЙ ВТОРОГО И ТРЕТЬЕГО РОДА
Если для задачи, изложенной в пункте 2.1, в качестве граничных
условий на внешних поверхностях использовать
граничные условия

Страницы